Array
(
)

Inserção de dados entre banco de dados

Misael
   - 17 fev 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.


Paullsoftware
   - 17 fev 2006

o código abaixo é só um exemplo de como pode ser...
#Código

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;