Текущий архив: 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.44 MB
Время: 0.011 c
