PL/SQL 异常处理

素颜马尾好姑娘i 2022-06-17 03:25 242阅读 0赞

1.预定义异常

对于系统预定义异常，用户无需在程序中定义，它们将由Oracle自动引发。

1.1如下：如果用户试图使用完全相同的主键值向同一表中插入两条记录，则系统会产生违反主键的异常，Oracle称这种异常为DUP\_VAL\_ON\_INDEX异常.

SQL> set serveroutput on
    SQL> begin
      2  insert into emp(empno,ename,job,sal,deptno)
      3  values(7369,'ATG','CLERK',1500,20);
      4  exception
      5    when dup_val_on_index then
      6    dbms_output.put_line('捕获DUP_VAL_ON_INDEX异常');
      7    dbms_output.put_line('该主键值已经存在');
      8  end;
      9  /

结果：

![Center][]

1.2 在下面的语句中SELECE语句将引发一个异常，该异常将被OTHERS子句捕获。

SQL> set serveroutput on
    SQL> declare
      2    emp_row emp%rowtype;
      3  begin
      4    select *
      5    into emp_row
      6    from emp
      7    where deptno=10;
      8  exception
      9    when others then
     10    dbms_output.put_line('异常错误('  || SQLCODE || ')');
     11    dbms_output.put_line(SQLERRM);
     12  end;
     13  /

结果：

![Center 1][]

2.非预定义异常

SQL> set serveroutput on
    SQL> declare
      2    fk_delete_exception exception;
      3    pragma exception_init(fk_delete_exception,-2292);
      4  begin
      5    delete dept
      6    where dname='SALES';
      7  exception
      8    when fk_delete_exception then
      9    dbms_output.put_line('该项目存在于另一个表中');
     10  end;
     11  /

结果：

![Center 2][]

3.用户定义的异常

3.1 在EMP数据表中查找EMPNO=7365的记录，将其值放入变量VAR\_SAL中。如果VAR\_SAL的值小于800，则说明该员工的薪水有问题，将激活异常处理，显示提示问题。

SQL>  set serveroutput on
    SQL>  declare
      2     salary_error exception;
      3     var_sal scott.emp.sal%type;
      4   begin
      5     select sal
      6     into var_sal
      7     from scott.emp
      8     where empno=7369;
      9   if var_sal<=800 then
     10     raise salary_error;
     11   end if;
     12   exception
     13     when salary_error then
     14     dbms_output.put_line('薪金超过范围');
     15   end;
     16   /

结果：

薪金超过范围  
  
PL/SQL 过程已成功完成。

3.2 用户使用RAISE生成系统处理预定义异常

SQL> set serveroutput on
    SQL> declare
      2    var_comm number;
      3  begin
      4    select comm
      5    into var_comm
      6    from emp
      7    where ename='TURNER';
      8  if var_comm=0 then
      9    raise zero_divide;
     10  end if;
     11  exception
     12    when zero_divide then
     13      dbms_output.put_line('补贴费为0!');
     14  end;
     15  /

结果：

补贴费为0!  
PL/SQL 过程已成功完成。

[Center]: /images/20220617/348afb4fc7e541059f9169e17b940dac.png
[Center 1]: /images/20220617/20507cc9fe3e4a25865f242ebb705d3f.png
[Center 2]: /images/20220617/7aa15b7263844b3cb39ee7ba39ab8f88.png