Joan wrote:
>
> Hola!
> Alguen conoce la forma de adjuntar tablas de una base de datos a otra,
> mediante VB?.
>
> Joan

Extraído directamente (y adaptado en 1 minuto) de la ayuda de VB en el
ejemplo de las propiedades Connect y SourceTableName.




========= Principio =============

Dim dbsTemp As Database

    ' Abre una base de datos Microsoft Jet a la que vinculará
    ' una tabla.
Set dbsTemp = OpenDatabase("BD1.mdb")

SalidaConexión dbsTemp, _
                "JetTable", _
                ";DATABASE=C:\Mis Documentos\Neptuno.mdb", _
                "Empleados"


...

        
Sub SalidaConexión(dbsTemp As Database, _
    strTabla As String, strConectar As String, _
    strTablaOrigen As String)

    Dim tdfVinculado As TableDef
    Dim As Recordset
    Dim intTemp As Integer

    ' Crea un nuevo TableDef, establece las propiedades Connect
    ' y SourceTableName basadas en los argumentos transferidos
    ' y lo anexa a la colección TableDefs.
    Set tdfVinculado = dbsTemp.CreateTableDef(strTabla)

tdfVinculado.Connect = strConectar
    tdfVinculado.SourceTableName = strTablaOrigen
    dbsTemp.TableDefs.Append tdfVinculado

    Set rstVinculado = dbsTemp.OpenRecordset(strTabla)

    Debug.Print "Datos de la tabla vinculada :"

    ' Muestra los primeros tres registros de la tabla vinculada.
    intTemp = 1
    With rstVinculado
        Do While Not .EOF And intTemp <= 3
            Debug.Print , .Fields(0), .Fields(1)
            intTemp = intTemp + 1
            .MoveNext

Loop
        If Not .EOF Then Debug.Print , "[registros adicionales]"
        .Close
    End With

    ' Elimina la tabla vinculada porque esto es un ejemplo.
    dbsTemp.TableDefs.Delete strTabla

End Sub

'Copyright (c) 1996 Microsoft Corporation

================= Fin ========


Espero que te resuelva el problema. Un saludo.