Exportar Txt/fb

[Guest - Marcelo -]

Amigos boa tarde !

Preciso fazer uma rotina para ler uma tabela firebird, gerar u marquivo de texto e carregar este arquivo de texto em uma outra tabela de mesma estrutura, mas em um bd diferente...

qualquer ajuda é bem vinda !!!

Marcelo

[shdw]

Faz as ligacoes do BD e da Tabela normal, eu usaria IBTable mesmo, já que é só pra exportacao.

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  F: TextFile;
	I: Integer;
begin
  AssignFile(F, 'Tabela.TXT');
	Rewrite(F);
  Table1.First;
	while not Table1.Eof do
   begin
      Writeln(F,'INSERT INTO SERVINPI (CODIGO, DESCRICAO, VALORCNPJ, VALORCPF) VALUES (|'+Table1CODIGO.Value+'|'+
              ',|'+(Trim(Table1DESCRICAO.Value))+'|'+
              ',|'+FloatToSTr(Table1VALORCNPJ.Value)+'|'+
              ',|'+FloatToSTr(Table1VALORCPF.Value)+'|);');
      Table1.Next;
  end;
  CloseFile(F);
end;

Pra importar você faz o contrario.

Le o txt...