Exportar para texto
OLA PESSOAL.
Estou fazendo um programa onde tenho que exportar alguns dados de minha base em Interbase para um arquivo texto.
Como exportar estes dados???
Obrigado
SAKA
Estou fazendo um programa onde tenho que exportar alguns dados de minha base em Interbase para um arquivo texto.
Como exportar estes dados???
Obrigado
SAKA
Sakamuta
Curtidas 0
Respostas
Skaarj
19/02/2004
Eu faria da seguinte forma:
Faria a seleção dos dados a partir de uma Query [QuerySelect]
dae jogaria dentro de um memo [mais simplório impossivel] e salvaria:
var
iCont: integer;
begin
iCont:=1;
QuerySelect.Open;
while not QuerySelect.eof do
begin
memo1.lines.add(´Reg ´+inttostr(iCont)+QuerySelect.fieldbyname(´valor1´).asstring+QuerySelect.fieldbyname(´valor2´).asstring); //ae vai ate qntos campos forem
QuerySelect.Next;
Inc(iCont)
end;
memo1.lines.savetofile(´c:\windows\desktop\registros.txt´);
end;
Claro, não é necessário o Reg + iCont, é só pra situar o registro..
Faria a seleção dos dados a partir de uma Query [QuerySelect]
dae jogaria dentro de um memo [mais simplório impossivel] e salvaria:
var
iCont: integer;
begin
iCont:=1;
QuerySelect.Open;
while not QuerySelect.eof do
begin
memo1.lines.add(´Reg ´+inttostr(iCont)+QuerySelect.fieldbyname(´valor1´).asstring+QuerySelect.fieldbyname(´valor2´).asstring); //ae vai ate qntos campos forem
QuerySelect.Next;
Inc(iCont)
end;
memo1.lines.savetofile(´c:\windows\desktop\registros.txt´);
end;
Claro, não é necessário o Reg + iCont, é só pra situar o registro..
GOSTEI 0
Paulo_amorim
19/02/2004
Olá
http://delphiforum.icft.com.br/forum/viewtopic.php?t=36457
fora a extensao *.xls, isso se aplica à texto tambem...
eh a mesma coisa!
Espero que ajude
Até+
http://delphiforum.icft.com.br/forum/viewtopic.php?t=36457
fora a extensao *.xls, isso se aplica à texto tambem...
eh a mesma coisa!
Espero que ajude
Até+
GOSTEI 0