Неявно стартуемые транзакции [D5, IB5.x, ]
Hermit © (2001-12-05 11:38:00)
Никак немогу разобраться с субжем.
Имею Query, свойства которого CachedUpdates и RequestLive
установлены в True и на события AfterDelete и AfterPost навешена
процедура UpdateTable, приведенная ниже.
procedure TDataMod.UpdateTable(DataSet: TDataSet);
begin
with DataSet as TDBDataSet do
begin
Database.StartTransaction;
try
ApplyUpdates;
Database.Commit;
except
Database.Rollback;
CancelUpdates;
raise;
end;
CommitUpdates;
end;
end;
Все это прекрасно работает, но после перевода Query в режим
редактирования и последующем вызове ApplyUpdates появляется ошибка
"A user transaction is already in progress".
Очевидно, что при вызове Query.Edit неявно стартует
транзакция, но почему при вызове Query.Insert и последующем
подтверждении изменений такой ошибке не возникает?
User_OKA (2001-12-05 14:33:00) [1]
А если перед Database.StartTransaction проверять свойство
InTransaction?
Например,
if not TIBTransaction.InTransaction then
Database.StartTransaction;
Если неявная транзакция пошла, то StartTransaction
выполняться не будет.
Наверх 
ЧАТ |
Орешник |
|
