Inser��o de dados entre banco de dados

Question

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 migr...

Paullsoftware · Answer

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;