Compartilhar via

Etapa 2: Inicializar a caixa de listagem principal

  • Artigo

Para declarar objetos Record e Recordset globais, insira o seguinte código em (Geral) (Declarações) para Form1:

Option Explicit  
Dim grec As Record  
Dim grs As Recordset

Esse código declara referências de objeto global para objetos Record e Recordset que serão usados posteriormente no cenário.

Para se conectar a uma URL e popular o lstMain

Insira o seguinte código no manipulador 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

Esse código cria uma instância dos objetos Record e Recordset globais. O objeto Record, grec, é aberto com uma URL especificada como ActiveConnection. Se a URL existir, ela será aberta; se ainda não existir, ela será criada. Observe que você deve substituir https://servername/foldername/ por uma URL válida do seu ambiente.

O objeto Recordset, grs, é aberto nos filhos do Registro, grec. Em seguida, lstMain é preenchido com os nomes de arquivo dos recursos publicados na URL.

Consulte Também

Cenário de publicação na Internet
Etapa 1: Configurar o projeto do Visual Basic
Etapa 3: Preencher a caixa de listagem de campos