Crear tabla vinculada en Access desde VB

[Ramón Barrena]

Quisiera saber como puedo crear en una base de Access una tabla vinculada
a una tabla de otra base Access todo ello mediante codigo desde Visual.

Gracias de antemano.

[Harvey Triana]

Ramón -
El siguiente procedimiento vincula todas las tablas a una base de datos
local. (recorte el control de errores para simplificar el código).

Public Sub CreateDBLinks( _
sLocalDatabase As String, _
sServerDatabase As String _
)
Dim dbLocal As DAO.Database
Dim dbServer As DAO.Database
Dim tdLocal As DAO.TableDef
Dim tdServer As DAO.TableDef

Set dbLocal = OpenDatabase(sLocalDatabase, True, False)
Set dbServer = OpenDatabase(sServerDatabase, False, True)

For Each tdLocal In dbServer.TableDefs
If tdLocal.Attributes = 0 Then
Set tdServer = dbLocal.CreateTableDef(tdLocal.Name)
tdServer.Connect = ";DATABASE=" & sServerDatabase
tdServer.SourceTableName = tdLocal.Name
dbLocal.TableDefs.Append tdServer
End If
Next tdLocal

dbServer.Close
dbLocal.Close
End Sub

Con ADO usaras el componente ADOX. - Es similar (no lo he escrito).
________________________________________________
Harvey Triana
Visual Basic Developer MVP
http://www.eidos.es/VeXPERT
htr...@eidos.es
ps...@latino.net.co
________________________________________________

Ramón Barrena <ramo...@hotmail.com> wrote in message
news:01bef5ff$7929ca00$ca05...@barrenar.es.fmi.com...