Исключения

← →
makvell (2006-04-26 22:35) [0]

Вопрос такой:
Как в Delphi поймать исключение, имеющееся в БД, и выдать бошлее-менее "красивое" сообщение?
Заранее спасибо.

← →
Джо © (2006-04-27 01:45) [1]

try
// тут работаем
except
on E: Exception do
// тут выводим красивое сообщение
end;

← →
makvell (2006-04-27 09:44) [2]

Не, вот, например, есть база данных с двумя таблицами: склад и магазин...
товар продают и в таблице магазин остается запись о том кто, что и сколько продал, соответственно срабатывает процедура, вычитающая количество проданного товара и общего кол-ва этого товара на складе. В процедуре срабатывает исключение, если "магазин" пытается продать товара больше чем есть на складе, вот именно его мне и нужно поймать если конечно это реально или может быть еспособ...

← →
Johnmen © (2006-04-27 09:49) [3]

Текст процедуры?

← →
makvell (2006-04-27 10:33) [4]

SET TERM ^ ;

CREATE PROCEDURE NEW_PROCEDURE (
KOL INTEGER,
NAME VARCHAR(20),
RNO INTEGER)
AS
DECLARE VARIABLE OST INTEGER;
DECLARE VARIABLE I_COUNT INTEGER;
DECLARE VARIABLE ID INTEGER;
DECLARE VARIABLE CENA_1 DOUBLE PRECISION;
DECLARE VARIABLE VSEGO DOUBLE PRECISION;
BEGIN
SELECT item_id, item_count, item_price FROM sklad
WHERE item_name = :name
INTO :id, :i_count, cena_1;

IF (i_count<kol) THEN
BEGIN
exception no_items;
exit;
END

ost = i_count - kol;

UPDATE sklad
SET item_count = :ost
WHERE item_id = :id;

vsego = kol * cena_1;

UPDATE shop
SET navar = :vsego
WHERE rec_no = :rno;

SUSPEND;
END^

SET TERM ; ^

Эксепшн ты поднял. Хорошо...
Но тогда непонятно, чем не устраивает его ловля через try?

← →
Виталий Панасенко (2006-04-27 11:40) [6]

fb_1_5_errorcodes.pdf поищи.

Исключения Найти похожие ветки