Creando una tabla paradox

weke · #1 11-05-2004

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.

marto · #2 11-05-2004

Wop!

En primer lugar y como veo que llevas pocos mensajes en el foro, me gustaría darte la bienvenida al club. También me gustaría aconsejarte que le eches un vistazo a la guia de estilo (link en la cabecera) ya que allí veras algunos consejos para que la convivencia sea mejor en el foro y para que consigas que los usuarios contesten antes a tus dudas.

Lo primero que deberías hacer es editar tu mensaje y ponerlo entre etiquetas "Delphi" para que éste aparezca indentado y resaltado y lo podamos seguir mejor. Tampoco estaría de más que nos aportases algo más de información: ¿Qué quiere decir que no se crea? ¿Te da algun error? ¿No compila? ¿Todo chuta pero no crea los ficheros?

weke · #3 11-05-2004

Muchas gracias por la bienvenida, la verad es que solo llevo por aqui 1 semanita más o menos. Tendré en cuenta lo del estilo a la hora de escribir mis próximos mensajes. Todavía no me he familiarizado demasiado con la forma de plantear lor problemas.

Te explico: lo que me sucede es que no se crea el archivo .db (o lo que es lo mismo, no se crea la tabla). Por eso me extraña, porque no da ningún error de compilación, ni cuando lo ejecuto, simplemente hace el código y se acaba el procedimiento, pero sin generar la tabla.

Aqui te vuelvo a poner el código, espero que esta vez se vea más claro:

Código:

//***** 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 tienes alguna duda más, pregunta que intentaré responderte lo mejor posible.

Gracias otra vez.

__cadetill · #4 11-05-2004

Hola

No veo que asignes el DatabaseName del TTable, que no venga por ahí el error.

Por otro lado, la verdad es que nunca he creado los campos e índices con AddFieldDef o AddIndexDef, siempre he usado el método Add (tanto de FieldDefs como de IndexDefs) y nunca he tenido problemas. Si formato sería...

Código Delphi [-]//***** Definimos los campos que tendrá la nueva tabla *****//
Table2.FieldDefs.Clear;
Table2.FieldDefs.Add('Nombre', ftString, 10);
Table2.FieldDefs.Add('Formato', ftString, 10);
 
//***** Definimos la clave primaria de la tabla *****//
Table2.IndexDefs.Clear;
Table2.IndexDefs.Add('', 'Nombre', [ixPrimary]);

Se que es lo mismo y que debería de funcionar a tu manera, pero pueba esto

marto · #5 11-05-2004

Pues yo no veo tan claro que los dos códigos hagan lo mismo

Me voy a tirar a la piscina a riesgo de que no haya agua, ya que no tengo aqui Delphi y yo también lo he hecho siempre como comenta Cadetill.
Por lo que digo que no me parece lo mismo es porque AddIndexDef tiene toda la pinta de ser un método que añada elíndice y devuelva un puntero al mismo. Si llamas al método más de una vez, añadirás más de un indice. El mismo cuento lo puedes aplicar a AddFieldDef.

Si no estoy desvariando y la cosa funciona como he dicho (que no lo sé), podría funcionar lo siguiente:

Código Delphi [-]  with Table2.FieldDefs.AddFieldDef do
  begin
    Name:='Nombre';
    DataType:=ftString;
    Required:=true;
  end;

Con eso creas uno de los campos... para el resto copy&paste

[/delphi]

weke · #6 12-05-2004

Muchas gracias. Lo he hecho de la forma que me indicó cadetill, bueno, como lo haceis los 2 y de esa manera si que me la crea bien.

La otra opción que me indicas, marto, si me da tiempo a probarla ya te dire algo por aquí, aunque si no recuerdo mal, me parece haberlo visto en algún ejemplo, o algo similar. No estoy muy seguro, pero bueno.

Un saludo y gracias otra vez a todos.