cервисы ValidateDB + ValidateFull

Tue, 07 Aug 2007 22:59:55 -0700 

поможите, люди добрые!
все сервисы нормально працують,
а с этим бяда...
задаю указанный набор опций, получаю

"please retry, specifying an option"

spb вот так формируется:

  Action := isc_action_svc_repair;
  if DatabaseName = '' then
    IBError(ibxeStartParamsError, [nil]);
  param := 0;
  if (SweepDB in Options) then param := param or isc_spb_rpr_sweep_db;
  if (ValidateDB in Options) then param := param or isc_spb_rpr_validate_db;
  ServiceStartParams  := Char(isc_action_svc_repair);
  ServiceStartAddParam (DatabaseName, SPBConstantValues[isc_spb_dbname]);
  if param > 0 then ServiceStartAddParam (param,
SPBConstantValues[isc_spb_options]);
  param := 0;
  if (LimboTransactions in Options) then param := param or
isc_spb_rpr_list_limbo_trans;
  if (CheckDB in Options) then param := param or isc_spb_rpr_check_db;
  if (IgnoreChecksum in Options) then param := param or
isc_spb_rpr_ignore_checksum;
  if (KillShadows in Options) then param := param or isc_spb_rpr_kill_shadows;
  if (MendDB in Options) then param := param or isc_spb_rpr_mend_db;
  if (ValidateFull in Options) then
  begin
     param := param or isc_spb_rpr_full;
     if not (MendDB in Options) then
       param := param or isc_spb_rpr_validate_db;
  end;
  if param > 0 then ServiceStartAddParam (param,
SPBConstantValues[isc_spb_options]);


Фёдоров Евгений.
ЗАО "Трест-М". Екатеринбург.

Ответить