Microsoft Access é uma parte da suíte Microsoft Office. Usando este software , você pode criar bancos de dados individuais, relatórios e formulários . Access permite que você crie seus próprios aplicativos usando esses componentes. Para adicionar ainda mais funcionalidades para seus aplicativos ou bancos de dados , você pode programar tarefas no Visual Basic for Applications (VBA). VBA é a linguagem padrão de desenvolvimento da Microsoft para produtos do Office. A linguagem é baseado fora de Visual Basic 6.0 e usa a sintaxe similar. Uma das muitas coisas que você pode fazer com esta linguagem é executar consultas sobre os dados. Instruções
1
Execute uma consulta e colocar seus resultados em um conjunto de registros para a manipulação . Copie e cole o código VBA abaixo para carregar os dados de sua consulta.
Dim dbMyDatabase as DAO.Database
Dim rsMyRecords Como DAO.Recordset
Definir dbMyDatabase = CurrentDb
definir rsMyRecords = dbMyDatabase.OpenRecordset ( " MyQuery " )
2
executar uma consulta com parâmetros de entrada , usando um objeto de definição da consulta e , em seguida, carregar seus resultados em um conjunto de registros usando o exemplo de código abaixo.
Dim dbMyDatabase as DAO.Database
Dim rsMyRecords Como DAO.Recordset
Dim qdMyParameters Como DAO.QueryDef
Set dbMyDatabase = CurrentDb < br > Definir
qdMyParameters = dbMyDatabase.QueryDefs ( " MyQuery " )
qdMyParameters.Parameters ( " MyParameter " ) = " valor "
Set rsMyRecords = qdMyParameters.OpenRecordset ()
3
loop através de cada registro retornado e executar uma ação. O exemplo a seguir é uma maneira de fazer isso
Do While Not rsMyRecords.EOF
Debug.Print " O conteúdo da minha coluna : " . ! & RsMyRecords [ MyColumnName ]
rsMyRecords.MoveNext
loop
4
Executa uma consulta SQL em vez de uma consulta Access chamado e colocar seus resultados em um conjunto de registros para a manipulação . Copie e cole o código VBA abaixo.
Dim dbMyDatabase as DAO.Database
Dim rsMyRecords Como DAO.Recordset
Dim strQuery As String
strQuery = "SELECT * FROM MyTable "
Definir dbMyDatabase = CurrentDb
Definir rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery )
5
Executar um comando que não retorna nenhum registro usando este código VBA. Atualizar e excluir comandos são exemplos de declarações que não retornam nenhum registro.
CurrentDb.Execute " MyQueryName "
