Rasape
11 de Marzo del 2006

Hola a tod@s

Necesito saber como crear en tiempo de ejecucion con VB6 una tabla de access.

Si es posible, un ejemplo con DAO seria de gran ayuda

Gracias.

LLE
11 de Marzo del 2006

Hola, con el vb se instala una archivo de ayuda dde sql .hlp llamado JETSQL35.HLP. pone en buscar "crear tabla" y tenes un ejemplo para usar con dao

Saludos

www.recursosvisualbasic.com.ar

epa
11 de Marzo del 2006

Buenas:

Primero q nada deves chekiar la referencia a ''Microsoft DAO 3.51 Object Library''

Luego a nivel de formulario

Private db As DataBase
Private Table As New TableDef
Private Campo As Field

Private Sub Command1_Click()
' Abrir la DB
Set db = DBEngine.OpenDatabase(App.Path & "DB.mdb")
'Se crea la tabla en la aplicacion
Set Table = db.CreateTableDef("Clientes")
'Se crean los campos necesarios
Set Campo = Table.CreateField("Codigo", dbText)
'Se asigna le campo a la tabla
Table.Fields.Append Campo
'Se asigna la tabla a la base de datos creandola
db.TableDefs.Append Table
End Sub

Espero sirva, saludos

Rasape
11 de Marzo del 2006

Gracias por vuestra ayuda, nada mas probar el codigo os lo hare saber con los resultados.

Muchas gracias

epa
11 de Marzo del 2006

Me olvide de especificarte algo
Por cada campo que quieras crear deves poner:

Set Campo = Table.CreateField("Nombre campo", dbText) ' dbtext es una posibilidad fijate en el examinador de objetos para ver todas las posibilidades
Table.Fields.Append Campo

Por cada campo que quieras crear deves poner esas dos lienas, si primero asignas todas las tablas y luego pones el append solamente te guardara la ultima
Saludos

Rasape
11 de Marzo del 2006

Hola:

Otra duda que tengo, es como detectar al

ejecutar la aplicacion por primera vez, si la tabla "x"

existe o no.

Gracias