Partilhar via

Etapa 2: inicializar a caixa de listagem principal

  • Artigo

Para declarar objetos de registro e conjunto de registros globais, insira o seguinte código nas (Declarações) (Gerais) para Form1:

Option Explicit  
Dim grec As Record  
Dim grs As Recordset

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

Para se conectar a uma URL e preencher o lstMain

Insira o seguinte código no manipulador de eventos De Carga de Formulário 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 globais Record e Recordset. 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 sub-registros 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