Ver Mensaje Individual
  #1  
Antiguo 11-05-2004
Avatar de weke
weke weke is offline
Miembro
 
Registrado: may 2004
Ubicación: Valencia
Posts: 170
Reputación: 21
weke Va por buen camino
Post 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.
Responder Con Cita