exportar Banco de dados para um arquivo TXT

09/12/2003

1

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]


Responder

Posts

09/12/2003

Maicongabriel

Poderia ser algo mais ou menos assim:

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]


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira