[Resolvido] Comparação de Dados

[Lívio Bruno 0]

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;

[Angelo Bassay 0]

While not DM.TBL_AMIGOS.Eof do

 

Aqui deveria fazer acesso aos dados do servidor (tbl_amigos_servidor), e não locais.

 

Outra coisa, você não precisa da estrutura repeat/until, apenas o while é suficiente.

[Lívio Bruno 0]

Valeu amigão é isso mesmo. Muito obrigado pela ajuda.

 

 

Aqui deveria fazer acesso aos dados do servidor (tbl_amigos_servidor), e não locais.

 

Outra coisa, você não precisa da estrutura repeat/until, apenas o while é suficiente.