Скачать: CL | DM;

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

← →
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 ; ^

---

← →
Johnmen ©   (2006-04-27 11:24) [5]

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

---

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

fb_1_5_errorcodes.pdf поищи.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.035 c