Ver Mensaje Individual
  #3  
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
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.

Última edición por weke fecha: 11-05-2004 a las 14:58:28.
Responder Con Cita