Delphi - crear tabla en tiempo de ejecucion...

 
Vista:

crear tabla en tiempo de ejecucion...

Publicado por çaio (3 intervenciones) el 07/07/2001 22:37:56
hola.-
es simple lo que pregunto:
como crear tablas (*.mdb) en tiempo de ejecucion?

probé con:(en el evento bottonClick)

CREATE TABLE "mitabla.mdb"
( colum1 CHAR(20), colum 2 CHAR(20))

y no funciono.-

gracias.-
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:crear tabla en tiempo de ejecucion...

Publicado por Luck Ibarra (78 intervenciones) el 08/07/2001 07:37:27
Aqui esta la respuesta a tu pregunta

procedure TForm1.Button1Click(Sender:TObject);
begin
if not Table1.Exists then
begin
Table1.Active := FALSE;
{Aqui el Alias}
Table1.DatabaseName := 'Alias';
Table1.TableType := ttParadox;
{Aqui el nombre de la tabla}
Table1.TableName := 'Nombre de la Tabla';
with Table1.FieldDefs do
begin
Clear;
Add('IntegerField', ftInteger, 0, FALSE);
Add('StringField' , ftString , 30, FALSE);
Add('LogicalField', ftBoolean, 0, FALSE);
Add('FloatField' , ftFloat , 0, FALSE);
Add('DateField' , ftDate , 0, FALSE);
Add('TimeField' , ftTime , 0, FALSE);
end;
Table1.CreateTable;
end;
end;

Asi es.. Espero y te Sirva :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar