Partager via

Étape 2 : Initialiser la boîte de liste principale

  • Article

Pour déclarer des objets Record et Recordset globaux, insérez le code suivant dans le fichier (Général) (Déclarations) pour Form1 :

Option Explicit  
Dim grec As Record  
Dim grs As Recordset

Ce code déclare des références d’objets globaux pour les objets Record et Recordset qui seront utilisés ultérieurement dans ce scénario.

Pour se connecter à une URL et remplir lstMain

Insérez le code suivant dans le gestionnaire d’événements Form Load pour 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

Ce code instancie les objets Record et Recordset globaux. L’objet Record, grec, est ouvert avec une URL spécifiée comme ActiveConnection. Si l'URL existe, elle est ouverte ; si elle n'existe pas encore, elle est créée. Notez que vous devez remplacer https://servername/foldername/ par une URL valide de votre environnement.

L’objet Recordset, grs, est ouvert sur les enfants de l’objet Record, grec. Ensuite, lstMain est renseignée avec les noms de fichiers des ressources publiées dans l’URL.

Voir aussi

scénario de publication Internet
Étape 1 : Configurer le projet Visual Basic
Étape 3 : remplir la liste déroulante des champs