luiscastror9
30 de Abril del 2004

cuando creo las tablas en access desde VB 6 no me permite insertar mas de 4 campos en la tabla , que alguien me ayude

Jose oscar
30 de Abril del 2004

Hola maestro usa este metodo es mas rapido....

Un saludo
Jose oscar

Private Sub Command2_Click()
Dim DB As database
Dim Tabla As tabledef
Dim Cam As field

Set DB = DAO.createdatabase(App.Path & "" & "Nombre de la base.mdb", dbLangGeneral, dbVersion40)
Set Tabla = DB.CreateTableDef("Tabla uno")

With Tabla
.fields.append .CreateField("Campo Uno", dbtext, 60)
.fields.append .CreateField("Campo Dos", dbinteger)
.fields.append .CreateField("Campo Tres", dbBoolean)
.fields.append .CreateField("Campo Cuatro", dbtext, 60)
.fields.append .CreateField("Campo Cinco", dbtext, 60)
.fields.append .CreateField("Campo seis", dbcurrency)
.fields.append .CreateField("Campo Siete", dbdate)
.fields.append .CreateField("Campo Ocho", dbLong)
.fields.append .CreateField("Campo Nueve", dbtext, 60)
.fields.append .CreateField("Campo Diez", dbtext, 60)
.fields.append .CreateField("Campo Once", dbMemo)
.fields.append .CreateField("Campo Doce", dbtext, 60)
.fields.append .CreateField("Campo Trece", dbtext, 60)
.fields.append .CreateField("Campo Catorce", dbtext, 60)
End With
DB.tabledefs.append Tabla

Set Tabla = DB.CreateTableDef("Tabla Dos")

With Tabla
.fields.append .CreateField("Campo Uno", dbtext, 60)
.fields.append .CreateField("Campo Dos", dbinteger)
.fields.append .CreateField("Campo Tres", dbBoolean)
.fields.append .CreateField("Campo Cuatro", dbtext, 60)
End With
DB.tabledefs.append Tabla
DB.Close

End Sub