SQL> -- 例外 exception
SQL> -- 1/0
SQL> ed
已写入 file afiedt.buf
1 declare
2 pnum number := 0;
3 begin
4 pnum := 1/pnum; -- 会跑出一个叫zero_divide的异常
5 exception
6 when zero_divide then dmms_output.put_line('不能被0除');
7* end;
8 ed
9 /
ed
*
第 8 行出现错误:
ORA-06550: 第 8 行, 第 1 列:
PLS-00103: 出现符号 "ED"符号 "ED" 被忽略。
SQL> ed
已写入 file afiedt.buf
1 declare
2 pnum number := 0;
3 begin
4 pnum := 1/pnum; -- 会跑出一个叫zero_divide的异常
5 exception
6 when zero_divide then dbms_output.put_line('不能被0除');
7* end;
SQL> /
不能被0除
PL/SQL 过程已成功完成。
SQL> ed
已写入 file afiedt.buf
1 declare
2 pnum number := 0;
3 begin
4 pnum := 1/pnum; -- 会跑出一个叫zero_divide的异常
5* end;
6 /
declare
*
第 1 行出现错误:
ORA-01476: 除数为 0
ORA-06512: 在 line 4
SQL> ed
已写入 file afiedt.buf
1 declare
2 pnum number := 0;
3 begin
4 pnum := 1/pnum; -- 会跑出一个叫zero_divide的异常
5 exception
6 when zero_divide then dbms_output.put_line('不能被0除')
7* end;
SQL> /
end;
*
第 7 行出现错误:
ORA-06550: 第 7 行, 第 1 列:
PLS-00103: 出现符号 "END"在需要下列之一时：
:= . ( % ;
符号 ";" 被替换为 "END" 后继续。
SQL> ed
已写入 file afiedt.buf
1 declare
2 pnum number := 0;
3 begin
4 pnum := 1/pnum; -- 会跑出一个叫zero_divide的异常
5 exception
6 when zero_divide then dbms_output.put_line('不能被0除');
7* end;
SQL> /
不能被0除
PL/SQL 过程已成功完成。
SQL> ed
已写入 file afiedt.buf
1 declare
2 pnum number := 0;
3 pname emp.ename%type;
4 begin
5 select ename into pname from emp;
6 pnum := 1/pnum; -- 会跑出一个叫zero_divide的异常
7 exception
8 when zero_divide then dbms_output.put_line('不能被0除');
9* end;
SQL> /
declare
*
第 1 行出现错误:
ORA-01422: 实际返回的行数超出请求的行数
ORA-06512: 在 line 5
SQL> ed
已写入 file afiedt.buf
1 declare
2 pnum number := 0;
3 pname emp.ename%type;
4 begin
5 select ename into pname from emp;
6 pnum := 1/pnum; -- 会跑出一个叫zero_divide的异常
7 exception
8 when zero_divide then dbms_output.put_line('不能被0除');
9 when too_many_rows then dbms_output.put_line('太多的行');
10* end;
SQL> /
太多的行
PL/SQL 过程已成功完成。
SQL> ed
已写入 file afiedt.buf
1 declare
2 pnum number := 0;
3 pname emp.ename%type;
4 begin
5 select ename into pname from emp;
6 pnum := 1/pnum; -- 会跑出一个叫zero_divide的异常
7 exception
8 when zero_divide then dbms_output.put_line('不能被0除');
9 when too_many_rows then dbms_output.put_line('太多的行');
10 when others then dbms_output.put_line('qita');
11* end;
SQL> /
太多的行
PL/SQL 过程已成功完成。
SQL> ed
已写入 file afiedt.buf
1 declare
2 pnum number := 0;
3 pname emp.ename%type;
4 begin
5 select ename into pname from emp;
6 pnum := 1/pnum; -- 会跑出一个叫zero_divide的异常
7 exception
8 when zero_divide then dbms_output.put_line('不能被0除');
9 when others then dbms_output.put_line('qita');
10* end;
SQL> /
qita
PL/SQL 过程已成功完成。
SQL> -- 自定义列外
SQL> ed
已写入 file afiedt.buf
1 -- 查询50号部门的所有员工的姓名,如果没有查到数据跑出列外
2 declare
3 cursor cemp is select ename from emp where deptno = 50;
4 pname emp.ename%type;
5 -- 自己定义异常
6 not_emp_data exception;
7 begin
8 open cursor;
9 if cemp%notfound then raise not_emp_data;
10 else
11 loop
12 fetch cemp into pname;
13 exit when cemp%notfound;
14 dbms_output.put_line(pname);
15 end loop;
16 end if;
17 close cursor;
18 exception
19 when not_emp_data then dbms_output.put_line('没有找到50号部门的数据');
20* end;
21 /
if cemp%notfound then raise not_emp_data;
*
第 9 行出现错误:
ORA-06550: 第 8 行, 第 7 列:
PLS-00201: 必须声明标识符 'CURSOR'
ORA-06550: 第 8 行, 第 2 列:
PL/SQL: SQL Statement ignored
ORA-06550: 第 17 行, 第 8 列:
PLS-00201: 必须声明标识符 'CURSOR'
ORA-06550: 第 17 行, 第 2 列:
PL/SQL: SQL Statement ignored
SQL> ed
已写入 file afiedt.buf
1 -- 查询50号部门的所有员工的姓名,如果没有查到数据跑出列外
2 declare
3 cursor cemp is select ename from emp where deptno = 50;
4 pname emp.ename%type;
5 -- 自己定义异常
6 not_emp_data exception;
7 begin
8 open cemp;
9 if cemp%notfound then raise not_emp_data;
10 else
11 loop
12 fetch cemp into pname;
13 exit when cemp%notfound;
14 dbms_output.put_line(pname);
15 end loop;
16 end if;
17 close cursor;
18 exception
19 when not_emp_data then dbms_output.put_line('没有找到50号部门的数据');
20* end;
SQL> ed
已写入 file afiedt.buf
1 -- 查询50号部门的所有员工的姓名,如果没有查到数据跑出列外
2 declare
3 cursor cemp is select ename from emp where deptno = 50;
4 pname emp.ename%type;
5 -- 自己定义异常
6 not_emp_data exception;
7 begin
8 open cemp;
9 if cemp%notfound then raise not_emp_data;
10 else
11 loop
12 fetch cemp into pname;
13 exit when cemp%notfound;
14 dbms_output.put_line(pname);
15 end loop;
16 end if;
17 close cemp;
18 exception
19 when not_emp_data then dbms_output.put_line('没有找到50号部门的数据');
20* end;
SQL> /
PL/SQL 过程已成功完成。
SQL> ed
已写入 file afiedt.buf
1 -- 查询50号部门的所有员工的姓名,如果没有查到数据跑出列外
2 set serveroutput on
3 declare
4 cursor cemp is select ename from emp where deptno = 50;
5 pname emp.ename%type;
6 -- 自己定义异常
7 not_emp_data exception;
8 begin
9 open cemp;
10 if cemp%notfound then raise not_emp_data;
11 else
12 loop
13 fetch cemp into pname;
14 exit when cemp%notfound;
15 dbms_output.put_line(pname);
16 end loop;
17 end if;
18 close cemp;
19 exception
20 when not_emp_data then dbms_output.put_line('没有找到50号部门的数据');
21* end;
SQL> /
cursor cemp is select ename from emp where deptno = 50;
*
第 4 行出现错误:
ORA-00922: 选项缺失或无效
SQL> ed
已写入 file afiedt.buf
1 -- 查询50号部门的所有员工的姓名,如果没有查到数据跑出列外
2 declare
3 cursor cemp is select ename from emp where deptno = 50;
4 pname emp.ename%type;
5 -- 自己定义异常
6 not_emp_data exception;
7 begin
8 open cemp;
9 if cemp%notfound then raise not_emp_data;
10 else
11 loop
12 fetch cemp into pname;
13 exit when cemp%notfound;
14 dbms_output.put_line(pname);
15 end loop;
16 end if;
17 close cemp;
18 exception
19 when not_emp_data then dbms_output.put_line('没有找到50号部门的数据');
20* end;
SQL> set serveroutput on;
SQL> -- 查询50号部门的所有员工的姓名,如果没有查到数据跑出列外
SQL> declare
2 cursor cemp is select ename from emp where deptno = 50;
3 pname emp.ename%type;
4 -- 自己定义异常
5 not_emp_data exception;
6 begin
7 open cemp;
8 if cemp%notfound then raise not_emp_data;
9 else
10 loop
11 fetch cemp into pname;
12 exit when cemp%notfound;
13 dbms_output.put_line(pname);
14 end loop;
15 end if;
16 close cemp;
17 exception
18 when not_emp_data then dbms_output.put_line('没有找到50号部门的数据');
19 end;
20 /
PL/SQL 过程已成功完成。
SQL> ed
已写入 file afiedt.buf
1 declare
2 cursor cemp is select ename from emp where deptno = 50;
3 pname emp.ename%type;
4 -- 自己定义异常
5 not_emp_data exception;
6 begin
7 open cemp;
8 if cemp%notfound then
9 dbms_output.put_line('11');
10 raise not_emp_data;
11 else
12 loop
13 fetch cemp into pname;
14 exit when cemp%notfound;
15 dbms_output.put_line(pname);
16 end loop;
17 end if;
18 close cemp;
19 exception
20 when not_emp_data then dbms_output.put_line('没有找到50号部门的数据');
21* end;
SQL> /
PL/SQL 过程已成功完成。
SQL> ed
已写入 file afiedt.buf
1 declare
2 cursor cemp is select ename from emp where deptno = 50;
3 pname emp.ename%type;
4 -- 自己定义异常
5 not_emp_data exception;
6 begin
7 open cemp;
8 fetch cemp into pname;
9 if cemp%notfound then
10 dbms_output.put_line('11');
11 raise not_emp_data;
12 else
13 loop
14 exit when cemp%notfound;
15 dbms_output.put_line(pname);
16 end loop;
17 end if;
18 close cemp;
19 exception
20 when not_emp_data then dbms_output.put_line('没有找到50号部门的数据');
21* end;
SQL> /
11
没有找到50号部门的数据
PL/SQL 过程已成功完成。
SQL> ed
已写入 file afiedt.buf
1 declare
2 cursor cemp is select ename from emp where deptno = 50;
3 pname emp.ename%type;
4 -- 自己定义异常
5 not_emp_data exception;
6 begin
7 open cemp;
8 fetch cemp into pname;
9 if cemp%notfound then
10 dbms_output.put_line('11');
11 raise not_emp_data;
12 else
13 loop
14 exit when cemp%notfound;
15 dbms_output.put_line(pname);
16 end loop;
17 end if;
18 close cemp;
19 exception
20 when not_emp_data then dbms_output.put_line('没有找到50号部门的数据');
21* end;
SQL> /
11
没有找到50号部门的数据
PL/SQL 过程已成功完成。
SQL> select sum(sal) from emp;
SUM(SAL)
----------
47025
SQL> spool off;