Compartir vía

Paso 2: Inicializar el cuadro de lista principal

  • Artículo

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

Option Explicit  
Dim grec As Record  
Dim grs As Recordset

Este código declara referencias de objetos globales para 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 Form Load 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 los hijos del objeto 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: Configurar el proyecto de Visual Basic
Paso 3: Rellenar el cuadro de lista de campos