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.
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
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)