Acceso: VBA Ejecutar Consulta

Microsoft Access es una parte de la suite Microsoft Office. El uso de este software , puede crear bases de datos individuales, informes y formularios . Acceso le permite crear sus propias aplicaciones utilizando estos componentes. Para añadir aún más funcionalidad a sus aplicaciones o bases de datos , puede programar tareas de Visual Basic para Aplicaciones ( VBA) . VBA es el lenguaje estándar de desarrollo de Microsoft para los productos de Office . El lenguaje se basa apagado de Visual Basic 6.0 y utiliza una sintaxis similar . Una de las muchas cosas que puedes hacer con este lenguaje es ejecutar consultas sobre los datos. Instrucciones
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 "