1
Ejecutar una consulta y poner sus resultados en un conjunto de registros para la manipulación. Copia y pega el código VBA a continuación para cargar los datos de la consulta .
DbMyDatabase As DAO.Database
rsMyRecords Dim Como DAO.Recordset
Set dbMyDatabase = CurrentDb
set rsMyRecords = dbMyDatabase.OpenRecordset ( " MyQuery ")
2
ejecutar una consulta con parámetros de entrada utilizando un objeto de definición de consulta y cargar los resultados en un conjunto de registros utilizando el ejemplo de código a continuación.
dbMyDatabase As DAO.Database
rsMyRecords Dim Como DAO.Recordset
qdMyParameters Dim Como DAO.QueryDef
Set dbMyDatabase = CurrentDb
Set qdMyParameters = dbMyDatabase.QueryDefs ( " MyQuery ")
qdMyParameters.Parameters
( " MyParameter ") = "valor"
Set rsMyRecords = qdMyParameters.OpenRecordset ()
3
Recorrer cada registro devuelto y realizar una acción. El siguiente ejemplo es una manera de hacer este Listado
Do While Not rsMyRecords.EOF
Debug.Print " El contenido de mi columna :" . ! Y rsMyRecords [ MyColumnName ]
< p > rsMyRecords.MoveNext
Loop
4
Ejecutar una consulta SQL en lugar de una consulta de Access llamada y poner sus resultados en un conjunto de registros para la manipulación. Copia y pega el código VBA a continuación.
DbMyDatabase As DAO.Database
rsMyRecords Dim Como DAO.Recordset
strQuery dévil como secuencia
strQuery = "SELECT * FROM MyTable "
Set dbMyDatabase = CurrentDb
Set rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery )
5
Ejecutar un comando que no devuelve ningún registro utilizando el código VBA. Actualizar y eliminar comandos son ejemplos de instrucciones que no devuelven ningún registro.
CurrentDb.Execute " MyQueryName "