Aprender a emitir múltiples valores de una consulta puede hacer que su aplicación informática más dinámico. Un programa que puede utilizar para consultar una tabla de base de datos es Microsoft Office Access . El acceso es un sistema de gestión de base de datos relacional de uso frecuente para las pequeñas bases de datos locales . Visual Basic para Aplicaciones es un lenguaje de programación utilizado para automatizar tareas rutinarias en Access y otras aplicaciones de Microsoft Office . Una consulta se utiliza para recuperar información de una tabla de base de datos . Instrucciones
1

Inicio Microsoft Office Access 2010 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 ".
2

Presione " Ctrl" y " A" y pulse "Delete " para borrar todo el código existente.
3

Copia y pega el código de abajo en su módulo. El subprograma se creará una nueva tabla, agregar registros a él y luego consultar varios campos. La consulta se emitirá varios valores para esos campos y los muestra a través de un cuadro de mensaje.

AccessMultipleQueryValues ​​Private Sub ( ) guía

Dim dbs como base de datos

primer As Recordset < br >

strSQL As String Dim

Dim X As Integer

Set dbs = CurrentDb

strSQL = " CREATE TABLE multipleValues ​​( Campo1 TEXT, campo2 TEXT, Field3 TEXTO ) ; "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( campo1 , campo2 , Field3 ) "

strSQL = strSQL &" VALUES ( ' fila field1Data 1 ',' field2Data fila 1 ',' field3Data fila 1 '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO multipleValues ​​( campo1 , campo2 , Field3 ) "

strSQL = strSQL &" VALUES ( ' fila field1Data 2 ', ' field2Data fila 2 ', ' field3Data fila 2 '); "

DoCmd . EstablecerAdvertencias False

DoCmd.RunSQL ( strSQL )

strSQL = "INSERT INTO multipleValues ​​( campo1 , campo2 , Field3 ) "

strSQL = strSQL & " VALUES ( ' fila field1Data 3 ',' field2Data fila 3 ',' field3Data fila 3 '); "

DoCmd.SetWarnings falsas

DoCmd.RunSQL ( strSQL )

strSQL = " Seleccionar multipleValues . * de multipleValues ​​"

strSQL = strSQL &" DONDE multipleValues.Field1 = ' field1Data fila 2 " ; "

Set rst = dbs.OpenRecordset ( strSQL )

primera . MoveLast

rst.MoveFirst

Para X = 0 Para rst.RecordCount - 1

MsgBox " Campo1 de datos: " . y rst.Fields ( 0 ) y Valor " , Field2 de datos: " . _

y rst.Fields ( 1 ) Valor &", Campo3 datos: . " y rst.Fields ( 2 ) Valor

rst.MoveNext
< p> Siguiente X

rst.Close

dbs.Close

End Sub
4

Press "F5 " para ejecutar la subrutina .