Freigeben über

Schritt 2: Initialisieren des Hauptlistenfelds

  • Artikel

Um globale Datensatz- und Recordset-Objekte zu deklarieren, fügen Sie den folgenden Code in die (Allgemeine) (Deklarationen) für Form1 ein:

Option Explicit  
Dim grec As Record  
Dim grs As Recordset

Dieser Code deklariert globale Objektverweise für Record- und Recordset-Objekte, die später in diesem Szenario verwendet werden.

Stellen Sie eine Verbindung mit einer URL her und befüllen Sie lstMain.

Fügen Sie den folgenden Code in den Form Load-Ereignishandler für Form1 ein:

Private Sub Form_Load()  
    Set grec = New Record  
    Set grs = New Recordset  
    grec.Open "", "URL=https://servername/foldername/", , _  
        adOpenIfExists Or adCreateCollection  
    Set grs = grec.GetChildren  
    While Not grs.EOF  
        lstMain.AddItem grs(0)  
        grs.MoveNext  
    Wend  
End Sub

Dieser Code instanziiert die globalen Record- und Recordset-Objekte. Das Record-Objekt grecwird mit einer URL geöffnet, die als ActiveConnection angegeben ist. Wenn die URL vorhanden ist, wird sie geöffnet; wenn sie noch nicht vorhanden ist, wird sie erstellt. Beachten Sie, dass Sie https://servername/foldername/ durch eine gültige URL aus Ihrer Umgebung ersetzen sollten.

Das Recordset-Objekt grswird für die untergeordneten Elemente des Datensatzes grecgeöffnet. Anschließend wird lstMain mit den Dateinamen der in der URL veröffentlichten Ressourcen aufgefüllt.

Siehe auch

Internet-Publishing Szenario
Schritt 1: Einrichten des Visual Basic-Projekts
Schritt 3: Auffüllen des Listenfelds "Felder"