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 :)
queria criar a tabela e adicionar os campos....
alguem sabe pode me dar um exemplo de como fazer isso?
valeu :)
Salsa
Curtidas 0
Respostas
Edilcimar
04/01/2006
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;
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;
GOSTEI 0