'Otra forma de copiar tablas de una base de datos a otra.
'En este caso se trata de copiar de Dsystem.Mdb a Datos.Mdb.
'Ademas, para que el ejemplo sea completo, se entiende que
'Dsystem.Mdb esta protegida por contraseņa


Option Compare Database
Option Explicit


Public Function CopiarTabla()
Dim BaseOri As Database
Dim NomBaseOri As String
Dim NomBaseDes As String
NomBaseOri = "c:\Twpac\Dsystem.mdb"
NomBaseDes = "c:\Twpac\Datos.mdb"
Set BaseOri = OpenDatabase("", _
        dbDriverNoPrompt, False, _
        ";DATABASE=" & NomBaseOri & ";PWD=contraseņa")
'Copia la tabla usuarios a la base destino como tabla usuarios tambien
BaseOri.Execute "SELECT usuarios.* INTO usuarios IN '" & NomBaseDes & "' FROM usuarios;"
BaseOri.Close
End Function



'Esta funcion expresa de forma 'generica' como hacerlo de otra forma

Public Function OtraCopiaTabla()
Dim wrk As Workspace
Dim dbs As Database

    Set wrk = DBEngine.CreateWorkspace("", "Admin", "")
    Set dbs = wrk.OpenDatabase("Ruta_base_origen")

    dbs.Execute "INSERT INTO Tabla_Destino IN 'Ruta_Base_destino' SELECT * FROM Tabla_Origen;", dbFailOnError

    Set dbs = Nothing
    wrk.Close

End Function