probelmas con tablas TDbase

[mrmanuel]

Hola.

Tengo una serie de tablas, creadas con Delphi5. estas tablas son del Tipo TDbase. En teroia son del tipo DBase.

Pero cuando intento acceder a ellas desde el programa Dbase, me dice que dicho tipo no es reconicido.

como es posible. Es que delphi, no sabe crear tablas de este tipo, o es que hay q hacer algo extra.

Gracias

[jachguate]

Y cómo has creado las tablas con delphi???

Desde dbase que Versión estás tratando de abrirlas??

si no incluis toda la información necesaria está dificil que encontres ayuda. Te recomiendo que sigás el link que está abajo a la guia de estilo.... y la leas al menos una vez...

Hasta luego.

;)

[mrmanuel]

Hola.

La version de Dbase que uso es DBASE IV, e incluso lo he intentado con Visula DBase 5.

La forma de crear una tabla Dbase con Delphi, lo hago de la siguiente manera:

//Ubicacion de la tabla
F_Test_C.Tabla.DatabaseName := Directorio;

//Facilitamos el nombre de la nueva tabla y su tipo
F_Test_C.Tabla.TableName := FileName_Dbf;
F_Test_C.Tabla.TableType := TtDBase;

//Usamos la propiedad FieldDefs para definir los campos q contendrá la tabla
With F_Test_C.Tabla.FieldDefs Do Begin
Clear;
//Declaracion de los campos, con sus tipos y tamaños. El valor True/False nos indica si su valor será requerido siempre
Add('NUM_PREG', ftString, 2 , True);
Add('PREGUNTA', ftMemo , 1 , False);
Add('RESP_A' , ftMemo , 1 , False);
Add('RESP_B' , ftMemo , 1 , False);
Add('RESP_C' , ftMemo , 1 , False);
Add('FOTO' , ftString, TFoto_Const, False); //25
End;

//borramos indices anteriores
F_Test_C.Tabla.IndexDefs.Clear;

//Usamos la propiedad IndexDefs xa definir los índices.
F_Test_C.Tabla.IndexDefs.Add ('', 'Num_Preg', [ixUnique]);

//Creamos la tabla, despues de definir los datos
F_Test_C.Tabla.CreateTable;

[jachguate]

Aparentemente todo bien.

Quizás el problema sea un tipo de dato asignado por Delphi... has probado crear la tabla desde DBase y explorar los fields... a ver si hay alguna diferencia con lo que vos estás intentando??

Hasta luego.

;)