Converter dados de tabela firebird para Txt
Bom dia,
Criei a seguinte rotina para converter os dados de uma tabela firebird para txt. Consigo fazer a conversão, mas tenho um pequeno problema:
- preciso fazer o arquivo texto , com um registro por linha
Alguém saberia me dizer como fazer isto?
Aqui está o código :
while not dm.ClientDataSet1.EOF do
begin
Write (F,dm.ClientDataSet1Razao.asstring+´,´);
Write (F,dm.ClientDataSet1Fax.asstring+´,´);
<-----------enter aqui ????
dm.ClientDataSet1.Next;
end;
Ou talvez alguém conheça algum componente para fazer exportação de dados que realmente funcione.(Tentei PgCSV e não funcionou.)
Um abraço.
Criei a seguinte rotina para converter os dados de uma tabela firebird para txt. Consigo fazer a conversão, mas tenho um pequeno problema:
- preciso fazer o arquivo texto , com um registro por linha
Alguém saberia me dizer como fazer isto?
Aqui está o código :
while not dm.ClientDataSet1.EOF do
begin
Write (F,dm.ClientDataSet1Razao.asstring+´,´);
Write (F,dm.ClientDataSet1Fax.asstring+´,´);
<-----------enter aqui ????
dm.ClientDataSet1.Next;
end;
Ou talvez alguém conheça algum componente para fazer exportação de dados que realmente funcione.(Tentei PgCSV e não funcionou.)
Um abraço.
Dli
Curtidas 0
Respostas
Steve_narancic
15/09/2005
while not dm.ClientDataSet1.EOF do begin Write (F,dm.ClientDataSet1Razao.asstring+´,´); Write (F,dm.ClientDataSet1Fax.asstring+´,´); Write(F,´´); <-----------enter aqui ???? dm.ClientDataSet1.Next; end;
Acho que é [b:1d3bc5cda1]WriteLn[/b:1d3bc5cda1]
GOSTEI 0
Beto_martini
15/09/2005
tente o seguinte:
while not dm.ClientDataSet1.EOF do
begin
writeln(F,dm.ClientDataSet1Razao.asstring+´,´+dm.ClientDataSet1Razao.asstring);
dm.ClientDataSet1.Next;
end;
while not dm.ClientDataSet1.EOF do
begin
writeln(F,dm.ClientDataSet1Razao.asstring+´,´+dm.ClientDataSet1Razao.asstring);
dm.ClientDataSet1.Next;
end;
GOSTEI 0
Dli
15/09/2005
Valeu Beto,
Funcionou beleza.
Obrigado a todos.
dli.
Funcionou beleza.
Obrigado a todos.
dli.
GOSTEI 0