Creando una tabla paradox
Pues vereis, lo que pasa es que no se me crea la tabla en cuestión.
He seguido algunos paso que he leido en otros hilos, pero no parece funcionar.
A continuación pongo lo que hago a la hora de generar la tabla:
//***** Le asignamos el nombre y el tipo a la tabla *****//
Table2.TableType := ttParadox;
Table2.TableName := nombre_tabla;
Table2.FieldDefs.Clear;
//***** Definimos los campos que tendrá la nueva tabla *****//
Table2.FieldDefs.AddFieldDef.Name:='Nombre';
Table2.FieldDefs.AddFieldDef.DataType:=ftString;
Table2.FieldDefs.AddFieldDef.Required:=true;
Table2.FieldDefs.AddFieldDef.Name:='Formato';
Table2.FieldDefs.AddFieldDef.DataType:=ftString;
Table2.FieldDefs.AddFieldDef.Required:=false;
//***** Definimos la clave primaria de la tabla *****//
Table2.IndexDefs.Clear;
Table2.IndexDefs.AddIndexDef.Name:='';
Table2.IndexDefs.AddIndexDef.Fields:='Nombre';
Table2.IndexDefs.AddIndexDef.Options:=[ixPrimary];
//***** Creamos la nueva tabla *****//
Table2.CreateTable;
Si me falta algún paso o hago alguno mal, indicármelo.
Muchas gracias y un saludo.
|