04/01/2006

como criar tabelas paradox em runtime...

Como crio tabelas paradox em run time...

queria criar a tabela e adicionar os campos....

alguem sabe pode me dar um exemplo de como fazer isso?


valeu :)


Salsa

Respostas

04/01/2006

Edilcimar

Table1 := TTable.Create(Self);
Table1.TableName := NomeTemp ;
Table1.TableType := ttParadox;
With Table1.FieldDefs do
Begin
Clear;
Add(´Campo1´,ftAutoInc,0,False);
Add(´Campo2´,ftString,13,False);
Add(´Campo3´,dtFloat,0,False);
Add(´Campo4´,ftInteger,0,False);
End;
Table1.CreateTable;


Responder Citar