exportar Banco de dados para um arquivo TXT
09/12/2003
0
Olá pessoal...
Alguem tem alguma materia de como q eu posso Exportar uma tabela
para um arquivo TXT
Eu fiz um para exportar para um MEMO e depois eu copiava para o ARquivo TXT, So que a tabela contem muito regsitros e quando chega em um certo ponto, O MEMO trava, a solução q eu encontrei é exportar dire
Espero que tenha explicado direito a minha Dúvida.
[b:d2a3512929]Um abraçop para TODOS
Jonatas Simoes
UIN
74021632[/b:d2a3512929]
Alguem tem alguma materia de como q eu posso Exportar uma tabela
para um arquivo TXT
Eu fiz um para exportar para um MEMO e depois eu copiava para o ARquivo TXT, So que a tabela contem muito regsitros e quando chega em um certo ponto, O MEMO trava, a solução q eu encontrei é exportar dire
Espero que tenha explicado direito a minha Dúvida.
[b:d2a3512929]Um abraçop para TODOS
Jonatas Simoes
UIN
74021632[/b:d2a3512929]
Jonatassimoes
Curtir tópico
+ 0
Responder
Posts
09/12/2003
Maicongabriel
Poderia ser algo mais ou menos assim:
Mas neste caso ele só cria o arquivo e joga os dados, caso o arquivo já exista vc preciza utilizar o [b:8eef998685]Append(tfArq)[/b:8eef998685] no lugar de [b:8eef998685]Rewrite(tfArq)[/b:8eef998685]
var
tfArq: TextFile;
begin
AssignFile(tfArq, ´C:\Tabela.txt´);
Rewrite(tfArq);
Tabela.First;
for i := 0 to Tabela.RecordCount-1 do
begin
Writeln(tfArq, ´...´);
Tabela.Next;
end;
CloseFile(tfArq);
end;Mas neste caso ele só cria o arquivo e joga os dados, caso o arquivo já exista vc preciza utilizar o [b:8eef998685]Append(tfArq)[/b:8eef998685] no lugar de [b:8eef998685]Rewrite(tfArq)[/b:8eef998685]
Responder
10/12/2003
Tchoninho
Experimente exportar usando o Quick Report, utiliza um componente e o código é no máximo três linha se vc quiser me mande um e-mail.
[url]tchoninho@bol.com.br[/url]
[url]tchoninho@bol.com.br[/url]
Responder
Clique aqui para fazer login e interagir na Comunidade :)
