Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Исключения [D6, D7, FireBird]

makvell © (2006-04-26 22:35:00)
Вопрос такой:
Как в Delphi поймать исключение, имеющееся в БД, и выдать бошлее-менее "красивое" сообщение?
Заранее спасибо.

Виталий Панасенко (2006-04-27 11:40:00) [1]
fb_1_5_errorcodes.pdf поищи.

Johnmen (2006-04-27 11:24:00) [2]
Эксепшн ты поднял. Хорошо...
Но тогда непонятно, чем не устраивает его ловля через try?

makvell (2006-04-27 10:33:00) [3]
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 ; ^

Johnmen (2006-04-27 09:49:00) [4]
Текст процедуры?

makvell (2006-04-27 09:44:00) [5]
Не, вот, например, есть база данных с двумя таблицами: склад и магазин...
товар продают и в таблице магазин остается запись о том кто, что и сколько продал, соответственно срабатывает процедура, вычитающая количество проданного товара и общего кол-ва этого товара на складе. В процедуре срабатывает исключение, если "магазин" пытается продать товара больше чем есть на складе, вот именно его мне и нужно пойматьесли конечно это реально или может быть еспособ...

Джо (2006-04-27 01:45:00) [6]
try
// тут работаем
except
on E: Exception do
// тут выводим красивое сообщение
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »