copiar tablas desde una base de datos

[para subir nota algo dificilillo.. y agradecido de antemano]

Pregunto: -en access 97 -
Tenemos dos bases de datos A y B
Es posible en vba desde la base de datos "B" acceder a la
base de datos "A" a traves de
Dbengine().Workspace().Opendatabase("A")
Bien ya tenemos la tabla "A" abierta a traves de codigo.
Alguien me puede decir como diablos -si ello es posible a
traves de codigo- poder copiar una tabla que esta en la
base de datos "A" a otra tabla que tambien esta en la base
de datos "A"- todo ello claro esta desde la base de datos
"B". Evidentemente he probado con docmd.copyobject pero
claro la tabla no esta en el origen.
Hasta ahora lo hago de la siguiente forma importo la tabla
desde "A" a "B" y luego la exporto desde "B" a "A" pero
parece un poco absurdo.
Se admiten sugerencias........

[Búho]

Yo en access 97 (Que jamas he usado) no sé si te correrá este codigo....por
probar....

Sub OperaBaseExterna()
Dim Dbs As Object
Set Dbs = CreateObject("Access.Application")
Dbs.OpenCurrentDatabase "C:\ruta\base.Mdb", False
Dbs.DoCmd.CopyObject Dbs.CurrentDb.name, "TablaCopia", acTable, _
"TablaOriginal"
Dbs.CloseCurrentDatabase
Set Dbs = Nothing
End Sub

--

Saludos desde Valladolid
Francisco Javier García Aguado
buho...@mvp-access.com
---
http://www.mvp-access.com/
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
---
"para subir nota algo dificilillo.. y agradecido de antemano"
<anon...@discussions.microsoft.com> escribió en el mensaje
news:39e501c42a07$6ca4bdd0$a601...@phx.gbl...

---
Mi antivirus te dice que no tengo virus (Al menos conocidos).
Saludos del Buho.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.667 / Virus Database: 429 - Release Date: 23/04/2004

[Búho]

Creo que esta es mas facil:

Sub otro()
Dim BaseOri As DAO.Database
Dim NomBaseOri As String
NomBaseOri = "C:\Ruta\Base.mdb"
Set BaseOri = OpenDatabase("", dbDriverNoPrompt, False, _
";DATABASE=" & NomBaseOri)
BaseOri.Execute "SELECT TablaOriginal.* INTO TablaCopia IN '" _
& NomBaseOri & "' FROM TablaOriginal"
BaseOri.Close
Set BaseOri = Nothing
End Sub

ademas es codigo reutilizable si deseo copiar una tabla de DB2 a DB3,
corriendo el codigo desde DB1

Hay una mas facil, lo que pasa que se me ha ido la olla y no me acuerdo....

--

Saludos desde Valladolid
Francisco Javier García Aguado
buho...@mvp-access.com
---
http://www.mvp-access.com/
http://www.mvp-access.com/foro
http://groups.msn.com/Access2000VisualBasic/
---

[paco perchel]

lo intuia pero no daba con la tecla. voy demasiad forzado.
muchas gracias buho

>-----Mensaje original-----

>.
>