Atualizar banco com novos registros

19/09/2014

Ol� pessoal,

Estou com uma d�vida: Tenho dois bancos, um sqlite e um mysql, o que quero fazer � que para cada registro lido, ele verifique se o campo cnpj existe no mysql, isso quando estiver exportando pela segunda vez novos registros. Caso n�o tenha ele insira. Consegui bolar a l�gica mas como t� perdido em como implementar no c�digo. Segue o mesmo para tentarem me ajudar:

procedure TForm1.btnExportarDadosClick(Sender: TObject);
begin
  SqliteQuery.Close;
  SqliteQuery.Open;
  SqliteQuery.first;
  while not SqliteQuery.Eof do
  begin
    if MysqlQueryCNPJ.Value <> 0 then
      begin
      try
        MysqlQuery.Insert;
        MysqlQueryCNPJ.value := SqliteQueryCNPJ.value;
        MysqlQueryNOME.value := SqliteQueryNOME.value;
        MysqlQueryENDERECO.value := SqliteQueryENDERECO.value;
        MysqlQueryTELEFONE.value := SqliteQueryTELEFONE.value;
        MysqlQuery.Post;
      except
        on E: Exception do
        begin
          showmessage (E.message);
          if MysqlQuery.State = dsinsert then
            MysqlQuery.Cancel;
          break;
        end;
      end;
    SqliteQuery.edit;
    SqliteQueryEXPORT.Value := 'S';
    SqliteQuery.post;
    SqliteQuery.next;
      end;
  end;
end;

Yuri Neves

Curtir t�pico + 0

Responder