Oracle存储过程和函数使用方法

一.存储过程(PROCEDURE)

　　使用过程, 不仅可以简化客户端应用程序的开发和维护,而且可以提高应用程序的运行性能. 
　　CREATE [OR REPLACE] PROCUDURE procedure_name 
　　(arg1 [model1] datatype1, arg2[model2] datatype2) 
　　IS [AS] 
　　PL/SQL Block; 
　　arg1,arg2用于指定过程的参数,IS/AS用于开始一个PL/SQL块.当指定参数数据类型时,不能指定其长度. 
　　在建立过程的时间,既可以指定输入参数(IN),也可以指定输出参数(OUT)以及输入输出参数(IN OUT).如果不定义参数模式,则默认为输入参数,如果要定义输出参数,则需要指定OUT关键字,如果定义输入输出参数, 　　要指定IN OUT关键字. 一般使用execute(或exec) 过程名 或者 call 过程名来调用过程.

　　set serveroutput on打开oracle 的输出. 
　　(1)不带参数的过程 
　　CREATE OR REPLACE PROCEDURE out_time 
　　IS 
　　BEGIN 
　　dbms_output.put_line(systimestamp); 
　　END; 
　　call out_time();或者 exec out_time; 
　　(2)带IN参数的过程 
　　如果不指定参数模式,则默认的为IN,也可以显示的指定输入模式IN. 
　　CREATE OR REPLACE PROCEDURE add_employee 
　　(eno NUMBER,name VARCHAR2,sal NUMBER,job VARCHAR2 DEFAULT 'CCC', dno NUMBER) 
　　IS 
　　BEGIN 
　　INSERT INTO emp(empno, ename,sal,job,deptno) 
　　VALUES(eno,ename,sal,job,dno); 
　　EXCEPTION 
　　WHEN DUP_VAL_ON_INDEX THEN 
　　RAISE_APPLICATION_ERROR(-20000, '雇员不能重复'); 
　　END; 
　　除了默认值的参数外,其余的都要输入. 
　　(3)带OUT的过程 
　　在过程中输出结果是使用OUT或者IN OUT来完成的. 
　　定义输出参数的时间,必须要使用OUT来定义输出. 
　　CREATE OR REPLACE PROCEDURE query_employee 
　　(eno NUMBER,name OUT VARCHAR2,sal OUT NUMBER) 
　　IS 
　　BEGIN 
　　SELECT ename, sal INTO name, sal FROM emp WHERE empno=eno; 
　　EXCEPTION 
　　WHEN NO_DATA_FOUND THEN 
　　RAISE_APPLICATION_ERROR(-20000, '雇员不存在'); 
　　END; 
　　对于指定为OUT类型的参数,必须定义变量接收输出参数的数据.调用实例: 
　　SQL> var name VARCHAR2(10) 
　　SQL> var sal NUMBER 
　　SQL> exec query_employee(77,:name,:sal) 
　　SQL> print name sal 
　　(4)带IN和OUT的过程 
　　在调用前要通过变量给参数传递数据,在调用结束后,会通过此变量将值传递给应用程序 
　　CREATE OR PROCEDURE compute 
　　(num IN OUT NUMBER, num2 IN OUT NUMBER) 
　　IS 
　　v1 NUMBER; 
　　v2 NUMBER; 
　　BEGIN 
　　v1:=num1/num2; 
　　v2:=MOD(num1, num2); 
　　num1 := v1; 
　　num2 := v2; 
　　END;

　　在应用程序调用IN OUT的存储过程时,必须提供两个变量临时存放数值,运行如下: 
　　SQL> var n1 NUMBER 
　　SQL> var n2 NUMBER 
　　SQL> exec :n1:=100 
　　SQL> exec :n2:=30 
　　SQL> exec compute(:n1, :n2) 
　　SQL> PRINT n1 n2 
　　(5)为参数传递变量和数据

　　[1]位置传递 
　　如 SQL> exec add_dept(50, 'SALES', 'NEW YORK') 
　　[2]名称传递,使用=>符号来指定值 
　　如 SQL> exec add_dept(dno=>50) 
　　[3]组合传递,以上两种传递方法交替 
　　(6)查看过程的源代码 
　　过程名,源代码,执行代码放到了数据字典中,通过查询数据字典USER_SOURCE,可以显示当前用户定义的过程 
　　SELECT text FROM user_source WHERE name='ADD_DEPT'; 
　　(7)删除过程 
　　DROP PROCEDURE 过程名

二.函数 (FUNCTION)

　　CREATE [OR REPLACE] FUNCTION function_name 
　　(arg1 [model1] datatype1,arg2 [model2] datatype2) 
　　RETURN datatype 
　　IS|AS 
　　PL/SQL Block; 
　　arg1,arg2指定函数 的参数,当不指定参数数据类型时,不能指定其长度 
　　RETURN 指定函数 返回的数据类型.注意,函数 前面必须要有RETURN子句.在函数 体内至少含有一条RETURN子句.函数 的参数MODEl和过程的一样 
　　(1)不带参数的函数 
　　CREATE OR REPLACE FUNCTION get_user 
　　RETURN VARCHAR2 
　　IS 
　　v_user VARCHAR2(100); 
　　BEGIN 
　　SELECT username INTO v_user FROM user_users; 
　　RETURN v_user; 
　　END; 
　　调用方法 
　　SQL> var v1 VARCHAR2(100) 
　　SQL> exec :v1:=get_user 
　　SQL> PRINT v1 
　　(2)带IN参数 
　　CREATE OR REPLACE FUNCTION get_sal(name IN VARCHAR2) 
　　RETURN NUMBER 
　　IS 
　　v_sal emp.sal%TYPE; 
　　BEGIN 
　　SELECT sal INTO v_sal FROM emp 
　　WHERE upper(ename)=upper(name); 
　　RETURN v_sal; 
　　EXCEPTION 
　　WHEN NO_DATA_FOUND THEN 
　　raise-application_error(-20000,'该雇员不存在'); 
　　END; 
　　调用方法如下: 
　　SQL> var sal NUMBER 
　　SQL> exec :sal:=get_sal('scott') 
　　SQL> print sal 
　　(3)带OUT参数 
　　一般情况下,函数 只需要单个返回数据,如果希望使用函数 同事返回多个数据,就需要用到输出参数了. 
　　CREATE OR REPLACR FUNCTION get_info 
　　(name VARCHAR2, title OUT VARCHAR2) 
　　RETURN VARCHAR2 
　　AS 
　　deptname dept.dname%TYPE; 
　　BEGIN 
　　SELECT a.job,b.dname INTO title, deptname 
　　FROM emp a, dept b 
　　WHERE a.deptno = b.deptno 
　　AND upper(a.ename) = upper(a.ename) 
　　RETURN deptname; 
　　EXCEPTION 
　　WHEN NO_DATA_FOUND THEN 
　　raise_application_erro(-20000, '雇员不存在'); 
　　END; 
　　由于此函数 带有OUT参数,所以要定义变量接收OUT参数和函数 的返回值 
　　SQL> var job varchar2(20) 
　　SQL> var dname varchar2920) 
　　SQL> exec :dname:=getinfo('scott',:job) 
　　SQL> print dname job 
　　(4)带IN OUT参数 
　　在调用函数 之前需要通过变量给该种参数传递数据 
　　CREATE OR REPLACE FUNCTION result 
　　(num1 NUMBER, num2 IN OUT NUMBER) 
　　RETURN NUMBER 
　　AS 
　　v_result NUMBER(6); 
　　v_remain NUMBER; 
　　BEGIN 
　　v_result:=num1/num2; 
　　v_remain:=MOD(num1, num2); 
　　num2 := v_remain; 
　　RETURN v_result; 
　　EXCEPTION 
　　WHEN ZERO_DIVIDE THEN 
　　raise_application_error(-20000, '不能除0'); 
　　END; 
　　执行如下: 
　　SQL> var result1 NUMBER 
　　SQL> var result2 NUMBER 
　　SQL> exec :result2:=30 
　　SQL> exec :result1:=result(100, :result2) 
　　SQL> print result1 result2 
　　(5)函数 的删除 
　　DROP FUNCTION 函数 名

三.子程序的管理 
　　列出当前用户的子程序 
　　数据字典视图USER_OBJECTS显示当前用户所包含的所有对象.可以列出用户的表,视图,索引,也可以列出用户的过程,函数 等. 
　　SELECT object_name, created, status FROM user_object2 WHERE object_type IN ('PROCEDURE', 'FUNCTION');

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/JHHJA/archive/2010/12/07/6060486.aspx