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()
RS.MoveFirst 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
RS.MoveNext 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.
Anexos:
