Recupere los resultados de la consulta en Access usando VBA.
Saber cómo leer los resultados de una consulta de Microsoft Access puede ayudarlo a hacer que su aplicación de Access sea más dinámica. Access es parte de la suite de Microsoft Office y se utiliza para crear bases de datos relacionales. Visual Basic para Aplicaciones (VBA) se puede utilizar en Access para crear aplicaciones de Windows y recuperar datos de bases de datos. Una consulta se crea utilizando sentencias de lenguaje de consulta estructurado (SQL) para solicitar información de una base de datos.
Paso 1
Inicie Microsoft Office Access 2007 y seleccione "Base de datos en blanco", luego haga clic en "Crear". Haga clic en "Herramientas de base de datos" y seleccione "Visual Basic". Haga clic en el campo "Insertar" y seleccione "Módulo".
Video del día
Escriba "Private sub readQueryResults" y presione "Enter" para crear una nueva subrutina.
Paso 2
Escriba lo siguiente para declarar las variables que utilizará para leer los resultados de la consulta:
Dim RecordSt As Recordset Dim dBase As Database Dim stringSQL As String Dim rCnt As Integer
Paso 3
Escriba lo siguiente para crear la tabla "CityTbl":
stringSQL = "CREAR TABLA CityTbl (Ciudad TEXTO (25), Estado TEXTO (25));" DoCmd. RunSQL (stringSQL)
Paso 4
Escriba lo siguiente para agregar dos nuevos registros a su tabla "CityTbl":
stringSQL = "INSERT INTO CityTbl ([Ciudad], [Estado])" stringSQL = stringSQL & "VALUES ('Fort Worth', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
stringSQL = "INSERT INTO CityTbl ([Ciudad], [Estado])" stringSQL = stringSQL & "VALUES ('Dallas', 'Texas');" DoCmd. SetWarnings False DoCmd. RunSQL (stringSQL)
Paso 5
Escriba lo siguiente para definir su consulta y abrir su Recordset:
stringSQL = "SELECT CityTbl. * FROM CityTbl;" Establezca RecordSt = dBase. OpenRecordset (stringSQL)
Paso 6
Escriba lo siguiente para crear un "For Loop" y mostrar los resultados de su consulta a través de un cuadro de mensaje:
RecordSt. MoveFirst para rCnt = 0 para grabarSt. RecordCount MsgBox (Campos RecordSt. ("Ciudad"). Valor & "," & Campos RecordSt. ("Estado"). Valor) RecordSt. MoveNext Next rCnt
Presione "F5" para ejecutar la subrutina.
