Discussion:
Vincular Tablas por Visial Basic
(demasiado antiguo para responder)
Antonio Revollo C.
2004-12-29 15:45:39 UTC
Permalink
Por favor alguien me puede guiar de còmo poder vincular una tabla de una
base de datos a otra mediante código VB, el ejemplo que presenta Access no
lo entiendo mucho... hay algo mucho más practico?...Hay que tener en cuenta
que la tabla que deseo vincular posee clave de acceso.

Agradeceré la ayuda.

Antonio
SoftJaén
2004-12-29 17:10:05 UTC
Permalink
còmo poder vincular una tabla de una base de datos a otra mediante código
VB.
...Hay que tener en cuenta que la tabla que deseo vincular posee clave de
acceso.
Antonio, mira a ver si el siguiente ejemplo te es más práctico:

Cómo vincular una tabla de una base de datos Access
http://mvp-access.com/softjaen/tips/adox/sjtadox016.htm

En el mismo se contepla la posibilidad, de que la base de datos, cuya tabla
deseas vincular, esté protegida con contraseña. Te advierto que para
ejecutar el ejemplo, deberás de referenciar en tu proyecto de Visual Basic,
la biblioteca de ADOX (Microsoft ADO Ext. 2.x for DDL and Security).

Un saludo y ¡Feliz Año Nuevo!
--
Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.
SoftJaén
2004-12-29 17:33:03 UTC
Permalink
Te dejaré también un ejemplo para vincular tablas mediante la biblioteca de
DAO; con la biblioteca de ADO no se puede vincular tablas.

Dim db As Database
Dim td As TableDef

' Abrimos la base de datos que va a tener la tabla vinculada
'
Set db = OpenDatabase("C:\Mis documentos\bd1.mdb")

' Creo un objeto TableDef
'
Set td = db.CreateTableDef("Tabla de Access vinculada")

' Establezco la información de conexión con la base de datos
' que se encuentra protegida con contraseña
'
td.Connect = "MS Access;" & _
"DATABASE=C:\Mis documentos\bd2.mdb;" & _
"PWD=Contraseña"

' Vinculo una tabla cualquiera
'
td.SourceTableName = "NombreTabla"

' Anexo el objeto TableDef para crear el vínculo
'
db.TableDefs.Append td

' Cierro la base de datos
'
db.Close
--
Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.
Loading...