Condividi tramite

Passaggio 2: Inizializzare la casella di riepilogo Main

  • Articolo

Per dichiarare gli oggetti Record e Recordset globali, inserire il codice seguente in (General) (Declarations) per Form1:

Option Explicit  
Dim grec As Record  
Dim grs As Recordset

Questo codice dichiara riferimenti a oggetti globali per gli oggetti Record e Recordset che verranno usati più avanti in questo scenario.

Per connettersi a un URL e popolare lstMain

Inserire il codice seguente nel gestore dell'evento Form Load per Form1:

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

Questo codice crea un'istanza degli oggetti Record e Recordset globali. L'oggetto Record, grec, viene aperto con un URL specificato come ActiveConnection. Se l'URL esiste, viene aperto; se non esiste già, viene creato. Si noti che è necessario sostituire https://servername/foldername/ con un URL valido dall'ambiente.

L'oggetto Recordset, grs, viene aperto sugli elementi figlio dell'oggetto Record, grec. Quindi lstMain viene popolato con i nomi di file delle risorse pubblicate nell'URL.

Vedi anche

Scenario di Internet Publishing
Passaggio 1: Configurare il progetto di Visual Basic
Passaggio 3: Popolare la casella di riepilogo Fields