Oracle存储过程

       前段时间了解了Oracle的触发器，自定义函数等，这次就把存储过程一并学习了吧。在网上收集了很多资料，觉得一下几篇文章不错：

ORACLE存储过程、Oracle存储过程详解(一)、oracle存储过程的基本语法、写给那些没有用过oracle存储过程但又准备学习的同志们

另外PL/SQL基础教程 中适于学习语法。

一.存储过程概念

        存储过程，百度百科上是这样解释的，存储过程（Stored Procedure）是在大型数据库系统中，一组为了完成特定功能的SQL语句集，存储在数据库中，经过第一次编译后再次调用不需要再次编译，用户通过指定存储过程的名字并给出参数（如果该存储过程带有参数）来调用存储过程。简单的说就是专门干一件事一段sql语句。可以由数据库自己去调用，也可以由java程序去调用。在oracle数据库中存储过程是procedure。

存储过程好处：
1.效率高：存储过程编译一次后，就会存到数据库，每次调用时都直接执行。而普通的sql语句我们要保存到其他地方（例如：记事本  上），都要先分析编译才会执行。所以想对而言存储过程效率更高。
2.降低网络流量 存储过程编译好会放在数据库，我们在远程调用时，不会传输大量的字符串类型的sql语句。
3.复用性高：存储过程往往是针对一个特定的功能编写的，当再需要完成这个特定的功能时，可以再次调用该存储过程。
4.可维护性高：当功能要求发生小的变化时，修改之前的存储过程比较容易，花费精力少。
5.安全性高：完成某个特定功能的存储过程一般只有特定的用户可以使用，具有使用身份限制，更安全。

二.存储过程基础

来个Hello World做实例：

create or replace procedure demo as
begin
  dbms_output.put_line('Hello World!');
end;

1.存储过程结构

（1）基本结构

    Oracle存储过程包含三部分：过程声明，执行过程部分，存储过程异常（可写可不写，要增强脚本的容错性和调试的方便性那就写上异常处理）

（2）无参存储过程

CREATE OR REPLACE PROCEDURE 存储过程名称 AS/IS 
  变量2 DATE;
  变量3 NUMBER;
BEGIN
  If (判断条件) then
    --要处理的业务逻辑
  else
    Raise 异常名（NO_DATA_FOUND）;
  end if;
EXCEPTION --存储过程异常
  when 异常名 then
    dbms_output.put_line('customize error!'); --打印参数
  when others then
    dbms_output.put_line('error!'); --打印参数
END;

这里的as和is一样任选一个，在这里没有区别；在代码中抛异常用 raise+异常名。

（3）有参存储过程

CREATE OR REPLACE PROCEDURE 存储过程名称(param1 student.id%TYPE,
                                   s_name out varchar,
                                   s_age  number) AS
  name  student.name%TYPE;
  total NUMBER := 0;
BEGIN
  SELECT COUNT(1) INTO total FROM student s WHERE s.age = s_age;
  dbms_output.put_line('符合该年龄的学生有' || total || '人');
EXCEPTION
  WHEN too_many_rows THEN
    DBMS_OUTPUT.PUT_LINE('返回值多于1行');
END;

上面脚本中：
其中参数IN表示输入参数，是参数的默认模式。
OUT表示返回值参数，类型可以使用任意Oracle中的合法类型，OUT模式定义的参数只能在过程体内部赋值，表示该参数可以将某个值传递回调用他的过程。
IN OUT表示该参数可以向该过程中传递值，也可以将某个值传出去。
第1行：param1 是参数，类型和student表id字段的类型一样。
第4行：声明变量name，类型是student表name字段的类型（同上）。
第5行：声明变量total，类型数数字，初始化为0。
第7行：查询语句，把参数s_age作为过滤条件，INTO关键字，把查到的结果赋给total变量。
第8行：输出查询结果，在数据库中“||”用来连接字符串。
第9—11行：做异常处理。

2.存储过程语法

(1).运算符

运算符	含义	示例表达式
:=	赋值	s:= 0;
..	范围	1..9，即1至9范围
||	字符串连接	'hello'||'world'

注意:plsql中的复制是:=而不是单个=，单个=是判断是否相等意思。

(2).SELECT INTO STATEMENT语句

       将select查询的结果存入到变量中，可以同时将多个列存储多个变量中，必须有一条记录，否则抛出异常(如果没有记录抛出NO_DATA_FOUND)例如：

CREATE OR REPLACE PROCEDURE DEMO_CDD1 IS
  s_name VARCHAR2;--学生名称
  s_age NUMBER;--学生年龄
  s_address VARCHAR2; --学生籍贯
BEGIN
    --给单个变量赋值
    SELECT student_address INTO s_address FROM student where student_grade = 100;
    --给多个变量赋值
   SELECT student_name, student_age INTO s_name, s_age FROM student where student_grade = 100;
    --输出成绩为100分的那个学生信息
    dbms_output.put_line('姓名：' || s_name || ',年龄：' || s_age || ',籍贯：' ||s_address);
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    xxxx;
END;

上面脚本中：存储过程名称：DEMO_CDD1, student是学生表，要求查出成绩为100分的那个学生的姓名，年龄，籍贯。

(3).选择语句

a.IF..END IF
学生表的sex字段：1-男生；0-女生

  IF s_sex = 1 THEN
    dbms_output.put_line('这个学生是男生');
  END IF;

b.IF..ELSE..END IF

  IF s_sex = 1 THEN
      dbms_output.put_line('这个学生是男生');
  ELSE
      dbms_output.put_line('这个学生是女生');
  END IF;

(4).循环语句

a.基本循环

  LOOP
    IF 表达式 THEN
      EXIT;
    END IF;
  END LOOP;

     既然有loop肯定要有end loop,就如你写for（int i=0;i<10;i++）{   }总不能只写前边这个花括号就把后边给忘记了哈。loop与end loop 就可以真正执行循环了，那么什么时候能够跳出循环呢，这里有一个关键字exit很显然退出嘛：什么时候退出呢，when  呀，当满足if后边的条件就退出了，可见if后边跟的是一个boolean结果的表达式。

b.while循环

  WHILE 表达式 LOOP
      dbms_output.put_line('haha');
  END LOOP;

c.for循环

  FOR a in 10 .. 20 LOOP
      dbms_output.put_line('value of a: ' || a);
  END LOOP;

(5).游标

       Oracle会创建一个存储区域，被称为上下文区域，用于处理SQL语句，其中包含需要处理的语句，例如所有的信息，行数处理，等等。
       游标是指向这一上下文的区域。PL/SQL通过控制光标在上下文区域。游标持有的行(一个或多个)由SQL语句返回。行集合光标保持的被称为活动集合。

a.下表是常用的游标属性：

属性	描述
%FOUND	如果DML语句执行后影响有数据被更新或DQL查到了结果，返回true。否则，返回false。
%NOTFOUND	如果DML语句执行后影响有数据被更新或DQL查到了结果，返回false。否则，返回true。
%ISOPEN	游标打开时返回true，反之，返回false。
%ROWCOUNT	返回DML执行后影响的行数。

b.使用游标

游标的使用需要有四个步骤，记住这四个步骤即可。
声明------》打开-----》取值-----》关闭

--声明游标定义游标的名称和相关的SELECT语句：
CURSOR cur_cdd IS SELECT s_id, s_name FROM student;
--打开游标游标分配内存，使得它准备取的SQL语句转换成它返回的行：
OPEN cur_cdd;
--抓取游标中的数据，可用LIMIT关键字来限制条数，如果没有默认每次抓取一条：
FETCH cur_cdd INTO id, name;
--关闭游标来释放分配的内存:
CLOSE cur_cdd;

3、执行储存过程

(1)、call 储存过程名()
(2)、begin 储存过程名; END;

4.案例实战

场景：
有表student(s_no,s_name,s_age,s_grade)，其中s_no-学号，也是主键，是从1开始向上排的（例如：第一个学生学号是1，第二个是2，一次类推）；s_name-学生姓名；s_age-学生年龄；s_grade-年级；这张表的数据量有几千万甚至上亿。一个学年结束了，我要让这些学生全部升一年级，即，让s_grade字段加1。
这条sql，写出来如下：

update student set s_grade=s_grade+1;

分析：
如果我们直接运行运行这条sql，因数据量太大会把数据库undo表空间撑爆，从而发生异常。那我们来写个存储过程，进行批量更新，我们每10万条提交一次。

CREATE OR REPLACE PROCEDURE process_student is
  total NUMBER := 0;
  i     NUMBER := 0;
BEGIN
  SELECT COUNT(1) INTO total FROM student;
  WHILE i <= total LOOP
    UPDATE student SET grade = grade + 1 WHERE s_no = i;
    i := i + 1;
    IF i >= 100000 THEN
      COMMIT;
    END IF;
  END LOOP;
  dbms_output.put_line('finished!');
END;

三.存储过程进阶

       在上面的案例中，我们的存储过程处理完所有数据要多长时间呢？事实我没有等到它执行完，在我可接受的时间范围内它没有完成。那么对于处理这种千万级数据量的情况，存储过程是不是束手无策呢？答案是否定的，接下来我们看看其他绝招。
      我们先来分析下执行过程的执行过程：一个存储过程编译后，在一条语句一条语句的执行时，如果遇到pl/sql语句就拿去给pl/sql引擎执行，如果遇到sql语句就送到sql引擎执行，然后把执行结果再返回给pl/sql引擎。遇到一个大数据量的更新，则执行焦点（正在执行的，状态处于ACTIVE）会不断的来回切换。
      Pl/SQL与SQL引擎之间的通信则称之为上下文切换，过多的上下文切换将带来过量的性能负载。最终导致效率降低，处理速度缓慢。从Oracle8i开始PL/SQL引入了两个新的数据操纵语句：FORALL、BUIK COLLECT，这些语句大大滴减少了上下文切换次数（一次切换多次执行），同时提高DML性能，因此运用了这些语句的存储过程在处理大量数据时速度简直和飞一样。

1.BUIK COLLECT

        Oracle8i中首次引入了Bulk Collect特性，Bulk Collect会能进行批量检索，会将检索结果结果一次性绑定到一个集合变量中，而不是通过游标cursor一条一条的检索处理。可以在SELECT INTO、FETCH INTO、RETURNING INTO语句中使用BULK COLLECT，接下来我们一起看看这些语句中是如何使用BULK COLLECT的。

(1).SELECT INTO
查出来一个结果集合赋值给一个集合变量。语法结构是：

SELECT field BULK COLLECT INTO var_conllect FROM table where colStatement;

说明：
field：要查询的字段，可以是一个或多个（要保证和后面的集合变量要向对应）。
var_collect：集合变量（联合数组等），用来存放查到的结果。
table：表名，要查询的表。
colStatement：后面过滤条件语句。比如s_age < 10;

例子：查出年龄小于10岁的学生姓名赋值给数组arr_name变量

SELECT s_name BULK COLLECT INTO arr_name FROM s_age < 10;

(2).FETCH INTO
    从一个集合中抓取一部分数据赋值给一个集合变量。
    语法结构如下：

FETCH cur1 BULK COLLECT INTO var_collect [LIMIT rows]

说明：
cur1：是个数据集合，例如是个游标。
var_collect：含义同上。
[LIMIT rows]：可有可无，限制每次抓取的数据量。不写的话，默认每次一条数据。

例子：给年龄小于10岁的学生的年级降一级。

  --查询年龄小于10岁的学生的学号放在游标cur_no里
  CURSOR cur_no IS
    SELECT s_no FROM student WHERE s_age < 10;
  --声明了一个联合数组类型，元素类型和游标cur_no每个元素的类型一致
  TYPE ARR_NO IS VARRAY(10) OF cur_no%ROWTYPE;
  no ARR_NO;--声明一个该数组类型的变量no
  BEGIN
    FETCH cur_no BULK COLLECT
      INTO no LIMIT 100;
    FORALL i IN 1 .. no.count SAVE EXCEPTONS
      UPDATE student SET s_grade = s_grade - 1 WHERE s_no = no(i);
  END;

说明：先查出年龄小于10岁的学生的学号放在游标里，再每次从游标里拿出100个学号，进行更新，给他们的年级降一级。

(3).RETURNING
       BULK COLLECT除了与SELECT，FETCH进行批量绑定之外，还可以与INSERT，DELETE，UPDATE语句结合使用，可以返回这些DML语句执行后所影响的记录内容（某些字段）。
再看一眼学生表的字段情况：student(s_no, s_name, s_age, s_grade)
     语法结构如下：

DMLStatement RETURNING field BULK COLLECT INTO var_field;

说明：
DMLStatement：是一个DML语句。
field：是这个表的某个字段，当然也可以写多个逗号隔开(field1，field2, field3)。
var_field：一个类型为该字段类型的集合，多个的话用逗号隔开，如下：(var_field1, var_field2, var_field3)

例子：获取那些因为年龄小于10岁而年级被将一级的学生的姓名集合。

  TYPE NAME_COLLECT IS TABLE OF student.s_name%TYPE; --NAME_COLLECT是一个集合类型，类型是student表的name字段的类型
  names NAME_COLLECT;--定义了一个NAME_COLLECT类型的变量
  BEGIN
      UPDATE student SET s_grade = s_grade - 1 WHERE s_age < 10   RETURNING s_name BULK COLLECT
      INTO names;
  END;

(4).注意事项

a.不能对使用字符串类型作键的关联数组使用BULK COLLECT 子句。
b.只能在服务器端的程序中使用BULK COLLECT，如果在客户端使用，就会产生一个不支持这个特性的错误。
c.BULK COLLECT INTO 的目标对象必须是集合类型。
d.复合目标(如对象类型)不能在RETURNING INTO 子句中使用。
e.如果有多个隐式的数据类型转换的情况存在，多重复合目标就不能在BULK COLLECT INTO 子句中使用。
f.如果有一个隐式的数据类型转换，复合目标的集合(如对象类型集合)就不能用于BULK COLLECTINTO 子句中。

2.FORALL

(1).语法

FORALL index IN bounds [SAVE EXCEPTIONS]     
     sqlStatement；

说明：
index是指下标；
bounds是一个边界，形式是start..end
[SAVE EXCEPTIONS] 可写可不写，这个下面介绍；
sqlStatement是一个DML语句，这里有且仅有一个sql语句；

例子：

  --例子1：移除年级是5到10之间的学生
  FORALL i IN 5 .. 10       
    DELETE FROM student where s_grade = i;
  --例子：2，arr是一个数组,存着要升高一年级的学生名称
  FORALL s IN 1 .. arr.count SAVE EXCEPTIONS
    UPDATE student SET s_grade = s_grade + 1 WHERE s_name = arr(i);

(2).SAVE EXCEPTIONS
        通常情况写我们在执行DML语句时，可能会遇到异常，可能致使某个语句或整个事务回滚。如果我们写FORALL语句时没有用SAVE EXCEPTIONS语句，那么DML语句会在执行到一半的时候停下来。
        如果我们的FORALL语句后使用了SAVE EXCEPTIONS语句，当在执行过程中如果遇到异常，数据处理会继续向下进行，发生的异常信息会保存到SQL%BULK_EXCEPTONS的游标属性中，该游标属性是个记录集合，每条记录有两个字段，例如：（1, 02300）;
     ERROR_INDEX：该字段会存储发生异常的FORALL语句的迭代编号；
     ERROR_CODE：存储对应异常的，oracle错误代码；
SQL%BULK_EXCEPTONS这个异常信息总是存储着最近一次执行的FORALL语句可能发生的异常。而这个异常记录集合异常的个数则由它的COUNT属性表示，即:SQL%BULK_EXCEPTONS.COUNT，SQL%BULK_EXCEPTIONS有效的下标索引范围在1到%BULK_EXCEPTIONS.COUNT之间。

(3). INDICES OF
在Oracle数据库10g之前有一个重要的限制，该数据库从IN范围子句中的第一行到最后一行，依次读取集合的内容，如果在该范围内遇到一个未定义的行，Oracle数据库将引发ORA-22160异常事件：ORA-22160: element at index [N] does not exist。针对这一问题，Oracle后续又提供了两个新语句：INDICES OF 和 VALUES OF。
接下来我们来看看这个INDICES OF语句，用于处理稀疏数组或包含有间隙的数组（例如：一个集合的某些元素被删除了）。
该语句语法结构是：

FORALL i INDICES OF collection [SAVE EXCEPTIONS]
    sqlStatement;

说明：
i：集合（嵌套表或联合数组）下标。
collection：是这个集合。
[SAVE EXCEPTIONS]和sqlStatement上面已经解释过。
例子：arr_std是一个联合数组，每个元素包含（name,age,grade）,现在要向student表插入数据。

  FORALL i IN INDICES OF arr_stu       
    INSERT INTO student VALUES(arr_stu(i).name, arr_stu(i).age, arr_stu(i).grade);

(4). VALUES OF
        VALUES OF适用情况：绑定数组可以是稀疏数组，也可以不是，但我只想使用该数组中元素的一个子集。VALUES OF选项可以指定FORALL语句中循环计数器的值来自于指定集合中元素的值。但是，VALUES OF在使用时有一些限制：
        如果VALUES OF子句中所使用的集合是联合数组，则必须使用PLS_INTEGER和BINARY_INTEGER进行索引，VALUES OF 子句中所使用的元素必须是PLS_INTEGER或BINARY_INTEGER；
       当VALUES OF 子句所引用的集合为空，则FORALL语句会导致异常；
       该语句的语法结构是：

FORALL i IN VALUES OF collection [SAVE EXCEPTIONS]
       sqlStatement;

说明：i和collection含义如上

3.pl/sql调试存储过程

        Developer工具里面用点存储过程里的TEST来调用,它能自动生成调用的语句并有栏目让你输入参数值，包括输入参数和输出参数，并把结果返回到输出参数里面，在结果栏可见，按F9可以调试，ctrl+N可以单步跟踪，的确爽。
       首先，当前这个用户得有能调试存储过程的权限，如果没有的话，以数据库管理员身份给你这个用户授权：

--userName是你要拿到调试存储过程权限的用户名
GRANT DEBUG ANY PROCEDURE,DEBUG CONNECT SESSION TO username;

在pl/sql 
(1).右键一个存储过程名称，点击测试，如下图：
这里我用的pl/sql是12.0.4版本的，下面截图中与低版本的pl/sql按钮位置都相同，只是图标不一样。

(2).点击两次step into按钮，进入语句调试，如下图：

(3).每点击一次step into按钮，会想下执行一条语句，也可以查看变量和表达式的值，如下图：

查看变量值：在查看变量区域，在Variable列输入变量i，在Value列点击下，该变量的值就显示出来了。

4.案例实战

场景和上面的案例实战是同一个，如下：
有表student(s_no, s_name, s_age, s_grade)，其中s_no-学号，也是主键，是从1开始向上排的（例如：第一个学生学号是1，第二个是2，一次类推）；s_name-学生姓名；s_age-学生年龄；s_grade-年级；这张表的数据量有几千万甚至上亿。一个学年结束了，我要让这些学生全部升一年级，即，让s_grade字段加1。
这条sql，写出来如下：

update student set s_grade=s_grade+1;

编写存储过程：
(1).存储过程1
名称为：process_student1，student表的s_no字段类型为varchar2(16)。

CREATE OR REPLACE PROCEDURE process_student1 AS
  CURSOR CUR_STUDENT IS
    SELECT s_no FROM student;
  TYPE REC_STUDENT IS VARRAY(100000) OF VARCHAR2(16);
  students REC_STUDENT;
BEGIN
  OPEN CUR_STUDENT;
  WHILE (TRUE) LOOP
    FETCH CUR_STUDENT BULK COLLECT
      INTO students LIMIT 100000;
    FORALL i IN 1 .. students.count SAVE EXCEPTIONS
      UPDATE student SET s_grade = s_grade + 1 WHERE s_no = students(i);
    COMMIT;
    EXIT WHEN CUR_STUDENT%NOTFOUND OR CUR_STUDENT%NOTFOUND IS NULL;
  END LOO;
  dbms_output.put_line('finished');
END;

说明：
        把student表中要更新的记录的学号拿出来放在游标CUR_STUDENT，每次从这个游标里抓取10万条数据赋值给数组students，每次更新这10万条记录。循环进行直到游标里的数据全部抓取完。
       FETCH .. BULK COLLECT INTO .. LIMIT rows语句中：这个rows我测试目前最大可以为10万条。
      上边有个语法叫做exit when cur%notfound,这里的属性cur%notfound就是如果游标中没有值返回true，因为每次游标都是向下读取的。读到没有数据就会返回cur%notfound为true。

(2).存储过程2（ROWID）
如果我们这个student表没有主键，也没有索引呢，该怎么来做呢？
分析下：
    ROWNUM是伪列，每次获取结果后，然后在结果集里会产生一列，从1开始排，每次都是从1开始排。
    ROWID在每个表中，每条记录的ROWID都是唯一的。在这种情况下，我们可以用ROWID。但要注意的是，ROWID是一个类型，注意它和VARCHAR2之间的转换。有两个方法：ROWIDTOCHAR（）是把ROWID类型转换为CHAR类型；                    CHARTOROWID()是把CAHR类型转换为ROWID类型。

    接下来我们编写存储过程process_student2，脚本如下：

CREATE OR REPLACE PROCEDURE process_student1 AS
  CURSOR CUR_STUDENT IS
    SELECT ROWIDTOCHAR(ROWID) FROM student;
  TYPE REC_STUDENT IS VARRAY(100000) OF VARCHAR2(16);
  students REC_STUDENT;
BEGIN
  OPEN CUR_STUDENT;
  WHILE (TRUE) LOOP
    FETCH CUR_STUDENT BULK COLLECT
      INTO students LIMIT 100000;
    FORALL i IN 1 .. students.count SAVE EXCEPTIONS
      UPDATE student
         SET s_grade = s_grade + 1
       WHERE ROWID = CHARTOROWID(students(i));
    COMMIT;
    EXIT WHEN CUR_STUDENT%NOTFOUND OR CUR_STUDENT%NOTFOUND IS NULL;
  END LOO;
  dbms_output.put_line('finished');
END;

说明：
我们首先查到记录的ROWID并把它转换为CHAR类型，存放到游标CUR_STUDENT里，再每次抓取10万条数据赋值给数组进行更新，更新语句的WHERE条件时，又把数组元素是CAHR类型的rowid串转换为ROWID类型。

附.参考资料

存储过程进阶之FORALL：
 https://blog.csdn.net/leshami/article/details/7536926
 https://blog.csdn.net/jie1336950707/article/details/49966753
存储过程进阶之BUIL COLLECT：
 https://blog.csdn.net/leeboy_wang/article/details/7991021
 https://blog.csdn.net/leshami/article/details/7545597
联合数组：
 https://blog.csdn.net/leshami/article/details/7372061