gerar tabela paradox

19/11/2005

0

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


Voruss

Voruss

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar