Duvida: transformar sentença SQL em arquivo .TXT
01/02/2006
0
Ex: tenho a sentença:
Select * from clientes
Resultado:
codigo nome endereco cidade
01 XXXXXXXX CCCCC
02 ZZZZZZZZ BBBBBB
Preciso pegar o resultado desta sentença e transformar em txt:
clientes.txt
01;XXXXXXXXX;CCCCC
02;ZZZZZZZZZ;BBBBBB
Se alguem puder me ajudar eu agradeço.
Obrigado.
Mfilho
Posts
01/02/2006
Aroldo Zanela
Comecei fazer a rotina, mas tenho que ir para uma reunião agora. Se não conseguir terminar o ´raciocício´ usado, informe aqui.
var n, i: Integer;
linedata: TStringList;
arquivo: TStringList;
begin
qryDemos.Open;
n := qryDemos.FieldCount;
linedata := TStringList.Create;
arquivo := TStringList.Create;
linedata.Delimiter := ´;´;
linedata.QuoteChar := ´"´;
while not qryDemos.Eof do
begin
linedata.Clear;
for i := 0 to n-1 do
begin
linedata.Add(qryDemos.Fields[i].AsString);
end;
arquivo.Add(linedata.DelimitedText);
qryDemos.Next;
end;
arquivo.SaveToFile(´c:\lixo.txt´);
ShowMessage(´Ok´);
end;
01/02/2006
Rodolpho123
01/02/2006
Motta
01/02/2006
Mfilho
linedata.Delimiter := ´;´;
linedata.QuoteChar := ´´´;
arquivo.Add(linedata.DelimitedText);
[Error] Unit1.pas(39): Undeclared identifier: ´Delimiter´
o mesmo nas outras 2 linhas.
01/02/2006
Aroldo Zanela
Qual versão do Delphi que você está usando? Acho que essa propriedade foi introduzida a partir do Delphi 6.
01/02/2006
Mfilho
O que poderia utilizar no lugar ou como ficaria a rotina sem essas funções.
Nem imagino como possa ficar.
Se puderem me ajudar agradeço.
Obrigado
Clique aqui para fazer login e interagir na Comunidade :)
