gerar tabela paradox

Delphi

19/11/2005

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


Voruss

Voruss

Curtidas 0

Respostas

Edilcimar

Edilcimar

19/11/2005

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


GOSTEI 0
Martins

Martins

19/11/2005

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!!


GOSTEI 0
POSTAR