gerar tabela paradox

19/11/2005

1

Como fazer para gerar uma tabela PARADOX atraves de um script SQL ??


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


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