Inserção de dados entre banco de dados

17/02/2006

0

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

Misael

Responder

Posts

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar