Помогите обработать ошибку

← →
ruslan_as © (2003-07-17 16:48) [0]

Помогите разобраться с обработкой ошибки. Клиентом заносится записи в базу данных Oracle. При нарушении уникальности выскакивает ошибка ORA-00001. Как обработать эту ошибку и запустить вместо нее свою процедуру (MyProcedure).

Спасибо всем отозвавшимся!

← →
Skier © (2003-07-17 16:52) [1]

Наверняка есть какое-то событие у компонента для работы с Oracle, которое вызывается в случае ошибки.

← →
Толик © (2003-07-17 16:56) [2]

Обработать ошибку где: на сервере, на клиенте? Запустить процеду где: на сереве, на клиенте? Как заносятся данные (через insert или через вызов stored procedure)? Вставка данных идёт непосредственно в таблицу или через updatable view? Ну и т.д.

← →
ruslan_as © (2003-07-17 17:08) [3]

>>Толик
Ошибку обработать в приложении у клиента. Процедура (или какой-нибудь ShowMessage - потом придумаю) в приложении клиента. Вставка непосредственно в таблицу.

← →
Skier © (2003-07-17 17:11) [4]

>ruslan_as © (17.07.03 17:08)
А try-except-end не подходит ?

← →
Толик © (2003-07-17 17:11) [5]

Серверный вариант:
begin insert into Table_Name( Field_Name ) values( Some_Values ); exception when dup_val_on_index then MyProcedure(); end; Клиентский вариант: var ErrNo: longint; TmpStr: string; begin try Query1.ExecSQL(); except on E: EDatabaseError do begin Copy(E.Message, 4, 6); //используем то св-во оракловых сообщений, что все они начинаются с номера ошибки "ORA-XXXXX" ErrNo := StrToInt(TmpStr) if ErrNo = -00001 then MyProcedure(); end; end; end; код писал напрямую, так что возможны опечатки.

Сорри, не видел дальнейших сообщений, так что вариант 2.
А как передаётся запрос на сервер? Если через какие-то сторонние компаненты, то м.б. у них есть свои методы обработки ошибок? Например у Direct Oracle Access есть компонент TOracleEvent с событием возникновения серверных исключений.

Спасибо Толик!
Там маленькая помарка TmpStr:=Copy(E.Message, 5, 5) а то ругается на StrToInt. А так уже работает.

Помогите обработать ошибку Найти похожие ветки