Várias Query para Txt

Delphi

21/10/2005

Tenho que salvar o resultado de uma consulta em txt.
O problema é que dinamicamente recebo o resultado da consulta de uma Query diferente, ou seja, cada hora a quantidade de atributos muda.
Pergunta:
Tem como passar o conteúdo de uma QRY diretamente para um txt, sem ter que determinar atributo por atributo? Salvar em bloco ou linha a linha (registro)?

Grato

Pedro


Peununes

Peununes

Curtidas 0

Respostas

Peununes

Peununes

21/10/2005

Galera, consegui fazendo assim:

while not QRYAtiva.Eof do
begin
for i := 0 to QRYAtiva.RecordCount-1 do
begin

for j := 1 to QRYAtiva.FieldCount do
begin
memo1.lines.add(QRYAtiva.Fields[j-1].AsString);
end;

QRYAtiva.Next;

end;
end;

Só que ao invés de sair um registro por linha está saindo uma coluna por linha. Tem como resolver isso?


GOSTEI 0
Peununes

Peununes

21/10/2005

Galerinha, ficou assim:

mmToTxt.Clear;

while not QRYAtiva.Eof do
begin
for i := 0 to QRYAtiva.RecordCount-1 do
begin

ConctResultado := ´´;

for j := 1 to QRYAtiva.FieldCount do
begin
ConctResultado := ConctResultado + QRYAtiva.Fields[j-1].AsString + ´;´;
end;

mmToTxt.lines.add(ConctResultado);

QRYAtiva.Next;

end;
end;

mmToTxt.Lines.SaveToFile(deSalvarEm.Text + ´\´ + vrTitulo + ´.txt´);

Valeu!


GOSTEI 0
POSTAR