Cómo acceder a VBA resultados de una consulta

Saber leer los resultados de una consulta de Microsoft Access puede ayudarle a hacer su solicitud de acceso más dinámico. El acceso es parte de la suite de Microsoft Office y se usa 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 construye a partir de las declaraciones Lenguaje de consulta estructurado (SQL) para solicitar información a una base de datos.

Instrucciones

1 Iniciar Microsoft Office Access 2007 y seleccione "Base de datos en blanco", a continuación, 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".

Escriba "sub readQueryResults privadas" y presionar "Enter" para crear una nueva subrutina.

2 Escriba lo siguiente para declarar variables que va a utilizar para leer los resultados de la consulta:

Dim RecordSt Como conjunto de registros

Dim dBase como bases de datos

Dim como secuencia stringSQL

Dim RCNT como número entero

3 Escribe lo siguiente para crear la tabla "CityTbl":

stringSQL = "CREATE TABLE CityTbl (TEXTO City (25), TEXTO Estado (25));"

DoCmd.RunSQL (stringSQL)

4 Escriba lo siguiente para añadir dos nuevos registros a su mesa "CityTbl":

stringSQL = "INSERT INTO CityTbl ([City], [Estado])"

stringSQL = stringSQL y "VALUES ( 'Fort Worth', 'Tejas');"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (stringSQL)

stringSQL = "INSERT INTO CityTbl ([City], [Estado])"

stringSQL = stringSQL y "VALUES ( 'Dallas', 'Tejas');"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (stringSQL)

5 Escribe lo siguiente para definir su consulta y abra el conjunto de registros:

stringSQL = "SELECT * FROM CityTbl CityTbl;".

Establecer RecordSt = dBase.OpenRecordset (stringSQL)

6 Escribe lo siguiente para crear un "bucle For" y se muestren los resultados de la consulta a través de un cuadro de mensaje:

RecordSt.MoveFirst

Para RCNT = 0 Para RecordSt.RecordCount

MsgBox (RecordSt.Fields("City").Value & ", " & RecordSt.Fields("State").Value)

RecordSt.MoveNext

Siguiente RCNT

Pulse la tecla "F5" para ejecutar la subrutina.