Partager via

Étape 2 : Initialiser la zone de liste principale

  • Article

Pour déclarer des objets Record et Recordset globaux, insérez le code suivant dans (General) (Declarations) 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 plus loin dans ce scénario.

Pour vous 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 ; sinon, elle est créée. Notez que vous devez remplacer https://servername/foldername/ par une URL valide à partir de votre environnement.

L’objet Recordset, grs, est ouvert sur les enfants de l’enregistrement, grec. Ensuite, lstMain est rempli avec les noms de fichier 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 zone de liste des champs