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 < br >
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 < br >
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 "
