-
Cómo consultar varias bases de datos en Access
-
Conocer cómo abrir y consulta de múltiples bases de datos que pueden ahorrar tiempo cuando se necesita para utilizar los datos de múltiples archivos de base de datos. Microsoft Office Access es un sistema de gestión de base de datos relacional desarrollado por Microsoft. El acceso 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 pueden utilizar para consultar varias bases de datos.
Instrucciones
1 Iniciar Microsoft Office Access, seleccione "Base de datos en blanco" y luego haga clic en "Crear". Haga clic en "Herramientas de base de datos" luego selecciona "Visual Basic". Seleccione el menú "Insertar" y luego haga clic en "módulos".
2 Escribe lo siguiente para crear la subrutina "queryMultipleDbs":
queryMultipleDbs Private Sub ()
Presione ENTRAR."
3 Escribe lo siguiente para declarar nuevas variables:
Dim primera medida de registros
DBS dévil como Base de Datos
Dim dbs2 Como Base de Datos
4 Escribe lo siguiente para abrir la primera base de datos:
Set dbs = OpenDatabase ( "C: \ Neptuno 2007.accdb")
Edición del trazado y escriba la ruta de la base de datos.
5 Escribe lo siguiente para abrir la segunda base de datos:
Establecer dbs2 = OpenDatabase ( "C: \ Copia de Neptuno 2007.accdb")
Edición del trazado y escriba la ruta de la base de datos.
6 Escriba lo siguiente para consultar la tabla "Empleados" en la primera base de datos y mostrar los valores en la columna "Apellido":
Set rst = dbs.OpenRecordset("SELECT Employees.* FROM Employees")
rst.MoveLast
rst.MoveFirst
Aunque no hacer rst.EOF
Debug.Print rst.Fields ( "Apellido"). Valor
rst.MoveNext
Lazo
rst.Close
7 Escribe lo siguiente para consultar el "productos" tabla en la primera base de datos y mostrar los valores de la columna "código de producto":
Set rst = dbs2.OpenRecordset("SELECT Products.* FROM Products")
rst.MoveLast
rst.MoveFirst
Aunque no hacer rst.EOF
Debug.Print rst.Fields ( "Código de producto"). Valor
rst.MoveNext
Lazo
rst.Close
Set dbs = Nada
Establecer dbs2 = Nada
Pulse la tecla "F5" para ejecutar la subrutina y mostrar los resultados a través de la ventana Inmediato.