Conocer cómo abrir y consultar bases de datos múltiples puede ahorrar tiempo cuando tenga que utilizar los datos de varios archivos de base de datos . Microsoft Office Access es un sistema de gestión de base de datos relacional desarrollado por Microsoft . Access es una aplicación popular que se usa para diseñar bases de datos locales . Una consulta se utiliza para recuperar información de una tabla de base de datos . Visual Basic para aplicaciones , también conocido como VBA es un lenguaje de programación que se puede utilizar para consultar bases de datos múltiples . Cosas que necesitará
Microsoft Office Access
Mostrar más instrucciones
1

Inicio Microsoft Office Access , seleccione "Base de datos en blanco " y luego haga clic en " Crear". Haga clic en " Herramientas de base de datos " y luego seleccionar "Visual Basic ". Seleccione el menú "Insertar " y luego haga clic
2

Escriba lo siguiente para crear el " queryMultipleDbs " subrutina "Módulo ". :

QueryMultipleDbs Private Sub ( )

Pulse la tecla " Enter".
3

Escriba el siguiente a declarar nuevas variables:

rst As Recordset

Dim dbs Como Base de datos < p> Dim dbs2 como base de datos
4

Escriba lo siguiente para abrir la primera base de datos :

Set dbs = OpenDatabase ("C: \\ Northwind 2007.accdb ")
< p> Editar la ruta y escriba la ruta de acceso de base de datos
5

Escriba lo siguiente para abrir la segunda base de datos : .

Set dbs2 = OpenDatabase ("C: \\ Copia de Northwind 2007 . accdb " )

Editar la ruta y escriba la ruta de acceso de base de datos .
6

Escriba lo siguiente para consultar la " " tabla de la primera base de datos y mostrar los valores de la " Última Empleados Nombre " la columna :

Set rst = dbs.OpenRecordset ( " Empleados SELECT * FROM Empleados ". )

rst.MoveLast

rst.MoveFirst

Do While No rst.EOF

Debug.Print rst.Fields ( "Last Name" ) . Valor

rst.MoveNext

Loop

primera . Cerrar
7

Escriba lo siguiente para consultar la tabla " productos" en la primera base de datos y mostrar los valores de la columna "Código de producto ":

Set rst = dbs2.OpenRecordset ( " Seleccione los productos . * FROM Productos")

rst.MoveLast

rst.MoveFirst

hacer mientras no rst.EOF

Debug.Print primera . Fields ( "Código de producto ") . Valor

rst.MoveNext

Loop

rst.Close

Set dbs = Nothing

Set dbs2 = Nothing

Press "F5 " para ejecutar la subrutina y mostrar los resultados a través de la ventana Inmediato .