Criar txt atravez de uma tabela. Como????

Delphi

05/09/2003

Olá amigos o forum queria saber como pegar os campos de uma tabela e exportá-los para uma txt e vice versa.

Tenho uma tabela com 5 campos codigo, nome, endereco, telefone, situacao. e queria jogá-los em um txt, como ficaria isso? Sendo que preciso saber também o caminho inverso, como trazer do txt para uma tabela


Trabalho com interbase e FireBird.


Quem puder me ajudar ficarei muito grato.

T+


Ecie

Ecie

Curtidas 0

Respostas

Silviogs

Silviogs

05/09/2003

Olá,

mande-me um e-mail, vou te enviar uma rotina para pegar txt para a base de dados. Neste caso use a rotina de forma inversa para gerar o txt.


Atenciosamente


Silvio Guedes.
silvio.guedes@ig.com.br


GOSTEI 0
Host

Host

05/09/2003

Tem mais do que precisa, mas basicamente pega um arquivo pelo OpenDialog1.Filename, e depois abre fomatando para 300 bytes de length de registro par os campos Arq, cod, desc, quant, preco e lixo;


Arq : TextFile;
cod: string[13];
desc: string[40];
quant: string[6];
preco: string[10];
lixo: string[231];
excel: Variant;
Calc2: String;
Calc3: Real;
Calc,i: Integer;
VerifyInTable,VerifyInArq,nomearq: string;
Label Jump;

begin
Memo1.Clear;
excel:=CreateOleObject(´Excel.Application´);
excel.Workbooks.add(1);
Calc:=0;

if OpenDialog1.Execute then
begin
nomearq:=OpenDialog1.Filename;
Label1.Caption:=ExtractFileName(nomearq);
AssignFile(Arq, OpenDialog1.Filename);
Reset(Arq);
while not Eof(Arq) do
begin
Calc3:=Calc3+1;
Read(Arq, cod, desc, quant, preco, lixo);
if pos(´/´, cod) <> 0 then // achou registro do outro tipo
break;
end;
Calc3:=int((100/Calc3));
Calc2:=FloatToStr(Calc3);
Calc:=StrToInt(Calc2);
Reset(Arq);
i := 1;
while not Eof(Arq) do
begin
Read(Arq, cod, desc, quant, preco, lixo);
if pos(´/´, cod) <> 0 then // achou registro do outro tipo


GOSTEI 0
POSTAR