gerar tabela paradox
19/11/2005
0
Como fazer para gerar uma tabela PARADOX atraves de um script SQL ??
Voruss
Curtir tópico
+ 0
Responder
Posts
19/11/2005
Edilcimar
Table1 := TTable.Create(Self);
Table1.TableName := Diretorio + NomeTemp ;
Table1.TableType := ttParadox;
With Table1.FieldDefs do
Begin
Clear;
Add(´Item´,ftInteger,0,False);
Add(´Produto´,ftString,40,False);
Add(´Data´,ftDate,0,False);
Add(´Quantidade´,ftFloat,0,False);
End;
Table1.CreateTable;
um exemplo com diversos tipo de campos
Table1.TableName := Diretorio + NomeTemp ;
Table1.TableType := ttParadox;
With Table1.FieldDefs do
Begin
Clear;
Add(´Item´,ftInteger,0,False);
Add(´Produto´,ftString,40,False);
Add(´Data´,ftDate,0,False);
Add(´Quantidade´,ftFloat,0,False);
End;
Table1.CreateTable;
um exemplo com diversos tipo de campos
Responder
20/11/2005
Martins
Como fazer para gerar uma tabela PARADOX atraves de um script SQL ??
Tente assim:
Query1.Close; Query1.Sql.Text := ´Selec * from Clientes´; Query1.Open DBIMakePermanent(Query1.Handle, ´Nome-Da-Tabela.db´, True); Query1.Close;
PS: Não esqueça de acrescentar na clausula USES a unit BDE.
Boa sorte!!
Responder
Clique aqui para fazer login e interagir na Comunidade :)