oracle储存过程学习笔记

转载至：

https://www.2cto.com/database/201610/559389.htm

1.什么是oracle存储过程

存储过程和函数也是一种PL/SQL块，是存入数据库的PL/SQL块。但存储过程和函数不同于已经介绍过的PL/SQL程序，我们通常把PL/SQL程序称为无名块，而存储过程和函数是以命名的方式存储于数据库中的。和PL/SQL程序相比，存储过程有很多优点，具体归纳:

1. 存储过程和函数以命名的数据库对象形式存储于数据库当中。存储在数据库中的优点是很明显的，因为代码不保存在本地，用户可以在任何客户机上登录到数据库，并调用或修改代码。

2. 存储过程和函数可由数据库提供安全保证，要想使用存储过程和函数，需要有存储过程和函数的所有者的授权，只有被授权的用户或创建者本身才能执行存储过程或调用函数。

3. 存储过程和函数的信息是写入数据字典的，所以存储过程可以看作是一个公用模块，用户编写的PL/SQL程序或其他存储过程都可以调用它(但存储过程和函数不能调用PL/SQL程序)。一个重复使用的功能，可以设计成为存储过程。

4. 像其他高级语言的过程和函数一样，可以传递参数给存储过程或函数，参数的传递也有多种方式。存储过程可以有返回值，也可以没有返回值，存储过程的返回值必须通过参数带回;函数有一定的数据类型，像其他的标准函数一样，我们可以通过对函数名的调用返回函数值。

5. 存储过程和函数需要进行编译，以排除语法错误，只有编译通过才能调用。

2.如何创建和删除存储过程

2.1.创建存储过程的语法

CREATE [OR REPLACE] PROCEDURE 存储过程名[(参数[IN|OUT|IN OUT] 数据类型...)]

{AS|IS}

[说明部分]

BEGIN

可执行部分

[EXCEPTION

错误处理部分]

END [过程名];

其中：

可选关键字OR REPLACE 表示如果存储过程已经存在，则用新的存储过程覆盖，通常用于存储过程的重建。

参数部分用于定义多个参数(如果没有参数，就可以省略)。参数有三种形式：IN、OUT和IN OUT。如果没有指明参数的形式，则默认为IN。 关键字AS也可以写成IS，后跟过程的说明部分，可以在此定义过程的局部变量。(注意：大小写不敏感)。

简单的存储过程示例：

create or replace procedure hello_world as

say_hi varchar2(20);

begin

say_hi := 'Hello World!';

dbms_output.put_line(say_hi);

end;

2.2 删除存储过程

语法：

DROP PROCEDURE 存储过程名;

如：drop procedure hello_world;

3.存储过程的查看

可以通过对数据字典的访问来查询存储过程或函数的有关信息，如果要查询当前用户的存储过程或函数的源代码，可以通过对USER_SOURCE数据字典视图的查询得到。

3.1查看存储过程的脚本

如查询存储过程hello_world的脚本

Select text from user_source where name = ‘HELLO_WORLD’;

(这里的过程名必须大写)

3.2 查看存储过程的状态

如：select status from user_objects where object_name = ‘HELLO_WORLD’;

说明：VALID表示该存储过程有效(即通过编译)，INVALID表示存储过程无效或需要重新编译。当Oracle调用一个无效的存储过程或函数时，首先试图对其进行编译，如果编译成功则将状态置成VALID并执行，否则给出错误信息。

当一个存储过程编译成功，状态变为VALID，会不会在某些情况下变成INVALID。结论是完全可能的。比如一个存储过程中包含对表的查询，如果表被修改或删除，存储过程就会变成无效INVALID。所以要注意存储过程和函数对其他对象的依赖关系。

4.存储过程参数说明

三种形式的参数

1. IN 定义一个输入参数变量，用于传递参数给存储过程

2. OUT 定义一个输出参数变量，用于从存储过程获取数据

3. IN OUT 定义一个输入、输出参数变量，兼有以上两者的功能

参数的定义形式和作用如下：

4.1 IN参数

语法：参数名 IN 数据类型 DEFAULT 值;

定义一个输入参数变量，用于传递参数给存储过程。在调用存储过程时，主程序的实际参数可以是常量、有值变量或表达式等。DEFAULT 关键字为可选项，用来设定参数的默认值。如果在调用存储过程时不指明参数，则参数变量取默认值。在存储过程中，输入变量接收主程序传递的值，但不能对其进行赋值。

4.2 OUT参数

语法：参数名 OUT 数据类型;

定义一个输出参数变量，用于从存储过程获取数据，即变量从存储过程中返回值给主程序。

在调用存储过程时，主程序的实际参数只能是一个变量，而不能是常量或表达式。在存储过程中，参数变量只能被赋值而不能将其用于赋值，在存储过程中必须给输出变量至少赋值一次。

4.3 IN OUT参数

语法：参数名 IN OUT 数据类型 DEFAULT 值;

定义一个输入、输出参数变量，兼有以上两者的功能。在调用存储过程时，主程序的实际参数只能是一个变量，而不能是常量或表达式。DEFAULT 关键字为可选项，用来设定参数的默认值。在存储过程中，变量接收主程序传递的值，同时可以参加赋值运算，也可以对其进行赋值。在存储过程中必须给变量至少赋值一次。

示例：

create or replace procedure say_hi(to_whom in varchar2 default '张三', who out varchar2)

as

who_name varchar(20);

begin

who_name := '李四';

who := who_name;

dbms_output.put_line('Say Hi to '||to_whom);

end;

create or replace procedure invoke_say_hi

as

who varchar2(20);

whom varchar2(20);

begin

whom := '小明';

say_hi(whom, who);

say_hi(who => who);

dbms_output.put_line(who||'say hi to '||whom);

end;

参数的值由调用者传递，传递的参数的个数、类型和顺序应该和定义的一致。如果顺序不一致，可以采用以下调用方法:

过程名(参数名 => 参数的值，参数名 => 参数的值， ~~~~~);

如上面的示例： say_hi(who => who); =>运算符左侧是参数名，右侧是参数表达式.

存储过程参数宽度：

无法在存储过程的定义中指定存储参数的宽度，也就导致了我们无法在存储过程中控制传入变量的宽度。这个宽度是完全由外部传入时决定的。

5.游标

5.1 普通游标

游标定义： cursor [游标名] is [sql语句]

普通游标把整个查询已经写死,调用时不可以作任何改变

注意：这里的is不能用as代替

示例：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

create or replace procedure cursor_sample   as   user_name varchar2(20);   user_id varchar2(20);   cursor select_user is select t.user_name, t.user_id from t_user t;   begin   open select_user;   loop   fetch select_user into user_name, user_id;   exit when select_user%notfound;   dbms_output.put_line('UserId：'||user_id||' UserName: '||user_name);   end loop;   close select_user;   end;

5.2动态查询游标

动态查询游标，查询条件的参数由变量决定。

例：

create or replace procedure cursor_sample2

as

vuser_id varchar2(20);

vuser_name varchar2(20);

cursor get_user_by_id is select t.user_id, t.user_name from t_user t where t.user_id = vuser_id;

begin

vuser_id := 'root2';

open get_user_by_id;

loop

fetch get_user_by_id into vuser_id, vuser_name;

exit when get_user_by_id%notfound;

dbms_output.put_line('UserName:'||vuser_name||' UserId:'||vuser_id);

end loop;

close get_user_by_id;

end;

5.3游标变量

先定义了一个引用游标类型，然后再声明了一个游标变量. 然后再用open for 来打开一个查询。需要注意的是它可以多次使用,用来打开不同的查询。

示例：

create or replace procedure cursor_sample3

as

vuser_name varchar2(20);

vuser_id varchar2(20);

type cursor_type is ref cursor;

select_user cursor_type;

begin

open select_user for select t.user_name, t.user_id from t_user t;

loop

fetch select_user into vuser_name, vuser_id;

exit when select_user%notfound;

dbms_output.put_line('UserName:'||vuser_name||' ||UserId:'||vuser_id);

end loop;

close select_user;

dbms_output.put_line('***********************************************');

dbms_output.put_line('****************第二次使用游标**********************');

open select_user for select t.user_name, t.user_id from t_user t where t.user_id = 'root2';

loop

fetch select_user into vuser_name, vuser_id;

exit when select_user%notfound;

dbms_output.put_line('UserName:'||vuser_name||' ||UserId:'||vuser_id);

end loop;

close select_user;

end;

5.4游标循环的方法

(1)游标的%found和%notfound属性。

能从游标中取出记录，得到的结果为%found，取不到记录为%notfound。在打开一个游标之后，马上检查它的%found或%notfound属性，它得到的结果即不是true也不是false.而是null.必须执行一条fetch语句后，这些属性才有值。

三种循环方法

5.4.1【Loop循环】

loop

fetch select_user into vuser_name, vuser_id;

exit when select_user%notfound;

【Do something】;

end loop;

close select_user;

5.4.2【while循环】

fetch select_user into vuser_name, vuser_id;

while select_user%found loop

dbms_output.put_line('UserName:'||vuser_name||' ||UserId:'||vuser_id);

fetch select_user into vuser_name, vuser_id;

end loop;

close select_user;

说明：我们知道了一个游标打开后，必须执行一次fetch语句，游标的属性才会起作用。所以使用while 循环时，就需要在循环之前进行一次fetch动作。

而且数据处理动作必须放在循环体内的fetch方法之前。循环体内的fetch方法要放在最后。否则就会多处理一次。这一点也要非常的小心。

使用while来循环处理游标是最复杂的方法。

5.4.3【for循环】

create or replace procedure cursor_sample4

as

vuser_name varchar2(20);

vuser_id varchar2(20);

cursor select_user is select t.user_name, t.user_id from t_user t;

begin

for v_pos in select_user loop

vuser_name := v_pos.user_name;

vuser_id := v_pos.user_id;

dbms_output.put_line('UserName:'||vuser_name||'UserId'||vuser_id);

end loop;

end;

说明：for循环是比较简单实用的方法。

首先，它会自动open和close游标。解决了你忘记打开或关闭游标的烦恼。

其次,自动定义了一个记录类型及声明该类型的变量，并自动fetch数据到这个变量中。 我们需要注意v_pos 这个变量无需要在循环外进行声明，无需要为其指定数据类型。 它应该是一个记录类型，具体的结构是由游标决定的。这个变量的作用域仅仅是在循环体内。 把v_pos看作一个记录变量就可以了，如果要获得某一个值就像调用记录一样就可以了。 如v_pos.user_name由此可见，for循环是用来循环游标的最好方法。高效，简洁，安全。

6.异常处理

语法：exception when [异常名] then [dosomething] …

When others then [dosomething];

示例：

create or replace procedure exception_sample

as

vuser_name varchar2(20);

vuser_id varchar2(20);

vsqlcode varchar2(10);

vsqlerrm varchar2(1000);

begin

select t.user_name, t.user_id into vuser_name, vuser_id from t_user t where 1 = 0;

exception

when others

then

vsqlcode := sqlcode;

vsqlerrm := sqlerrm;

dbms_output.put_line('Exception, code:'||vsqlcode||' Error message:'||sqlerrm);

end;

另外：若在代码中需要抛出异常时，用raise+异常名

如以下例子：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

create or replace procedure exception_sample2   as   vuser_name varchar2(20);   vuser_id varchar2(20);   yourexception exception; --自定义异常   cursor select_user is select t.user_name, t.user_id from t_user t;   begin   open select_user;   loop   fetch select_user into vuser_name, vuser_id;   exit when select_user%notfound;   if vuser_id = 'root2' then   raise yourexception; --抛出异常   end if;   end loop;   exception   when yourexception then   dbms_output.put_line('人品异常');   when others then   dbms_output.put_line(sqlcode||sqlerrm);   end;

已经命名的异常

命名的系统异常 产生原因

ACCESS_INTO_NULL 未定义对象

CASE_NOT_FOUND CASE 中若未包含相应的 WHEN ，并且没有设置

ELSE 时

COLLECTION_IS_NULL 集合元素未初始化

CURSER_ALREADY_OPEN 游标已经打开

DUP_VAL_ON_INDEX 唯一索引对应的列上有重复的值

INVALID_CURSOR 在不合法的游标上进行操作

INVALID_NUMBER 内嵌的 SQL 语句不能将字符转换为数字

NO_DATA_FOUND 使用 select into 未返回行，或应用索引表未初始化的

TOO_MANY_ROWS 执行 select into 时，结果集超过一行

ZERO_DIVIDE 除数为 0

SUBSCRIPT_BEYOND_COUNT 元素下标超过嵌套表或 VARRAY 的最大值

SUBSCRIPT_OUTSIDE_LIMIT 使用嵌套表或 VARRAY 时，将下标指定为负数

VALUE_ERROR 赋值时，变量长度不足以容纳实际数据

LOGIN_DENIED PL/SQL 应用程序连接到 oracle 数据库时，提供了不

正确的用户名或密码

NOT_LOGGED_ON PL/SQL 应用程序在没有连接 oralce 数据库的情况下

访问数据

PROGRAM_ERROR PL/SQL 内部问题，可能需要重装数据字典& pl./SQL

系统包

ROWTYPE_MISMATCH 宿主游标变量与 PL/SQL 游标变量的返回类型不兼容

SELF_IS_NULL 使用对象类型时，在 null 对象上调用对象方法

STORAGE_ERROR 运行 PL/SQL 时，超出内存空间

SYS_INVALID_ID 无效的 ROWID 字符串

TIMEOUT_ON_RESOURCE Oracle 在等待资源时超时

7.过程内部块

我们知道了存储过程的结构，语句块由begin开始，以end结束。这些块是可以嵌套。在语句块中可以嵌套任何以下的块：

Declare … begin … exception … end;

例：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

create or replace procedure innerblock_sample   as   vuser_name varchar2(20);   vuser_id varchar2(20);   cursor select_user is select t.user_name, t.user_id from t_user t;   begin   open select_user;   loop   fetch select_user into vuser_name, vuser_id;   exit when select_user%notfound;   dbms_output.put_line('UserName:'||vuser_name||'UserId'||vuser_id);   end loop;   close select_user;   declare   vuser_level varchar2(20);   cursor get_level is select t.user_level from t_user t;   begin   open get_level;   loop   fetch get_level into vuser_level;   exit when get_level%notfound;   dbms_output.put_line('UserLevel:'||vuser_level);   end loop;   close get_level;   exception when others then   dbms_output.put_line(sqlcode||sqlerrm);   end;   exception when others then   dbms_output.put_line(sqlcode||sqlerrm);   end;