Saber ler os resultados de uma consulta do Microsoft Access pode ajudá-lo a tornar seu aplicativo do Access mais dinâmico. O Access faz parte do pacote Microsoft Office e é usado para criar bancos de dados relacionais. O 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ída usando instruções Structured Query Language (SQL) para solicitar informações de um banco de dados.
Etapa 1
Inicie o Microsoft Office Access 2007 e selecione “Banco de dados em branco” e clique em “Criar”. Clique em “Ferramentas de banco de dados” e selecione “Visual Basic”. Clique no campo "Inserir" e selecione "Módulo".
Digite “Private sub readQueryResults” e pressione “Enter” para criar uma nova sub-rotina.
Etapa 2
Digite o seguinte para declarar as variáveis que você usará para ler os resultados da consulta:
Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer
Etapa 3
Digite o seguinte para criar a tabela "CityTbl":
stringSQL ="CREATE TABLE CityTbl (Cidade TEXT(25), Estado TEXT(25));" DoCmd.RunSQL (stringSQL)
Etapa 4
Digite o seguinte para adicionar dois novos registros à sua tabela "CityTbl":
stringSQL ="INSERT INTO CityTbl ([City], [State] )" stringSQL =stringSQL &"VALUES ('Fort Worth', 'Texas');" DoCmd.SetWarnings False DoCmd.RunSQL (stringSQL)
stringSQL ="INSERT INTO CityTbl ([Cidade], [Estado]) " stringSQL =stringSQL &"VALUES ('Dallas', 'Texas');" DoCmd.SetWarnings False DoCmd.RunSQL (stringSQL)
Etapa 5
Digite o seguinte para definir sua consulta e abra seu Recordset:
stringSQL ="SELECT CityTbl.* FROM CityTbl;" Set RecordSt =dBase.OpenRecordset(stringSQL)
Etapa 6
Digite o seguinte para criar um "For Loop" e exibir os resultados da consulta por meio de uma caixa de mensagem:
RecordSt.MoveFirst Para rCnt =0 Para RecordSt.RecordCount MsgBox (RecordSt.Fields("Cidade").Value &", " &RecordSt.Fields("Estado").Value) RecordSt.MoveNext Próximo rCnt
Pressione "F5" para executar a sub-rotina.
