Непонятки с транзакцией

← →
Id (2005-12-22 12:39) [0]

procedure TForm1.Button2Click(Sender: TObject); begin IBTransaction1.StartTransaction; try IBDataSet1.Edit; IBDataSet1.Post; except IBTransaction1.Rollback; ShowMessage("1"); end; try IBTransaction1.Commit; except IBTransaction1.Rollback; ShowMessage("2"); end; end;
При запуске процедуры ошибка.
Подскажите откуда ошибка

← →
Sergey13 © (2005-12-22 12:43) [1]

2Id (22.12.05 12:39)
>Подскажите откуда ошибка
Из компьютера. 8-)

← →
Digitman © (2005-12-22 12:47) [2]

> откуда

от верблюда.

Паскаль нужно чтить как "Отче наш".

procedure TForm1.Button2Click(Sender: TObject);
begin
IBTransaction1.StartTransaction;
try
IBDataSet1.Edit;
IBDataSet1.Post;
IBTransaction1.Commit;
ShowMessage("Транзакция успешно подтверждена");
except
on e: Exception do begin
IBTransaction1.Rollback;
ShowMessage("Транзакция претерпела откат ! Причина :" + e.classname + " " + e.message);
end;
end;

← →
Id (2005-12-22 14:14) [3]

Ошибка в строке IBTransaction1.StartTransaction ;
Пишет - "Transaction is active"

> Id (22.12.05 14:14) [3]

и что не понятно при этом ?

Transaction is active - значит, транзакция уже активна ..

Непонятки с транзакцией Найти похожие ветки