Um objeto Recordset pode ser uma ferramenta poderosa para usar no Microsoft Office Access quando você precisa consultar uma tabela utilizando o Visual Basic for Applications (VBA). O caminho mais rápido para recuperar um valor de uma consulta é usando VBA. No VBA , você pode usar o objeto para consultar uma tabela em um banco de dados e recuperar valores armazenados na tabela. Um objeto Recordset é usado para manipular dados em um banco de dados a um nível recorde . Coisas que você precisa
Northwind banco de dados
Show Mais instruções
1

Abra o banco de dados Northwind e clique na guia " Ferramentas de banco de dados " . . Clique em " Visual Basic" para abrir a janela Editor do Visual Basic
2

Comece digitando o seguinte código para criar um novo OnFilterComboChange :

Private Sub readQueryValue ()


3

Copiar e colar o seguinte código VBA para declarar variáveis ​​para usar para ler uma consulta:

Dim nwDBS as Database

Dim nwRST Como Recordset

Dim nwSQL as String

Set nwDBS = CurrentDb
4

Criar uma consulta SQL , digitando o seguinte código: .

nwSQL = "SELECT funcionários [ Última name] , empregados [ Nome ] "

nwSQL = nwSQL &" FROM Funcionários ; "
5

Abra um novo conjunto de registros usando a consulta SQL criada no passo anterior. :

Set nwRST = nwDBS.OpenRecordset ( nwSQL )
6

Mova o conjunto de registros para a primeira linha dos resultados da consulta e , em seguida, mover o conjunto de registros para a frente duas vezes para ler o "Last Name " da terceira linha , digitando o seguinte código:

nwRST.MoveFirst

nwRST.MoveNext

nwRST.MoveNext

Debug.Print nwRST.Fields . ("[ apelido ]" ) Valor
7

terminar o procedimento digitando o seguinte código:

nwRST.Close

nwDBS.Close

End Sub
8

Pressione " Ctrl" e "G" para abrir a janela imediata . Pressione " F5" para executar o procedimento e ver os resultados através da janela imediata .