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 .