Compartir a través de

Paso 2: Inicialización del cuadro de lista principal

  • Artículo

Para declarar objetos Record y Recordset globales, inserte el código siguiente en (General) (Declaraciones) para Form1:

Option Explicit  
Dim grec As Record  
Dim grs As Recordset

Este código declara referencias de objetos globales para los objetos Record y Recordset que se usarán más adelante en este escenario.

Para conectarse a una dirección URL y rellenar lstMain

Inserte el código siguiente en el controlador de eventos Carga del formulario para 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

Este código crea una instancia de los objetos Record y Recordset globales. El objeto Record, grec, se abre con una dirección URL especificada como ActiveConnection. Si la dirección URL existe, se abre; si aún no existe, se crea. Tenga en cuenta que debe reemplazar https://servername/foldername/ por una dirección URL válida de su entorno.

El objeto Recordset, grs, se abre en el elemento secundario de Record, grec. A continuación, lstMain se rellena con los nombres de archivo de los recursos publicados en la dirección URL.

Consulte también

Escenario de publicación en Internet
Paso 1: Configuración del proyecto de Visual Basic
Paso 3: Relleno del cuadro de lista de campos