Usando Bancos de dados no E3: Capítulo 4 – GetADORecordSet.

O método GetADORecordSet da Consulta retorna um objeto 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

As propriedades são importantes para verificar a existência de valores na tabela. Podem ser utilizadas como script de segurança. Como exemplo, será utilizada a seguinte tabela:

Figura 1: Tabela utilizada

  • BOF: Retorna verdadeiro se a posição do ponteiro é anterior ao primeiro registro. No exemplo a seguir, o script verifica se o ponteiro está acima do primeiro registro. Se esta condição for verdadeira, retorna uma mensagem informando que não existem registros acima.

Figura 2: Script de proteção utilizando o método BOF

  • EOF: Retorna verdadeiro se a posição do ponteiro é posterior ao último registro. No exemplo a seguir, o script verifica se o ponteiro está abaixo do último registro. Se esta condição for verdadeira, retorna uma mensagem informando que não existem registros abaixo.

Figura 3: Script de proteção utilizando o método EOF

  • RecordCount: Retorna o número de registros na tabela. Exemplo:

Figura 4: Script utilizando o método RecordCount

Métodos

Os métodos são utilizados para que se possa fazer amostragens nos registros, podendo-se obter os valores de todos os registros de maneira precisa.

  • MoveFirst: Move o ponteiro para o primeiro registro. Exemplo:

Figura 5: Script demonstrando o uso do método MoveFirst

  • MoveLast: Move o ponteiro para o último registro. Exemplo:

Figura 6: Script demonstrando o uso do método MoveLast

  • MoveNext: Move o ponteiro para o próximo registro. Exemplo:

Figura 7: Script demonstrando o uso do método MoveNext

  • MovePrevious: Move o ponteiro para o registro anterior. Exemplo:

Figura 8: Script demonstrando o uso do método MovePrevious

Exercício

  1. Crie um botão que conta o número de registros existentes no Histórico e retorna uma mensagem com este valor.
  2. Crie um botão que informa o valor do primeiro registro.
  3. Crie um botão que informa o valor do último registro.

Anexos:

AppBD.zip

Print Friendly, PDF & Email

Este artigo foi útil? Was this helpful?

Classificação média - Average rating 0 / 5. Count: 0

Comentários em “Usando Bancos de dados no E3: Capítulo 4 – GetADORecordSet.

  1. O exemplo do Metodo NEXT, funciona apenas com referência do ponteiro na primeira posição.
    Qual é o procedimento para que este Método funcione sequencialmente?

    1. Olá @Julio,

      Conforme artigo, https://kb.elipse.com.br/nocoes-de-vbscript-no-software-elipse-e3-licao-5-controle-de-fluxo/, o método Next funciona um determinado número de vezes, podendo ir de um valor fixo, até o final dos registros da tabela, por 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

      Atenciosamente,

    1. Reginaldo,
      Como você precisa navegar entre os registros e o método GetADORecordset não possui nenhuma propriedade que especifique o valor do registro a ser acessado, sugiro que via E3 seja realizada a leitura de todos os registros, e então escritos em um arquivo TXT. Estes dois artigos possuem maiores orientações sobre como realizar a manipulação:
      https://kb.elipse.com.br/kb12658-como-lerescrever-em-arquivos-texto-txt-pelo-e3/
      https://kb.elipse.com.br/kb64100-retornando-uma-linha-especifica-de-arquivos-texto-txt-pelo-e3/

      Desta forma podemos manipular a linha conforme a posição armazenada.

      Na aplicação exemplo (download aqui) há um botão que cria o TXT e lê o primeiro registro.
      Abaixo há dois botões para navegar entre os registros.

Deixe seu Comentário

Seu endereço de e-mail não será publicado. Campos marcados com asterisco são obrigatórios *