Condividi tramite

Passaggio 2: Inizializzare la casella di riepilogo principale

  • Articolo

Per dichiarare gli oggetti Record e Recordset globali, inserire il codice seguente in (Generale) (Dichiarazioni) 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 eventi 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 nell'ambiente.

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

Vedere anche

scenario di pubblicazione Internet
Passaggio 1: Configurare il progetto visual Basic
Passaggio 3: Popolare la casella di riepilogo campi