Oracle存储过程

存储过程的创建：

定义部分、执行部分、异常部分。用户要在自己的模式中创建存储过程，则只需具有CREATE PROCEDURE 权限，想在其他模式下创建，用户必须具有create any procedure权限，拥有alter any procedure权限的用户可以替换其他模式的存储过程。

CREATE [OR REPLACE] PROCEDURE [schema.] procedure_name [parameter_list]

{AS | IS}

declaration_section

BEGIN

　　executable_section

EXCEPTION

　　exceptioon_section

END [procedure_name];

存储过程的调用：

execute proc(argument_list);

存储过程的编译:

alter procedure pro_name COMPILE;

存储过程的删除：

drop procedure pro_name;

(不能删除包中的存储过程）

几个例子：

在存储过程中创建触发器：

CREATE OR REPLACE PROCEDURE C_trigger
authid current_user is 
p_string VARCHAR2(2000);
BEGIN
p_string := 'CREATE OR REPLACE TRIGGER tri_row 
AFTER DELETE ON item.student
DECLARE 
v3 INTEGER;
BEGIN 
SELECT COUNT(*) INTO v3 FROM item.student;
END;';
EXECUTE IMMEDIATE p_string;
END;
SQL>exec C_trigger;
SQL> select owner,trigger_name
2 from dba_triggers
3 where owner = 'ITEM';


OWNER TRIGGER_NAME
------------------------------ -----------------------
ITEM TRI_ROW
ITEM TRIGGER_MYORDER

已选择2行。
---触发器创建成功。

如果无法删除存储过程？？？
---方法： 先查看那些会话正在执行该存储过程

SELECT a.sid,a.serial#,b.sql_text 
FROM v$session a,v$sql b
WHERE a.sql_hash_value = b.hash_value
AND a.sql_address = b.address 
AND b.sql_text LIKE 'C_tri%';

--then，杀死那个session
ALTER SYSTEM KILL SESSION '123,231';--SID,SERIAL的号
--如果该命令执行失败，再试试：

SELECT spid
FROM v$process p,v$session s
WHERE s.paddr = p.ADDR and sid = 123;

然后杀死进程。

加密 procedure的时候使用命令： wrap inname=e:Scriptswrap_test.sql name=testwrap.out (注意 =号附近不能用空格！！)
将存储过程返回一个结果集：

使用游标变量

--定义包头：
CREATE OR REPLACE PACKAGE pack_return_result AS
TYPE type_cursor IS REF CURSOR;--游标变量
PROCEDURE pro_getresult(p IN OUT type_cursor);
END pack_return_result;
--定义包体：
CREATE OR REPLACE PACKAGE BODY pack_return_result AS
PROCEDURE pro_getresult (p IN OUT type_cursor) AS
BEGIN
OPEN p FOR
SELECT name,producer,price
FROM phone_info 
WHERE price > 500;
END;
END;
--定义游标绑定变量：
VARIABLE v_bind_ref REFCURSOR 
--执行包中的存储过程：
EXECUTE pack_rerurn_result.pro_getresult(:v_bind_ref)

PL/SQL 过程已成功完成。

--执行结果，打印游标绑定变量中的内容：
SQL> PRINT v_bind_ref

NAME PRODUCER PRICE
-------------------- ------------------------------ ----------
iphone APPLE 3999
C510c 爱立信 1000

已选择2行。


已用时间: 00: 00: 00.01

SQL> VARIABLE v_bind_ref REF CURSOR
用法: VAR[IABLE] [ <variable> [ NUMBER | CHAR | CHAR (n [CHAR|BYTE]) |
VARCHAR2 (n [CHAR|BYTE]) | NCHAR | NCHAR (n) |
NVARCHAR2 (n) | CLOB | NCLOB | BLOB | BFILE
REFCURSOR | BINARY_FLOAT | BINARY_DOUBLE ] ]