Oracle PL / SQL - Підвищте визначений користувачем виняток за допомогою користувацького SQLERRM


79

Чи можна створити визначені користувачем винятки та змінити SQLERRM?

Наприклад:

DECLARE
    ex_custom       EXCEPTION;
BEGIN
    RAISE ex_custom;
EXCEPTION
    WHEN ex_custom THEN
        DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;
/

Результатом буде "Визначення, визначене користувачем". Чи можна змінити це повідомлення?

EDIT: Ось трохи детальніше.

Я сподіваюся, що це ілюструє, що я намагаюся зробити краще.

DECLARE
    l_table_status      VARCHAR2(8);
    l_index_status      VARCHAR2(8);
    l_table_name        VARCHAR2(30) := 'TEST';
    l_index_name        VARCHAR2(30) := 'IDX_TEST';
    ex_no_metadata      EXCEPTION;
BEGIN

    BEGIN
        SELECT  STATUS
        INTO    l_table_status
        FROM    USER_TABLES
        WHERE   TABLE_NAME      = l_table_name;
    EXCEPTION
        WHEN NO_DATA_FOUND THEN
            -- raise exception here with message saying
            -- "Table metadata does not exist."
            RAISE ex_no_metadata;
    END;

    BEGIN
        SELECT  STATUS
        INTO    l_index_status
        FROM    USER_INDEXES
        WHERE   INDEX_NAME      = l_index_name;
    EXCEPTION
        WHEN NO_DATA_FOUND THEN
            -- raise exception here with message saying
            -- "Index metadata does not exist."
            RAISE ex_no_metadata;
    END;

EXCEPTION
    WHEN ex_no_metadata THEN
        DBMS_OUTPUT.PUT_LINE('Exception will be handled by handle_no_metadata_exception(SQLERRM) procedure here.');
        DBMS_OUTPUT.PUT_LINE(SQLERRM);
END;
/

Насправді цих підблоків десятки. Мені цікаво, чи є спосіб створити один визначений користувачем виняток для кожного з цих підблоків, який він повинен викликати, але нехай він подає інше повідомлення, замість того, щоб створювати окремий визначений користувачем виняток для кожного підблоку.

У .NET це було б начебто мати власний виняток, подібний до цього:

    public class ColorException : Exception
    {
        public ColorException(string message)
            : base(message)
        {
        }
    }

І тоді метод міг би мати приблизно таке:

        if (isRed)
        {
            throw new ColorException("Red is not allowed!");
        }

        if (isBlack)
        {
            throw new ColorException("Black is not allowed!");
        }

        if (isBlue)
        {
            throw new ColorException("Blue is not allowed!");
        }

Відповіді:


149

Так. Вам просто потрібно скористатися RAISE_APPLICATION_ERRORфункцією. Якщо ви також хочете назвати свій виняток, вам потрібно буде використовувати EXCEPTION_INITпрагму, щоб прив'язати номер помилки до названого винятку. Щось на зразок

SQL> ed
Wrote file afiedt.buf

  1  declare
  2    ex_custom EXCEPTION;
  3    PRAGMA EXCEPTION_INIT( ex_custom, -20001 );
  4  begin
  5    raise_application_error( -20001, 'This is a custom error' );
  6  exception
  7    when ex_custom
  8    then
  9      dbms_output.put_line( sqlerrm );
 10* end;
SQL> /
ORA-20001: This is a custom error

PL/SQL procedure successfully completed.

1
Саме те, що мені потрібно! Здається, я зробив свою редакцію, коли ви вже відповіли на моє запитання. Дуже дякую.
tgxiii

39

Ви можете використовувати RAISE_APPLICATION_ERROR так:

DECLARE
    ex_custom       EXCEPTION;
BEGIN
    RAISE ex_custom;
EXCEPTION
    WHEN ex_custom THEN
        RAISE_APPLICATION_ERROR(-20001,'My exception was raised');
END;
/

Це спричинить виняток, який виглядає так:

ORA-20001: My exception was raised

Номер помилки може бути будь-яким від -20001 до -20999.


21

Зазвичай я втрачаю всі свої -20001коди помилок мого типу, тому намагаюся об'єднати всі помилки мого додатка в такий приємний пакет, як такий:

SET SERVEROUTPUT ON

CREATE OR REPLACE PACKAGE errors AS
  invalid_foo_err EXCEPTION;
  invalid_foo_num NUMBER := -20123;
  invalid_foo_msg VARCHAR2(32767) := 'Invalid Foo!';
  PRAGMA EXCEPTION_INIT(invalid_foo_err, -20123);  -- can't use var >:O

  illegal_bar_err EXCEPTION;
  illegal_bar_num NUMBER := -20156;
  illegal_bar_msg VARCHAR2(32767) := 'Illegal Bar!';
  PRAGMA EXCEPTION_INIT(illegal_bar_err, -20156);  -- can't use var >:O

  PROCEDURE raise_err(p_err NUMBER, p_msg VARCHAR2 DEFAULT NULL);
END;
/

CREATE OR REPLACE PACKAGE BODY errors AS
  unknown_err EXCEPTION;
  unknown_num NUMBER := -20001;
  unknown_msg VARCHAR2(32767) := 'Unknown Error Specified!';

  PROCEDURE raise_err(p_err NUMBER, p_msg VARCHAR2 DEFAULT NULL) AS
    v_msg VARCHAR2(32767);
  BEGIN
    IF p_err = unknown_num THEN
      v_msg := unknown_msg;
    ELSIF p_err = invalid_foo_num THEN
      v_msg := invalid_foo_msg;
    ELSIF p_err = illegal_bar_num THEN
      v_msg := illegal_bar_msg;
    ELSE
      raise_err(unknown_num, 'USR' || p_err || ': ' || p_msg);
    END IF;

    IF p_msg IS NOT NULL THEN
      v_msg := v_msg || ' - '||p_msg;
    END IF;

    RAISE_APPLICATION_ERROR(p_err, v_msg);
  END;
END;
/

Потім зателефонуйте, errors.raise_err(errors.invalid_foo_num, 'optional extra text')щоб скористатися ним, наприклад:

BEGIN
  BEGIN
    errors.raise_err(errors.invalid_foo_num, 'Insufficient Foo-age!');
  EXCEPTION
    WHEN errors.invalid_foo_err THEN
      dbms_output.put_line(SQLERRM);
  END;

  BEGIN
    errors.raise_err(errors.illegal_bar_num, 'Insufficient Bar-age!');
  EXCEPTION
    WHEN errors.illegal_bar_err THEN
      dbms_output.put_line(SQLERRM);
  END;

  BEGIN
    errors.raise_err(-10000, 'This Doesn''t Exist!!');
  EXCEPTION
    WHEN OTHERS THEN
      dbms_output.put_line(SQLERRM);
  END;
END;
/

видає такий результат:

ORA-20123: Invalid Foo! - Insufficient Foo-age!
ORA-20156: Illegal Bar! - Insufficient Bar-age!
ORA-20001: Unknown Error Specified! - USR-10000: This Doesn't Exist!!

1
Приємна порада! Це було дуже корисно для мого проекту!
SnakeSheet

1
Це хороша практика. Дві незначні проблеми щодо помилки rise_application_error : 1) розмір 2-го параметра обмежений 2048 байтами і 2) Я б віддав перевагу 3-му параметру true(замість за замовчуванням false), щоб отримати повну трасування стека.
user272735

5
declare
   z exception;

begin
   if to_char(sysdate,'day')='sunday' then
     raise z;
   end if;

   exception 
     when z then
        dbms_output.put_line('to day is sunday');
end;

2
create or replace PROCEDURE PROC_USER_EXP 
AS
duplicate_exp EXCEPTION;
PRAGMA EXCEPTION_INIT( duplicate_exp, -20001 );
LVCOUNT NUMBER;
BEGIN
  SELECT COUNT(*) INTO LVCOUNT FROM JOBS WHERE JOB_TITLE='President';
  IF LVCOUNT >1 THEN 
   raise_application_error( -20001, 'Duplicate president customer excetpion' );
  END IF;

  EXCEPTION 
  WHEN duplicate_exp THEN 
  DBMS_OUTPUT.PUT_LINE(sqlerrm);
END PROC_USER_EXP;

Вихід ORACLE 11g буде таким:

Connecting to the database HR. 
ORA-20001: Duplicate president customer excetpion 
Process exited. 
Disconnecting from the database HR

Вивід ORACLE 11g буде таким: -Підключення до бази даних HR. ORA-20001: Вимкнено процес повторення дублікатів клієнта-президента. Відключення від бази даних HR.
Радж Шарма

Це хороший матеріал, за винятком (як не дивно) блоку EXCEPTION. Майже за всіх обставин винятки, що обробляються в реченні WHEN, слід відновити до програми, що викликає. Програма, що телефонує, повинна знати, що викликана процедура не вдалася. Просто використовувати DBMS_OUTPUT недостатньо добре, тому що програма, що викликає, може бути не в змозі обробити буфер виводу сервісу та / або тому, що вона не змушує програму, що викликає, визнати помилку.
APC
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.