Saber ler os resultados de uma consulta do Microsoft Access pode ajudá-lo a fazer o seu pedido de acesso mais dinâmico. O acesso é parte da suíte Microsoft Office e é utilizado para criar bancos de dados relacionais . Visual Basic for Applications (VBA) pode ser usado no Access para criar aplicativos do Windows e recuperar dados do banco de dados . Uma consulta é construído usando Query Language ( SQL) estruturados para solicitar informações a partir de um banco de dados. Coisas que você precisa
Microsoft Office Access 2007
Show Mais instruções
1

Inicie o Microsoft Office Access 2007 e selecione " Banco de Dados em Branco ", clique em " Criar". Clique em "Ferramentas de banco de dados " e selecione "Visual Basic". Clique no botão " Inserir" campo e selecione "Module" .

Tipo " sub readQueryResults privados " e pressione " Enter" para criar uma nova sub-rotina.
2

Digite o seguinte para declarar variáveis ​​que você vai usar para ler os resultados da consulta :

Dim RecordSt Como Recordset

Dim dBase as Database

Dim stringSQL as String Dim

RCNT as Integer
3

Digite o seguinte para criar o " CityTbl " mesa :

stringSQL = " CREATE TABLE CityTbl (Cidade TEXT ( 25) , TEXT Estado (25) ); "

DoCmd.RunSQL ( stringSQL )
4

Digite o seguinte para adicionar dois novos registros para o seu" CityTbl "mesa :

stringSQL =" INSERT INTO CityTbl ( [City ], [ Estado ] ) "

stringSQL = stringSQL &" VALUES (' Fort Worth ', ' Texas ') ; "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( stringSQL )

stringSQL = " INSERT INTO CityTbl ( [City ], [ Estado ] ) "

stringSQL = stringSQL & " VALUES (' Dallas ', ' Texas '); "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( stringSQL )
5

Digite o seguinte para definir sua consulta e abrir o seu conjunto de registros:

stringSQL = "SELECT * FROM CityTbl CityTbl ; . "

Set RecordSt = dBase.OpenRecordset ( stringSQL )
6

Digite o seguinte para criar um " For Loop " e mostrar a sua resultados da consulta através de uma caixa de mensagem: .

RecordSt.MoveFirst

Para RCNT = 0 To RecordSt.RecordCount

MsgBox ( RecordSt.Fields ( " City" ) Value & " , "& RecordSt.Fields ( " Estado ") . Value)

RecordSt.MoveNext

Próxima RCNT

Pressione" F5 "para executar a sub-rotina.