Сайт Koder.kz сайт для Delphi программистов.

koder.kz

Web or desctop App Developer

Написать

Добавил admin | Категория Заметки про IBExpert, Firebird | 14 Декабря 2013



Исключения (EXCEPTION) служат для перехвата возникшего исключения и вывода своего сообщения вместо системного. И так как это работает. Для начала давайте создадим новое исключение для этого сделаем правый клик мышью и выберем новое исключение


Появится такое вот окно


Тут нас интересует имя исключения, текст исключения, и если нужно то и описание. И так добавляем информацию в нужные для нас поля.


Вводим имя исключения, текст исключения и не забываем все это дело скомпилировать.

Исключение можно создать с помощью SQL команд, для нашего исключения набор таких команд будет выглядеть следующим образом.

CREATE EXCEPTION EXP_FATAL_ERR 'Возникла непредвиденная ошибка';

И так наше исключение готово, давайте теперь поговорим о том как его можно применить, для того что бы воспользоваться нашим исключением мы пишем 


IF (ord_stat = 'shipped') THEN
BEGIN
EXCEPTION exp_fatal_err;
END

Например в тексте хранимой процедуры мы проверяем параметр ord_stat = 'shipped'. Если этот параметр равен 'shipped' то возникает созданное нами исключение. На этом про исключения все, ознакомтесь с остальными статьями рублики IB Expert.