Cómo acceder a VBA resultados de la 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 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 construye a partir de las declaraciones Structured Query Language ( SQL) para solicitar información de una base de datos. Cosas que necesitará
Microsoft Office Access 2007
Ver Más instrucciones
1

Inicio Microsoft Office Access 2007 y seleccione "Base de datos en blanco ", y 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 " .

Tipo "sub readQueryResults privadas " y presiona " Enter" para crear un nuevo subprograma.
2

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

RecordSt As Recordset

Dim dBase como base de datos

stringSQL dévil como secuencia

RCNT Dim As Integer
3

Escriba lo siguiente para crear la tabla " CityTbl ":

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

DoCmd.RunSQL ( stringSQL )
4

Escriba el siguiente para agregar dos nuevos registros a su " CityTbl "mesa :

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 )
5

escriba lo siguiente para definir la consulta y abrir el conjunto de registros :
< p > stringSQL = "SELECT * FROM CityTbl CityTbl ; ".

Set RecordSt = dBase.OpenRecordset ( stringSQL )
6

Escriba lo siguiente para crear un " bucle For " y muestra su resultados de la consulta a través de un cuadro de mensaje :

RecordSt.MoveFirst

Para RCNT = 0 Para RecordSt.RecordCount

MsgBox ( RecordSt.Fields ( " City" ) y Valor " . , "& RecordSt.Fields ( " Estado ") . Valor )

RecordSt.MoveNext

Siguiente RCNT

Press " F5 "para ejecutar la subrutina.