PL/SQL-5 错误处理

 

---------------------------------------------------------------------------------------
***************************************************************************************
第五部分：错误处理
***************************************************************************************
---------------------------------------------------------------------------------------

 

--案例01：使用预定义错误data_not_found(单变量)

declare
nm emp.ename%type;
begin
select ename into nm  from emp where empno=&no;
dbms_output.put_line('name: '||nm);
exception
when no_data_found then
dbms_output.put_line('不存在这个员工！');
end;

--案例02：预定义错误data_not_found（单变量）
declare
nm emp.ename%type;
no emp.empno%type;
begin
select ename into nm  from emp where empno=7788;
dbms_output.put_line('name:'||nm);
select empno into no from emp where empno=9999;   /*语句是不存在的，执行时会跳到异常部分*/
dbms_output.put_line('number:'||no);
exception
when no_data_found then
dbms_output.put_line('不存在这个员工！');
end;

/*如果没有异常部分，则整个语句块都不能进行*/

--案例03：使用多个预定义错误
declare
nm emp.ename%type;
no emp.empno%type;
begin
select ename into nm  from emp where empno=7788;
dbms_output.put_line('name:'||nm);
select empno into no from emp where sal<5000;   /*语句是不存在的，执行时会跳到异常部分*/
dbms_output.put_line('number:'||no);
exception
when no_data_found then
dbms_output.put_line('不存在这个员工！');
when too_many_rows  then
dbms_output.put_line('数据太多！');
end;

--案例04：未知的错误信息
declare
nm emp.ename%type;
no emp.empno%type;
begin
select ename into nm  from emp where empno=7788;
dbms_output.put_line('name:'||nm);
select empno into no from emp where sal<5000;  /*语句是不存在的，执行时会跳到异常部分*/
dbms_output.put_line('number:'||no);
exception
when no_data_found then
dbms_output.put_line('不存在这个员工！');
when too_many_rows  then
dbms_output.put_line('数据太多！');
when others then
dbms_output.put_line('没有遇到过的错误！');
end;

--案例05：自定义错误00
declare
invalidcategory exception;
category varchar2(10);
begin
category:='&category';
if category not in ('附件', '顶盖', '备件') then
raise invalidcategory;
else
dbms_output.put_line(' 您输入的类别是：'|| category);
end if;
exception
when invalidcategory then
dbms_output.put_line('对不起，无法识别这个设备！');
end;

--案例06：自定义错误01
/*高考时需要选择学校专业，如果填报的是这些专业'语文', '数学', '物理','化学', '生物'，中间任意一个专业就提示：‘欢迎你填报我校的%专业，感谢你选这我校，祝你好运！’如果填报的不是我们学校的专业则提示错误：‘对不起，这个不是我们学校的专业！请查实后再填报’*/

declare
notmajor exception;
work varchar2(10);
begin
work:='&wk';
if work in ('语文', '数学', '物理','化学', '生物' ) then
dbms_output.put_line(' 欢迎你填报我校的:'||work||'专业,感谢你选择我校,祝你好运！');
else
raise notmajor;
end if;
exception
when notmajor then
dbms_output.put_line('对不起，这个不是我们学校的专业！请查实后再填报！');
end;

--案例07：自定义错误02（增、删、改）
create table test
(sid int,
sno int
);

 

-------------增
declare
rep exception;
s_id int;
begin
s_id:=&id;
if s_id in (1001, 2001, 3001) then
insert into test values (s_id, '&no');
dbms_output.put_line('符合我们的要求！');
else
raise rep;
end if;
exception
when rep then
dbms_output.put_line('不需要这样的值！');
end;

---------------改
declare
rep exception;
s_id int;
begin
s_id:=&id;
if s_id in (1001, 2001, 3001) then
update test set sno=2008 where sid=s_id;
dbms_output.put_line('满足修改的条件！');
else
raise rep;
end if;
exception
when rep then
dbms_output.put_line('对不起，不能修改！');
end;

------删
declare
rep exception;
s_id int;
begin
s_id:=&id;
if s_id in (1001, 2001, 3001) then
delete from test where sid=s_id;
dbms_output.put_line('符合删除的条件！');
else
raise rep;
end if;
exception
when rep then
dbms_output.put_line('这些不符合删除的要求！');
end;

--案例08：处理非预定义的错误
/*
使用预定义的例外只能处理21个oracle错误！在PL/SQL开发中会遇到其它一些oracle错误！
*/

/*

SQL> begin
  2  update emp set deptno=&dno where empno=&eno;
  3  end;
  4  /
输入 dno 的值:  11
输入 eno 的值:  7788
原值    2: update emp set deptno=&dno where empno=&eno;
新值    2: update emp set deptno=11 where empno=7788;
begin
*
ERROR 位于第 1 行:
ORA-02291: 违反完整约束条件 (SCOTT.FK_DEPTNO) - 未找到父项关键字
ORA-06512: 在line 2
*/

 

为了提高PL/SQL的健壮性，需要我们合理的处理这些oracle错误！实施步骤如下：

定义列外------->关联例外和错误--------->引用例外

 

declare
e_int exception;
pragma exception_init(e_int,-2291);  --和执行语句时报错的错误号一致
begin
update emp set deptno=&dno where empno=&eno;
exception
when e_int then
dbms_output.put_line('对不起，该部门不存在！请核对信息！');
end;

---执行结果为：
/*

SQL> declare
  2  e_int exception;
  3  pragma exception_init(e_int,-2291);  --和执行语句时报错的错误号一致
  4  begin
  5  update emp set deptno=&dno where empno=&eno;
  6  exception
  7  when e_int then
  8  dbms_output.put_line('对不起，该部门不存在！请核对信息！');
  9  end;
 10  /
输入 dno 的值:  11
输入 eno 的值:  7788
原值    5: update emp set deptno=&dno where empno=&eno;
新值    5: update emp set deptno=11 where empno=7788;
对不起，该部门不存在！请核对信息！

PL/SQL 过程已成功完成。

*/

 

 

--案例09：处理预定义的例外

declare
e_int exception;
pragma exception_init(e_int,-2291);  --和执行语句时报错的错误号一致
begin
update emp set deptno=&dno where empno=&eno;
exception
when e_int then
dbms_output.put_line('对不起，该部门不存在！请核对信息！');
end;

 

--执行的结果为：
/*

SQL>
  1  declare
  2  e_int exception;
  3  pragma exception_init(e_int,-2291);  --和执行语句时报错的错误号一致
  4  begin
  5  update emp set deptno=&dno where empno=&eno;
  6  exception
  7  when e_int then
  8  dbms_output.put_line('对不起，该部门不存在！请核对信息！');
  9* end;
输入 dno 的值:  10
输入 eno 的值:  1111
原值    5: update emp set deptno=&dno where empno=&eno;
新值    5: update emp set deptno=10 where empno=1111;

PL/SQL 过程已成功完成。

*/

上面输入的值在表中不能存在但是oracle并没有报任何错误！为了给用户提供更加有用的信息，我们需要提示：该员工不存在
的信息！

步骤：
定义列外----->显示触发例外----->引用例外

declare
e_int exception;
pragma exception_init(e_int,-2291);  --和执行语句时报错的错误号一致
e_no_employee exception;
begin
update emp set deptno=&dno where empno=&eno;
if sql%notfound then
raise e_no_employee;
end if;
exception
when e_int then
dbms_output.put_line('对不起，该部门不存在！请核对信息！');
when e_no_employee then
dbms_output.put_line('该员工不存在！');
end;