Subject | [IBO] Replication project |
---|---|
Author | ctc@matrix.com.br |
Post date | 2001-11-29T19:22:07Z |
Hi,
I'm trying to use Replication project from IBO, but instead of using Resync Index for each Index, I want to Resync all of them in the target database, so I created a procedure called Resync_All. If I Resync index by index, it is ok, it is all Loaded and all, but when I try this...
*************
procedure TfrmRPL.Resync_All;
begin
try
rplMeta.ReplicatorIndexName := 'IDX_CLINIC';
if not rplMeta.IsMetaLoaded then rplMeta.LoadIndexMeta; <<<<<<<Error
{When it reaches here the exception is: 'Invalid status to load this index metadata from'}
{On GetisMetaLoaded status = ''}
rplMeta.ResyncIndex;
rplMeta.ReplicatorIndexName := 'IDX_PROFIS';
if not rplMeta.IsMetaLoaded then rplMeta.LoadIndexMeta;
rplMeta.ResyncIndex;
... {all other indices}
except
inherited;
end;
end;
*****************
What am I doing wrong here? (for sure there is...)
Thanks.
Ricardo Costa
Agenda Digital
Florianopolis - SC
www.agenda-digital.com
I'm trying to use Replication project from IBO, but instead of using Resync Index for each Index, I want to Resync all of them in the target database, so I created a procedure called Resync_All. If I Resync index by index, it is ok, it is all Loaded and all, but when I try this...
*************
procedure TfrmRPL.Resync_All;
begin
try
rplMeta.ReplicatorIndexName := 'IDX_CLINIC';
if not rplMeta.IsMetaLoaded then rplMeta.LoadIndexMeta; <<<<<<<Error
{When it reaches here the exception is: 'Invalid status to load this index metadata from'}
{On GetisMetaLoaded status = ''}
rplMeta.ResyncIndex;
rplMeta.ReplicatorIndexName := 'IDX_PROFIS';
if not rplMeta.IsMetaLoaded then rplMeta.LoadIndexMeta;
rplMeta.ResyncIndex;
... {all other indices}
except
inherited;
end;
end;
*****************
What am I doing wrong here? (for sure there is...)
Thanks.
Ricardo Costa
Agenda Digital
Florianopolis - SC
www.agenda-digital.com