Subject | RE: Utils IB_RPL Error |
---|---|
Author | |
Post date | 2013-11-06T19:51:05Z |
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