Oracle PL/SQL编程

一、PL/SQL简介

　　1、概念：PL/SQL是Oracle在标准SQL语言上的过程性扩展。

　　2、优点和特性

• 　　提高应用程序的运行性能
• 　　提供模块化的程序设计功能
• 　　允许定义标示符
• 　　具有过程语言控制结构
• 　　具备良好的兼容性
• 　　处理运行错误

二、PL/SQL语言基础

　　1、编写PL/SQL应用程序时，只能嵌入select语句、DML语句和事务控制语句，不能嵌入DDL语句，DCL语句。

　　2、PL/SQL块

　　基本结构如下所示：

1 declare 
2 /*定义部分-变量、常量、游标、异常、例解*/
3 begin
4 /*执行部分-PL/SQL,SQL 语句*/
5 exception
6     /*异常处理部分-处理运行错误*/
7 end;//块结束标志

　　3、PL/SQL数据类型（常用）

• 　　标量类型（常用char,varchar2,number,date,timestamp,boolean）
• 　　属性类型（常用%type,%rowtype）
• 其他record,table,varray

　　4、注释："--"单行注释，"/*...*/"多行注释

三、PL/SQL控制结构

　　1、条件分支语句

　　用法如下所示：

 1 --示例一
 2 declare
 3  v_sal number(6,2);
 4 begin
 5   select sal into v_sal from scott.emp where ename=trim('&ename');
 6   if v_sal<2000 then
 7     update scott.emp set sal=v_sal+200 where ename=trim('&ename');
 8   end if;
 9 end;
10 
11 --示例二
12 declare 
13   v_dep number(6,2);
14   v_sal number(6,2);
15 begin
16   select deptno,sal into v_dep,v_sal from scott.emp where ename=trim('&ename');
17   if v_dep=10 then
18      update scott.emp set sal=v_sal+200 where deptno=10;
19   elsif v_dep=20 then
20      update scott.emp set sal=v_sal+100 where deptno=20;
21   else 
22      update scott.emp set sal=v_sal+50 where deptno!=10 and deptno!=20;
23   end if;
24 end;

　　2、case语句

　　具体用法如下所示：

 1 --示例一
 2 declare 
 3      v_deptno scott.emp.deptno%type;
 4 begin
 5   v_deptno:=&deptno;
 6   case v_deptno
 7     when 10 then
 8       update scott.emp set comm=100 where deptno=v_deptno;
 9     when 20 then
10       update scott.emp set comm=80 where deptno=v_deptno;
11     when 30 then
12       update scott.emp set comm=60 where deptno=v_deptno;
13     else
14       dbms_output.put_line('该部门不存在！');
15    end case;
16 end;
17 
18 --示例二
19 declare 
20    v_sal scott.emp.sal%type;
21    v_ename scott.emp.ename%type;
22 begin
23   select ename,sal into v_ename,v_sal from scott.emp where empno=&empno;
24   case
25     when v_sal<2000 then
26       update scott.emp set comm=100 where ename=v_ename;
27     when v_sal<3000 then
28       update scott.emp set comm=80 where ename=v_ename;
29     when v_sal<4000 then
30       update scott.emp set comm=50 where ename=v_ename; 
31     end case;
32 end;

　　3、循环语句

　　具体用法如下所示：

 1 --基本循环
 2 declare 
 3   i int:=1;
 4 begin
 5   loop   
 6     dbms_output .put_line(i);
 7     i:=i+1;
 8     exit when i=10;
 9   end loop;
10 end;
11 
12--while循环
13 declare 
14   i int:=1;
15 begin
16   while i<=10 loop
17     dbms_output.put_line(i);
18     i:=i+1;
19     end loop;
20 end;
21 
22--for循环
23 declare 25 begin
26   for i in 1..10 loop
27     dbms_output.put_line(i);
28     end loop;
29 end;

四、异常处理

　　1、分类：预定义异常，非预定义异常，自定义异常　　

　　2、常见预定义异常

• 　　case_not_found:when子句中没包含必须的条件分支，又无else子句时触发。
• 　　cursor_already_open:打开已打开的游标时触发。
• 　　invalid_number:字符转换为数字失败时触发。
• 　　too_many_rows:执行select into 子句时，返回超过一行触发。
• 　　zero_divide:除数为0时触发。
• 　　no_data_found:执行select into未返回行，或者引用了索引表未初始化元素时触发。

　　具体用法如下所示：

 1 --预定义异常处理
 2 eclare 
 3     v_ename scott.emp.ename%type;
 4 begin
 5   select ename into v_ename from scott.emp where empno=&empno;
 6   dbms_output.put_line(v_ename);
 7   exception
 8     when no_data_found then
 9       dbms_output.put_line('员工号不存在');
10 end;
11 
12 --自定义异常处理
13 declare 
14    e_integerity exception;--定义非预定义异常
15    e_no_employee exception;--定义自定义异常
16    pragma exception_init(e_integerity,-2291);--关联非预定义异常
17 begin
18    update scott.emp set deptno=40 where empno=-1;
19       if sql%notfound then
20         raise e_no_employee;--显示触发自定义异常
21       end if;
22    exception
23       when e_integerity then
24         dbms_output.put_line('该部门不存在！');
25       when e_no_employee then
26         dbms_output.put_line('该员工不存在！');
27 end;

五、游标（处理select语句返回的多行数据）

　　(1)显示游标（查询结构超过一行）在PL/SQL块的声明部分申明，在执行部分或异常处理部分打开游标，提取数据，关闭游标。

　　1、定义游标（declare cursor cursor_name is select_statement;）

　　2、打开游标（open cursor_name;）

　　3、提取数据

1 --每次提取一行
2 fetch cursot_name into variable1,variable2,..--variable :接收游标数据的变量
3--每次提取多行
4 .或 fetch cursor_name into bulk collect into collect1,collect2...--collect :接收游标结果的集合变量

　　4、关闭游标（close cursor_name;）

　　5、显示游标属性

• 　　%isopen:判断游标是否打开，打开返回true，否则false;
• 　　%found:是否从结果集中提取了数据。提取了数据返回true，否则false;
• %not found:与%found相反;
• rowcount:当前行数;

　　具体用法如下所示：

 1 declare 
 2   cursor emp_cursor
 3 is
 4   select ename,sal from scott.emp where deptno=20;
 5   v_ename scott.emp.ename%type;
 6   v_sal scott.emp.sal%type;
 7 begin
 8   open emp_cursor;
 9   loop
10     fetch emp_cursor into v_ename,v_sal;
11     exit when emp_cursor%notfound;
12     dbms_output.put_line(v_ename||':'||v_sal);
13   end loop;
14   close emp_cursor;
15 end;
16  
17 --参数游标
18 declare 
19   cursor emp_cursor(cno number)
20 is
21   select ename,sal from scott.emp where deptno=cno;
22   v_ename scott.emp.ename%type;
23   v_sal scott.emp.sal%type;
24 begin
25   if not emp_cursor%isopen then
26     
27   open emp_cursor(10);
28   end if;
29   loop
30     fetch emp_cursor into v_ename,v_sal;
31     exit when emp_cursor%notfound;
32     dbms_output.put_line(v_ename||':'||v_sal);
33   end loop;
34   close emp_cursor;
35 end;
36 
37 --使用游标更新或删除数据
38 declare 
39   cursor emp_cursor
40 is
41   select ename,sal from scott.emp for update of sal;--在sal列上加上共享锁
42   v_ename scott.emp.ename%type;
43   v_sal scott.emp.sal%type;
44 begin
45   open emp_cursor;
46   loop
47     fetch emp_cursor into v_ename,v_sal;
48     exit when emp_cursor%notfound;
49     if v_sal<2500 then
50       update scott.emp set sal=sal+150 where current of emp_cursor;
51     end if;
52   end loop;
53   close emp_cursor;
54 end;
55 --游标的for循环语法
56 for record_name in curso_name loop
57     statement1;
58     statement2;
59 ...
60 end loop;  --record_name：Oracle 隐式定义的记录变量名
61 --游标的for循环
62 declare 
63   cursor emp_cursor
64   is select ename from scott.emp where deptno=20;
65 begin
66   for o in emp_cursor loop
67     dbms_output.put_line('第'||emp_cursor%rowcount ||'员工'||o.ename);
68     end loop;
69 end;
70 
71 
72 --不使用游标属性的for循环
73 begin
74   for o in (select ename from scott.emp where deptno=20)
75    loop
76      dbms_output.put_line(o.ename);
77    end loop;
78 end;
79  
80 select * from scott.emp;