VIL
27 de Mayo del 2004

HOLA, ETOY HACIENDO UNA INSERCION D UNA TABLA CON CAMPOS EN VISUAL VASIC 6.0 Y M SUCEDE LO SIGUIENTE AL INSERTAR LOS CAMPOS, SI LO HAGO ASI TODO VA BIEN

Dim DB As Database
Dim Cam As Field
Dim Tabla As TableDef

Set DB = OpenDatabase("C:Documents and SettingsdiegoEscritoriopruebaJAJAbdbd1.mdb")

Set Tabla = DB.CreateTableDef("Tabla uno")
With Tabla
.Fields.Append .CreateField("Campo Uno", dbText, 60)
End With
DB.TableDefs.Append Tabla
DB.Close

PERO SI LO HAGO ASI NO VA PQ?

Dim DB As Databas
Dim Fd As Field
Dim Tb As TableDef
Set DB = OpenDatabase("C:Documents and SettingsdiegoEscritoriopruebaJAJAbdbd1.mdb")

Set Tb = DB.CreateTableDef("Tareas")
'AQUI DA EL ERROR
Set Fd = Tb.CreateField("Terminada", dbInteger)
Tb.Fields.Append Fd
DB.TableDefs.Append Tb
DB.Close

SI ALGUIEN SABE PQ SI LO DEFINO CONO FIELD M DA UN ERROR Q M LO CUENTE A CASO NO ES D D TIPO FIELD LA VARIABLE ?? GRACIAS

Jose Oscar
27 de Mayo del 2004

Okey...
Solo puedes agragar Fields a un objeto Tabledefs....

Tabledefs("Tabla1 "). fiels.append
No puedes defionir in objeto Fields y agregarle otro objeto Fieldsd

Dim Camp as Field

Camp.Field.Append ObjetoCampo

La base de datos contiene tablas, y estas tablas son contenedoras de campos, pero los campos no son contenedores de otros campos, y el metodo APPEND falla

Con algubos errores de sintaxis, pero creo haberlo explicado +o- bien, joder!!!! que has errores de sintaxis jajajaja.

un saludo
Jose Oscar