Club Builder

[Ignacio Perez]

Antes que nada unsaludo a todos...

Pues voy directamente al punto:
Quisiera saber si es posible crear una tabla en momento de ejecucion, y anexarle registros...

Esperando una respuesta.
Ignacio Perez

[Juan M Castillo]

Hola,

te comento:

void __fastcall TForm1::BotonCrearClick(TObject *Sender)

Tabla->DatabaseName = "BCDEMOS"; // El alias determina la localizacion del la tabla en el disco
Tabla->TableName = "Items.db";
Tabla->TableType = ttParadox; //Facilitamos el nombre de la tabla y el tipo

Tabla->FieldDefs->Add ("ID_GRUPO", ftString, 10, true);
..... // Y asi se añaden los campos.

TIndexOptions Opciones;
Opciones << ixPrimary << ixUnique;
Tabla->IndexDefs->Add ("IndiceGrupo", "ID_GRUPO", Opciones); // Añadimos un indice en el campo ID_GRUPO;

Tabla->CreateTable(); //Creamos la Tabla
Tabla->Open(); // o first(), o lo que quieras...

Por cierto tienes que poner un componente TTable en algun sitio, si no lo tienes claro, hazlo en un DataModule, entonces tendrias que cambiar el Tabla por DM->Tabla

Seguro que me he dejado algo, pero el tema es asi....

Espero que te ayude.... un saludo,

Juan

[Pedro]

Hola a todos:

Tambien puedes crear una tabla en tiempo de ejecucio sin tener que incluir el componente TTable. Tendrias que incluir una linea de
codigo similar a esta:

TTable *NewTable = new TTable();

De esta forma creas la tabla dinamicamente, sin tener que incluir ningun componente TTable en tiempo de diseño. La definicion de los campos la tendrias que hacer de la forma que te indica _leo.

Un saludo y espero que te sirva mi respuesta.

[Pedro otra vez]

Perdon, queria poner "Juan" en vez de "_leo".
Lo siento