Recupere os resultados da consulta no Access usando VBA.
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.
Passo 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".
Vídeo do dia
Digite "Private sub readQueryResults" e pressione "Enter" para criar uma nova sub-rotina.
Passo 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 = "CRIAR TABELA CityTbl (City TEXT (25), State TEXT (25));" DoCmd. Executar SQL (stringSQL)
Passo 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. Executar SQL (stringSQL)
stringSQL = "INSERT INTO CityTbl ([City], [State])" stringSQL = stringSQL & "VALUES ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. Executar SQL (stringSQL)
Etapa 5
Digite o seguinte para definir sua consulta e abrir seu conjunto de registros:
stringSQL = "SELECT CityTbl. * FROM CityTbl;" Defina RecordSt = dBase. OpenRecordset (stringSQL)
Etapa 6
Digite o seguinte para criar um "For Loop" e exibir os resultados da consulta em uma caixa de mensagem:
RecordSt. MoveFirst para rCnt = 0 para RecordSt. RecordCount MsgBox (RecordSt. Fields ("City"). Value & "," & RecordSt. Fields ("State"). Value) RecordSt. MoveNext Next rCnt
Pressione "F5" para executar a sub-rotina.
