Access - ENLACE DE TABLAS EN CODIGO

 
Vista:

ENLACE DE TABLAS EN CODIGO

Publicado por Javi Gimeno (18 intervenciones) el 11/03/2003 17:52:33
HOLA DE NUEVO, ESTA VEZ LO QUE NECESITO ES PODER VINCULAR TABLAS DESDE UNA BASE DE DATOS A OTRA MEDIANTE CODIGO, PARA CREAR UNA ESPECIE DE SELECCION DE EMPRESA, SIENDO CADA EMPRESA UNA BD CON LAS TABLAS Y DESDE LA BD CON FORMULARIOS IMPORTARME LOS DATOS DE UN SITIO U OTRO DEPENDIENDO DE LA EMPRESA QUE ESCOJA. UN SALUDO A TODOS Y GRACIAS DE ANTEMANO
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

ENLACE DE TABLAS EN CODIGO

Publicado por Alejandro (4142 intervenciones) el 26/04/2023 23:01:51
Para vincular tablas desde una base de datos a otra mediante código en Access, puedes utilizar el siguiente código VBA:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strConnect As String
 
strConnect = "ODBC;DSN=MiDSN;DATABASE=MiBaseDeDatos"
 
Set db = CurrentDb()
 
Set tdf = db.CreateTableDef("MiTablaVinculada")
 
tdf.Connect = strConnect
tdf.SourceTableName = "MiTablaOriginal"
 
db.TableDefs.Append tdf

En este código, "MiDSN" es el nombre del origen de datos ODBC que has configurado para la base de datos a la que quieres vincularte, y "MiBaseDeDatos" es el nombre de la base de datos en esa fuente de datos. "MiTablaOriginal" es el nombre de la tabla que quieres vincular, y "MiTablaVinculada" es el nombre que quieres darle a la tabla vinculada en tu base de datos actual.

Puedes colocar este código en un evento de formulario o en un módulo VBA para que se ejecute al hacer clic en un botón o al iniciar la base de datos. De esta forma, se creará automáticamente la tabla vinculada cada vez que se abra la base de datos, lo que te permitirá seleccionar la empresa y obtener los datos de la tabla correspondiente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar