Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.09.27;
Скачать: CL | DM;

Вниз

Вытащить сообщение Exception IB в Delphi   Найти похожие ветки 

 
samalex   (2008-11-25 14:37) [0]

Уважаемые знатоки!!!
1. Создал в IB Exception: CREATE EXCEPTION EXIST_INPUT_N_MKP Такой № уже заведен";
2. Подключил его в триггер:
CREATE TRIGGER DATA_EXAM_AI0 FOR DATA_EXAM
ACTIVE AFTER INSERT OR UPDATE POSITION 0
AS
begin
 IF (EXISTS(select * from data_zel dz where upper(dz.input_n_mkp)=upper(NEW.input_n_mkp))) then
 begin
   exception EXIST_INPUT_N_MKP;
 end
 /* Trigger text */
end
3. Из Delphi вызываю хранимую процедуру для обновления таблицы.
     try
       ExecProc;
     except
       ShowMessage("Ошибка");
       exit;
     end;
4.1. Как мне вытащить в Delphi текст из exception?
Типа, ошибка из-за этого произошла.
4.2. Узнать название exception для Deiphi, чтобы использовать
try
...
except
 on EZeroDivide do HandleZeroDivide;
 on EOverflow do HandleOverflow;
 on EMathError do HandleMathError;
end;

Заранее благодарен.


 
Сергей М. ©   (2008-11-25 14:39) [1]

except
on E:Exception do ShowMessage(e.ClassName + " " + e.Message);
end;


 
samalex   (2008-11-25 15:03) [2]

Большое спасибо!!!



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

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

Наверх




Память: 0.47 MB
Время: 0.006 c
15-1248461839
Псалтырь
2009-07-24 22:57
2009.09.27
Зависимости проекта


15-1248467648
Германн
2009-07-25 00:34
2009.09.27
Успеют или не успеют к строку в этом году?


2-1248344765
Bruth
2009-07-23 14:26
2009.09.27
Вывести в переменную выделенный мышкой текст в ричЕдите


1-1216545032
jurez
2008-07-20 13:10
2009.09.27
работа в BASIC с объектом из DELPHI DLL


15-1248899406
Юрий
2009-07-30 00:30
2009.09.27
С днем рождения ! 30 июля 2009 четверг