вот такой код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
// создание объекта trLock: TIBTransaction с константами read_committed rec_version nowait
try
try
// UPDATE одной всегда существующей записи
except
on E: Exception do begin
ShowMessage( E.Message );
Exit;
end;
end;
// Выполнение операции (максимум несколько секунд)
finally
if trLock.InTransaction then trLock.Rollback;
trLock.Free;
end;
служит для того, чтобы исключить возможность одновременного выполнения определенной операции (с разных клиентов).
Так вот. Всё работает отлично, но, к сожалению, не всегда. Иногда, после определенного (достаточно длительного) периода работы программы исключение deadlock начинает происходить всегда. Лечится обычно закрытием всех клиентов, и затем - открытием.
Мне что-то подсказывает, что дело в многократном Rollback для одной и той же записи(остается много мусора, где-то у чего-то (временно) "башню сносит" и т.п.). Но на Commit переходить не совсем получается - при коммите эта запись будет отмечена триггером, как необходимая для репликации в центральную базу, а этого очень не хотелось бы - эти операции проходят часто, примерно раз в минуту, а запись на самом деле не меняется (SET TERMINAL_ID=TERMINAL_ID).
Да и не факт, что переход на Commit поможет.
Вопросы: как лучше всего попытаться решить данную проблему? В чём "на самом деле" проблема?
Firebird 2.1.1.17910
