Subject RE: Utils IB_RPL Error
Author

Hello,

put into IBF_RPL.pas two rows:


procedure TfrmRPL.btLoadMetaClick(Sender: TObject);
var
  bk: RawByteString;
begin
  qIND.CheckBrowseMode;
  qIND.BeginBusy( false );
  try
    if rplMeta.IsMetaLoaded then
    begin
      try
        qIND.DisableControls;
        bk := qIND.Bookmark;
        cSRC.Disconnect;
        cSRC.Connect;
  ---->>>      cRPL.Disconnect;
 ---->>>       cRPL.Connect;

        qIND.FreeServerResources;
        tIND.Commit;
        rplMeta.DropIndexMeta;
      finally
        qIND.Open;
        qIND.Bookmark := bk;
        qIND.EnableControls;
      end;
    end
    else
    begin
      cSrc.Connect;
      rplMeta.LoadIndexMeta;
    end;
    qIND.InvalidateRowNum( qIND.RowNum );
    RefreshButtons;
  finally
    qIND.EndBusy;
  end;
end;


Second problem is that if you push button <Resync Queue> than procced actions INSERT and DELETE,

but UPDATE fields doesn't work...


Jan



---In ibobjects@yahoogroups.com, <fabianmariok@...> wrote:

Hello:
I'm trying to make a DB replication IB_RPL the utility by following the steps in the help, but in step three (LOAD METADATA), the following error occurs "ISC ERROR CODE: 335544351 ISC ERROR MESSAGE: unsuccessful metadata update STORE RDB $ FIELDS failed STATEMENT: scSRCLoadMeta. <unspecified> name> (TIB_DSQL) ".
Making a debug, the error occurs in the line rplMeta.LoadIndexMeta, the button "btLoadMeta".
I have Embarcadero RAD Studio XE3 Version 17.0.4625.53395, IBO 5.2.0.b6 and Firebird 2.5

I could give some kind of help for this problem.

Thank you.

Fabian Kruszelnicki