Preguntaban en las News:
Como hago por medio de codigo para abrir desde una base datos A abrir la base de datos B
y a la vez ejecutar una consulta de la base de datos B
Y Happy contesta:
Dim AccessApp As New Access.Application
AccessApp.OpenCurrentDatabase ("c:\mibd.mdb")
AccessApp.Visible = True
AccessApp.DoCmd.OpenQuery "miconsulta"
Set AccessApp = Nothing
Y el Bhuo tambien contesta:
El ejemplo de Juan es bueno. Pero en realidad abre otra instancia de Access,
aunque inmediatemente la cierre.
Si quieres otro metodo....
Por ejemplo, esto abriría otra base de datos y crearía una consulta:
Function CreaNuevaConsulta(Name As String, Sql As String)
Dim dbs As Database
Dim qdfNuevo As QueryDef
Set dbs = OpenDatabase("C:\Twpac\datos.Mdb")
With dbs
' Crea una consulta permanente.
Set qdfNuevo = .CreateQueryDef(Name, Sql)
.Close
End With
End Function
Este otro ejemplo, EJECUTARIA una consulta, utilizando mismo metodo
Function AbreBAseYEjecutaConsulta()
Dim dbs As Database
Set dbs = OpenDatabase("C:\Twpac\dsystem.Mdb")
With dbs
' Ejecuta Consulta de lo que sea:
.Execute "Select * from etc etc"
.Close
End With
End Function
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)