Inserção de dados entre banco de dados

17/02/2006

Boa Tarde,
Estou precisando do seguinte exemplo, possuo dois bancos de dados paradox e estou precisando fazer o seguinte:
No 1º BD tem varios registros com datas do mes de 01/2005, estou precisando migrar os dados do primeiro BD para o 2º somente dos registros quem possuim a data 01/2005. Eu gostaria somente de um exemplo de codigo de como fazer essa inserção de dados.


Misael

Respostas

17/02/2006

Paullsoftware

o código abaixo é só um exemplo de como pode ser...
   QyAntigo.Close;
   QyAntigo.SQL:=´SELECT * FROM SUATABELA WHERE DATA=:DATA_DESEJADA´;
   QyAntigo.ParamByName(´DATA_DESEJADA´).AsDate := DATE;// AQUI VEM SUA DATA
   QyAntigo.Prepare;
   QyAntigo.Open;
   QyAntigo.First
    while not QyAntigo.Eof do
      begin
       QyNovo.Close;
       QyNovo.SQL:=´SELECT * FROM SUA_NOVA_TABELA´;
       QyNovo.Insert;
       QyNovo.FieldByName(´CODIGO´).AsInteger := QyAntigo.FieldByName(´CODIGO´).AsInteger;
       QyNovo.FieldByName(´NOME´).AsString := QyAntigo.FieldByName(´NOME´).AsString;
       QyNovo.FieldByName(´DATA´).AsDateTime := QyAntigo.FieldByName(´DATA´).AsDateTime;
       // E ASSIM POR DIANTE
       QyNovo.Post;
       QyAntigo.Next;
      end;



Responder Citar