MTS:n toisiinsa liittyvien kokoelmien nimien haun automatisoiminen

RelatedCollectionInfo-kokoelma sisältää luettelon kokoelman sisältä käytettävistä tähän kokoelmaan liittyvistä kokoelmista. Tämän kokoelman tukemien ominaisuuksien luettelo on MTS Administrative Referencen aiheessa RelatedCollectionInfo.

Kokoelmaan liittyvien kokoelmien nimien hakeminen ja tarkasteleminen:

1. Määrittele tähän kokoelmaan liittyvien kokoelmien nimet sisältävän objektin käyttämiseen tarvittavat objektit.

   Dim catalog As Object
   Dim packages As Object
   Dim RelatedCollectionInfo As Object
   Dim collName As Object

2. Käsittele suorituksenaikaiset virheet On Error -lausekkeen avulla, jos menetelmä palauttaa HRESULT-virheen. Voit testata MTS:n siepattavia virheitä ja vastata niihin On Error -lausekkeen ja Err-objektin avulla.

   On Error GoTo failed

3. Luo Catalog-objektin esiintymä CreateObject-menetelmän avulla. Nouda Packages-kokoelma kutsumalla GetCollection-menetelmää. Nouda RelatedCollectionInfo-kokoelma kutsumalla GetCollection-menetelmää Packages-kokoelmaobjektissa. Kun GetCollection-menetelmää kutsutaan RelatedCollectionInfo-kokoelman noutamista varten, avainarvo jätetään tyhjäksi. Avainarvoa ei käytetä, koska RelatedCollectionInfo-kokoelman tiedot ovat samat kaikille paketeille. Täytä RelatedCollectionInfo-kokoelma luettelon tiedoilla kutsumalla Populate-menetelmää.

   Set catalog = CreateObject("MTSAdmin.Catalog.1")
   Set packages = catalog.GetCollection("Packages")
   Set RelatedCollectionInfo =_ packages.GetCollection("RelatedCollectionInfo", "")
   RelatedCollectionInfo.Populate

4. Käy RelatedCollectionInfo-kokoelma läpi ja tuo näkyviin jokaisen kokoelman nimi.

   For Each collName In RelatedCollectionInfo
      Debug.Print collName.Name
   Next
           
   Exit Sub
      

5. Jos asennus epäonnistui, tuo Err-objektin avulla näkyviin virhesanoma.

   failed:
       MsgBox "Virhekoodi " + Str$(Err.Number)
   
   End Sub

Katso myös

MTS-hallintaobjektit, MTS-kokoelmatyypit, MTS-hallintaobjektimenetelmät, MTS-hallinnan automatisoiminen Visual Basicin avulla