Criar Tabela DBF

Delphi

10/10/2003

Alguém tem alguma sugestão de como posso criar um DataPump de uma tabela do Interbase para uma tabela DBF em tempo de execução.
Preciso criar a tabela em DBF e inserir os dados nela.

Qualqur idéia ajudará bastante

Obrigado


Ricardo Barbosa

Ricardo Barbosa

Curtidas 0

Respostas

P_lima

P_lima

10/10/2003

Com esta linha de comando vc pode criar uma tabela, foi o que eu entendi
um abraço.

//// Criar tabela

with Tabela do
begin
Close;
DatabaseName:=´c:\contatos´;
TableName:=´Contatos´;
TableType:=ttDbase;
//
FieldDefs.Clear;
FieldDefs.Add(´CODIGO´ ,ftAutoInc,0,false);
FieldDefs.Add(´CONTATO´,ftString,50,false);
FieldDefs.Add(´FONE´ ,ftString,12,false);
FieldDefs.Add(´CURSO´ ,ftString,20,false);
FieldDefs.Add(´OBS´ ,ftMemo,100,false);
//
IndexDefs.Clear;
IndexDefs.Add(´CODIGO´,´CODIGO´,[ixPrimary,ixUnique]);
IndexDefs.Add(´CONTATO´,´CONTATO´,[ixUnique]);
CreateTable;
Open;
end;


GOSTEI 0
POSTAR