Текущий архив: 2006.01.15;
Скачать: CL | DM;

Вниз

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

← →
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"

---

← →
Digitman ©   (2005-12-22 14:18) [4]

> Id   (22.12.05 14:14) [3]


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

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.01.15;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.05 c