查找异常 (PL/SQL)

Question

我在 Oracle 中运行代码，要求用户输入路线类型，然后程序根据用户输入的路线以及获取的行数获取最长和最短的路线。我需要在代码中添加任何异常，并且我正在尝试考虑在这种情况下我可以添加什么样的异常。我正在考虑添加一个异常，如果获取的行

我的代码是：

SET SERVEROUTPUT ON;
SET VERIFY OFF

DECLARE
v_type VARCHAR2 (20);
min_length NUMBER;
max_length NUMBER;
v_count NUMBER;


BEGIN
v_type := '&InsertTypeRoute';

IF v_type = 'Multi-Lane Divided' OR
v_type = 'Paved Divided' OR
v_type = 'Paved Undivided' THEN
SELECT MIN(LENGTH_KM), MAX(LENGTH_KM), COUNT(LENGTH_KM) INTO min_length, max_length, v_count
FROM TBLROUTE WHERE TYPE = v_type;

DBMS_OUTPUT.PUT_LINE('The minimum length is: ' || TO_CHAR(min_length));
DBMS_OUTPUT.PUT_LINE('The maximum length is: ' || TO_CHAR(max_length));
DBMS_OUTPUT.PUT_LINE ('Total number of '|| v_type ||' route is: ' || TO_CHAR(v_count));

ELSE
DBMS_OUTPUT.PUT_LINE ('Route type cannot be found');
END IF;

/*
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE ('Route type cannot be found'); */
END;
/

这些异常呢？它们在这种情况下是否合适？

EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE ('Data not found');


WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('This program encountered an error');

Answer 1

如果您使用 WHEN_OTHERS 和 RAISE，建议添加 SQLCODE 和 SQLERRM 这会告诉你究竟出了什么问题。

EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('ERROR MESSAGE :' || SQLCODE || ' :' || SQLERRM );
RAISE;

Answer 2

“在这种情况下它们合适吗？”

处理这样的异常被普遍认为是不好的做法。它吞下了真正的异常，因此用户知道某事失败了，但他们完全不知道是什么。

 WHEN OTHERS THEN
 DBMS_OUTPUT.PUT_LINE('This program encountered an error');

在这种情况下，什么都不做比做那个更好。

在您的情况下，我建议您依靠默认的 PL/SQL NO_DATA_FOUND 异常来处理无记录，并在只有一条记录时引发定制异常。像这样的：

DECLARE
    v_type VARCHAR2 (20);
    min_length NUMBER;
    max_length NUMBER;
    v_count NUMBER;
    -- user-defined exception
    x_single_route exception;
    pragme expcetion_init(x_single_route, -20001);

BEGIN
    v_type := '&InsertTypeRoute';

    IF v_type = 'Multi-Lane Divided' OR
        v_type = 'Paved Divided' OR
        v_type = 'Paved Undivided' 
    THEN
        SELECT MIN(LENGTH_KM), MAX(LENGTH_KM), COUNT(LENGTH_KM) INTO min_length, max_length, v_count
        FROM TBLROUTE WHERE TYPE = v_type;

    IF v_count > 1 THEN
        DBMS_OUTPUT.PUT_LINE('The minimum length is: ' || TO_CHAR(min_length));
        DBMS_OUTPUT.PUT_LINE('The maximum length is: ' || TO_CHAR(max_length));
        DBMS_OUTPUT.PUT_LINE ('Total number of '|| v_type ||' route is: ' || TO_CHAR(v_count));
    ELSE
        raise x_single_route;
    END IF;

EXCEPTION
    WHEN x_single_route THEN 
        DBMS_OUTPUT.PUT_LINE ('Route has only one leg');
    WHEN NO_DATA_FOUND THEN
        DBMS_OUTPUT.PUT_LINE ('Route type cannot be found'); 
END;
/ 

一般来说，引发异常是一种很好的做法：用户想知道什么时候出了问题。 （虽然这似乎是一个面向用户的程序，所以它略有不同。）

   ... 
EXCEPTION
    WHEN x_single_route THEN 
        DBMS_OUTPUT.PUT_LINE ('Route has only one leg');
        RAISE;
    WHEN NO_DATA_FOUND THEN
        ....

Answer 3

您可以使用RAISE_APPLICATION_ERROR 过程在用户定义的范围 (-20000..-20999) 中引发特定异常，然后定义一个异常以便捕获它。像下面这样的东西应该可以工作：

DECLARE
  SOMETHING_UNWANTED_HAPPENS BOOLEAN := TRUE;
BEGIN
  IF SOMETHING_UNWANTED_HAPPENS THEN
    RAISE_APPLICATION_ERROR(-20001, 'Something I didn''t want happened');
  END IF;
EXCEPTION
  WHEN OTHERS THEN
    IF SQLCODE = -20001 THEN
      DBMS_OUTPUT.PUT_LINE('My user-defined exception was raised');
    -- Do whatever else you want to do to handle this exception
    ELSE
      DBMS_OUTPUT.PUT_LINE('Something else happened');
    END IF;
END;

或者您可以声明一个 EXCEPTION 变量，使用 PRAGMA EXCEPTION_INIT 对其进行初始化，然后像任何其他异常一样使用它：

DECLARE
  my_exception EXCEPTION;
  PRAGMA EXCEPTION_INIT(my_exception, -20001);

  SOMETHING_UNWANTED_HAPPENS BOOLEAN := TRUE;
BEGIN
  IF SOMETHING_UNWANTED_HAPPENS THEN
    RAISE my_exception;
  END IF;
EXCEPTION
  WHEN my_exception THEN
    DBMS_OUTPUT.PUT_LINE('My user-defined exception was raised');

  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('Something else happened');
END;