Creación de tablas
Hola Salmon. Estoy construyendo un programa para administrar una base de datos, usando access y VB 6.0. Quisiera saber si existe alguna forma de crear tablasenlabase de datos, directamente desde el VB. ¿Existe algunapágina o tutorial que se dedique exclusivamentealuso de Access y VB juntosen eldesarrollo de aplicaciones?
Gracias,, agradeceré tu pronta respuesta.
Goten.
Gracias,, agradeceré tu pronta respuesta.
Goten.
1 respuesta
Respuesta de salmon
1
Desde VB se puede hacer todo con una base Access.
Desde Crearla, borrarla, crear tablas, consultas, definir indices... todo.
Concretamente, crear una tabla se hace así: (este es un ejemplo sacado MSDN)
Sub CreateTableDefX()
Dim dbsNeptuno As Database
Dim tdfNuevo As TableDef
Dim prpBucle As Property
Set dbsNeptuno = OpenDatabase("Neptuno.mdb")
' Crea un objeto TableDef nuevo.
Set tdfNuevo = dbsNeptuno.CreateTableDef("Contactos")
With tdfNuevo
' Crea los campos y los agrega al objeto
' TableDef nuevo. Debe hacer esto después de
' Anexar el objeto TableDef a la colección
' TableDefs de la base de datos Neptuno.
.Fields.Append .CreateField("Nombre", dbText)
.Fields.Append .CreateField("Apellidos", dbText)
.Fields.Append .CreateField("Teléfono", dbText)
.Fields.Append .CreateField("Notas", dbMemo)
end with
Una pagina muy buena de VB y Bases de datos es esta:
http://guille.costasol.net/vb_db.htm
Desde Crearla, borrarla, crear tablas, consultas, definir indices... todo.
Concretamente, crear una tabla se hace así: (este es un ejemplo sacado MSDN)
Sub CreateTableDefX()
Dim dbsNeptuno As Database
Dim tdfNuevo As TableDef
Dim prpBucle As Property
Set dbsNeptuno = OpenDatabase("Neptuno.mdb")
' Crea un objeto TableDef nuevo.
Set tdfNuevo = dbsNeptuno.CreateTableDef("Contactos")
With tdfNuevo
' Crea los campos y los agrega al objeto
' TableDef nuevo. Debe hacer esto después de
' Anexar el objeto TableDef a la colección
' TableDefs de la base de datos Neptuno.
.Fields.Append .CreateField("Nombre", dbText)
.Fields.Append .CreateField("Apellidos", dbText)
.Fields.Append .CreateField("Teléfono", dbText)
.Fields.Append .CreateField("Notas", dbMemo)
end with
Una pagina muy buena de VB y Bases de datos es esta:
http://guille.costasol.net/vb_db.htm
