como criar tabelas paradox em runtime...
04/01/2006
0
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
Curtir tópico
+ 0
Responder
Posts
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;
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
Clique aqui para fazer login e interagir na Comunidade :)