URGENTE!!! Como crear tablas Access
Publicado por mamila (23 intervenciones) el 19/04/2005 15:16:08
Hola,
Ya se que el crear tablas en access es sencillo, pero lo que necesito es poder crear una tabla con campos tipo string que tengan propiedad "Permitir longitud cero=SI".
Lo que pasa es que por defecto la propiedad es NO y esto me crea errores posteriores en mi aplicacion.
Por si sirve de algo, la forma que uso para crear las tablas es la siguiente:
....
Set tNuevo = dat.CreateTableDef("MiTabla")
With tNuevo
.Fields.Append .CreateField("Codigo", dbText, 10)
.Fields.Append .CreateField("Descripcion", dbText, 50)
.Fields.Append .CreateField("Cantidad", dbLong)
.Fields.Append .CreateField("Valor_1", dbText, 5)
.Fields.Append .CreateField("Valor_2", dbText, 5)
.Fields.Append .CreateField("Valor_3", dbText, 5)
End With
dat.TableDefs.Append tNuevo
.....
Gracias
Ya se que el crear tablas en access es sencillo, pero lo que necesito es poder crear una tabla con campos tipo string que tengan propiedad "Permitir longitud cero=SI".
Lo que pasa es que por defecto la propiedad es NO y esto me crea errores posteriores en mi aplicacion.
Por si sirve de algo, la forma que uso para crear las tablas es la siguiente:
....
Set tNuevo = dat.CreateTableDef("MiTabla")
With tNuevo
.Fields.Append .CreateField("Codigo", dbText, 10)
.Fields.Append .CreateField("Descripcion", dbText, 50)
.Fields.Append .CreateField("Cantidad", dbLong)
.Fields.Append .CreateField("Valor_1", dbText, 5)
.Fields.Append .CreateField("Valor_2", dbText, 5)
.Fields.Append .CreateField("Valor_3", dbText, 5)
End With
dat.TableDefs.Append tNuevo
.....
Gracias
Valora esta pregunta


0