[Resolvido] Comparação de Dados

Bom dia a todos,

bom... preciso verificar dados entre dois banco de dados. Eles são idênticos. Preciso verificar se o segundo banco de dados tem algum registro que o primeiro banco de dados não tenha e se tiver que seja copiado para o primeiro. Tenho esse código abaixo no onclick de um botão mas ele só pega um registro diferente os outros não são copiados. O que fazer? Meus bancos de dados são access 2003 com componentes ADOTable e DataSource. Preciso que os dados da tabela DM.TBL_AMIGOS_SERVIDOR, que não existam na tabela DM.TBL_AMIGOS, sejam copiados para a tabela DM.TBL_AMIGOS.

 DM.CONEXAO_SERVIDOR.Connected := True;

 DM.TBL_AMIGOS_SERVIDOR.Open;

 DM.TBL_AMIGOS_SERVIDOR.First;

 

 DM.TBL_AMIGOS.Open;

 DM.TBL_AMIGOS.First;

 

 While not DM.TBL_AMIGOS.Eof do

 begin

 

 Repeat

 

 if not (DM.TBL_AMIGOS.Locate('RG', DM.TBL_AMIGOS_SERVIDOR.FieldByName('RG').AsString,[])) then

 begin

 

 DM.TBL_AMIGOS.Insert;

 DM.TBL_AMIGOS.FieldByName('Nome').AsString := DM.TBL_AMIGOS_SERVIDOR.FieldByName('Nome').AsString;

 DM.TBL_AMIGOS.FieldByName('RG').AsString := DM.TBL_AMIGOS_SERVIDOR.FieldByName('Titulo').AsString;

 DM.TBL_AMIGOS.Post;

 

 end;

 

 DM.TBL_AMIGOS.Next;

 

 Until DM.TBL_AMIGOS.Eof;

 

 end;

 

 

 DM.CONEXAO_SERVIDOR.Connected := False;

 DM.TBL_AMIGOS.Close;

 DM.TBL_AMIGOS.Open;