Fórum Várias Query para Txt #300287
21/10/2005
0
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
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
Curtir tópico
+ 0
Responder
Posts
21/10/2005
Peununes
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?
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?
Responder
Gostei + 0
21/10/2005
Peununes
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!
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!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)