Elipse Knowledgebase :: Noções de VBScript no Software Elipse E3: Lição 7

Knowledgebase Home

Search the Knowledgebase

Browse by Category

Knowledgebase Home > Português > Elipse E3 > Scripts

Noções de VBScript no Software Elipse E3: Lição 7 - GetADORecordSet

O método GetADORecordSet da consulta retorna um Recordset do tipo ADO (ActiveX Data Object), resultante da execução da consulta configurada.

O objeto ADO RecordSet é usado para acessar os registros de uma tabela do banco de dados. Possui as seguintes propriedades e métodos:

Propriedades:
BOF: Retorna verdadeiro se a posição do ponteiro é anterior ao primeiro registro.
EOF: Retorna verdadeiro se a posição do ponteiro é posterior ao último registro.
RecordCount: Retorna o número de registros na tabela.

Métodos:
MoveFirst: Move o ponteiro para o primeiro registro
MoveLast: Move o ponteiro para o último registro
MoveNext: Move o ponteiro para o próximo registro
MovePrevious: Move o ponteiro para o registro anterior

Para acessar os registros individualmente, utilizamos o comando Fields("NomeCampo").

Exemplo:

set RS = Screen.Item("Consulta1").GetADORecordset()
for i=1 to RS.RecordCount
    Campo1 = RS.Fields("Campo1").Value
    Campo2 = RS.Fields("Campo2").Value
    campo3 = RS.Fields("Campo3").Value
    MsgBox Campo1 &vbTab& Campo2 &vbTab& Campo3
next

Exercícios:

1. Insira um objeto Banco de Dados no projeto e configure-o.
2. Crie 3 tags de demonstração e grave-as no banco utilizando o objeto histórico. No histórico, configure o tempo de gravação para 0 segundos.
3. Insira um botão na tela que ao clicar grave um registro no histórico (WriteRecord)
4. Insira na tela um objeto consulta que busque os dados salvos pelo histórico.
5. Crie um botão na tela que ao clicar, mostre linha por linha do histórico. Utilize o comando While para repetir o script enquanto não chegar ao fim da tabela.