PL/SQL开发子程序

--开发子程序

--一.开发过程

--1.语法

CREATE [OR REPLACE] PROCEDURE procedure_name

(arg1 model1 datatype1,arg2 model2 datatype2,...)

IS[AS]

PL/SQL block;



--2.建立不带参数的过程

SQL> CREATE OR REPLACE PROCEDURE demo1

  2  IS

  3  BEGIN

  4    dbms_output.put_line(systimestamp);

  5  END;

  6  /



过程已创建。



SQL>

SQL> set serveroutput on;

SQL> exec demo1

10-9月 -12 04.24.39.446000000 下午 +08:00



PL/SQL 过程已成功完成。



SQL> call demo1();

10-9月 -12 04.24.40.865000000 下午 +08:00



调用完成。



--3.创建带参数的过程

--创建带IN,OUT参数的过程

SQL> SET SERVEROUTPUT ON;

SQL> CREATE OR REPLACE PROCEDURE query_employee

  2  (eno NUMBER,name OUT varchar2,salary OUT NUMBER)

  3  IS

  4  BEGIN

  5    SELECT ename,sal INTO name,salary FROM emp

  6    WHERE empno=eno;

  7  EXCEPTION

  8    WHEN NO_DATA_FOUND THEN

  9      RAISE_APPLICATION_ERROR(-20000,'雇员不存在');

 10  END;

 11  /



过程已创建。



SQL> var name VARCHAR2(10)

SQL> var salary NUMBER

SQL> exec query_employee(7788,:name,:salary);



PL/SQL 过程已成功完成。



SQL> PRINT name salary



NAME      SALARY

--------------------------------

SCOTT      1200





--创建IN,OUT都有的过程

SQL> CREATE OR REPLACE PROCEDURE demo3

  2  (num1 IN OUT NUMBER,num2 IN OUT NUMBER)

  3  IS

  4    v1 NUMBER;

  5    v2 NUMBER;

  6  BEGIN

  7    v1:=num1/num2;

  8    v2:=MOD(num1,num2);

  9    num1:=v1;

 10    num2:=v2;

 11  END;

 12  /



过程已创建。



SQL> var n1 NUMBER

SQL> var n2 NUMBER

SQL> exec :n1:=100



PL/SQL 过程已成功完成。



SQL> exec :n2:=30



PL/SQL 过程已成功完成。



SQL> exec demo3(:n1,:n2)



PL/SQL 过程已成功完成。



SQL> PRINT n1 n2



        N1  N2

--------------------

3.33333333  10



--传值方式：位置传递,名称传递,组合传递。



--过程查看:

SELECT text FROM user_source WHERE name='DEMO3';



--二.开发函数

--语法：

CREATE OR REPLACE FUNCTION funname

(arg1 mode1 datatype1,

...)

IS/AS

PL/SQL BLOCk;



--无参

SQL> CREATE OR REPLACE FUNCTION demo1

  2  RETURN VARCHAR2

  3  IS

  4    v_user VARCHAR2(100);

  5  BEGIN

  6    SELECT username INTO v_user FROM user_users;

  7    RETURN v_user;

  8  END;

  9  /



函数已创建。



--打印

SQL> var v1 VARCHAR2(100)

SQL> exec :v1:=demo1



PL/SQL 过程已成功完成。

SQL> PRINT v1



V1

--------------------------------------------------------------------------------

SCOTT



--SQL语句调用

SQL> SELECT demo1 FROM dual;



DEMO1

--------------------------------------------------------------------------------

SCOTT



--包调用

SQL> SET SERVEROUTPUT ON;

SQL> exec dbms_output.put_line(demo1);

SCOTT



--参数IN

SQL> CREATE OR REPLACE FUNCTION demo2

  2  (name IN VARCHAR2)

  3  RETURN NUMBER

  4  IS

  5    v_sal emp.sal%TYPE;

  6  BEGIN

  7    SELECT sal INTO v_sal FROM emp

  8    WHERE UPPER(ename)=UPPER(name);

  9    RETURN v_sal;

 10  EXCEPTION

 11    WHEN NO_DATA_FOUND THEN

 12      RAISE_APPLICATION_ERROR(-20000,'雇员名不存在');

 13  END;

 14  /



函数已创建。



SQL> var sal number

SQL> exec :sal:=demo2('scott')



PL/SQL 过程已成功完成。



SQL> print sal



       SAL

----------

      1200



SQL> exec :sal:=demo2('sco')

BEGIN :sal:=demo2('sco'); END;



*

第 1 行出现错误:

ORA-20000: 雇员名不存在

ORA-06512: 在 "SCOTT.DEMO2", line 12

ORA-06512: 在 line 1



--参数OUT

SQL> CREATE OR REPLACE FUNCTION demo3

  2  (title OUT VARCHAR2,name VARCHAR2)

  3  RETURN VARCHAR2

  4  IS

  5    v_deptName emp.ename%TYPE;

  6  BEGIN

  7    SELECT t2.dname,t1.job INTO v_deptName,title

  8      FROM emp t1,dept t2

  9      WHERE t1.deptno=t2.deptno

 10      AND UPPER(t1.ename)=UPPER(name);

 11    RETURN v_deptName;

 12  EXCEPTION

 13    WHEN NO_DATA_FOUND THEN

 14      RAISE_APPLICATION_ERROR(-20001,'雇员未找到');

 15  END;

 16  /



函数已创建。



SQL> var title VARCHAR2(20)

SQL> var deptname VARCHAR2(20)

SQL> exec :deptname:=demo3(:title,'scott')



PL/SQL 过程已成功完成。



SQL> print title deptname



TITLE

--------------------------------

ANALYST





DEPTNAME

--------------------------------

RESEARCH



--参数OUT

SQL> CREATE OR REPLACE FUNCTION demo4

  2  (num1 NUMBER,num2 IN OUT NUMBER)

  3  RETURN NUMBER

  4  IS

  5    v_result NUMBER(6);

  6    v_remainder NUMBER;

  7  BEGIN

  8    v_result:=num1/num2;

  9    v_remainder:=MOD(num1,num2);

 10    num2:=v_result;

 11    RETURN v_remainder;

 12  EXCEPTION

 13    WHEN ZERO_DIVIDE THEN

 14      RAISE_APPLICATION_ERROR(-20002,'除0错误');

 15  END;

 16  /



函数已创建。



SQL> var result number

SQL> var remainder number

SQL> exec :result:=30



PL/SQL 过程已成功完成。



SQL> exec :remainder:=demo4(100,:result)



PL/SQL 过程已成功完成。



SQL> print result remainder



    RESULT       REMAINDER

----------------------------------------

      3              10



--函数调用限制

--函数可以在以下几个部分中进行调用：

--1.SELECT命令的列表中

--2.WHERE和HAVING子句

--3.CONNECT BY,STAT WITH,ORDER BY,GROUP BY子句

--4.INSERT命令的VALUES子句中

--5.UPDATE命令的SET子句中

--SQL中调用函数有以下的一些限制：

--1.在SQL子句中只能调用存储过程（服务器端）,而不能调用客户端的函数。

--2.函数不能带OUT参数

--3.函数中返回的数据类型为SQL所支持的类型

--4.SQL中调用的函数不能包括INSERT,UPDATE,DELETE语句。



--查看函数

SELECT text FROM user_source WHERE name='DEMO4';



--删除函数



--三.管理子程序

--1.列出当前用的子程序

SQL> col object_name format a20

SQL> SELECT object_name,created,status FROM user_objects 

SQL>   WHERE object_type IN('PROCEDURE','FUNCTION');



OBJECT_NAME          CREATED        STATUS

-------------------- -------------- -------

RAISE_COMM           31-8月 -12     VALID

DEAD_CODE            31-8月 -12     VALID

UPDATE_SAL           31-8月 -12     VALID

DEMO1                17-9月 -12     VALID

DEMO2                17-9月 -12     VALID

ADD_EMPLOYEE         11-9月 -12     INVALID

QUERY_EMPLOYEE       17-9月 -12     VALID

COMPUTE              17-9月 -12     INVALID

DEMO3                17-9月 -12     VALID

DEMO4                17-9月 -12     VALID



已选择10行。



--2.查看子程序源代码

SELECT text FROM user_source WHERE name='';



--3.列出子程序编译错误

SHOW ERRORS FUNCTION demo1;

SHOW ERRORS PROCEDURE demo2;



--4.列出对象依赖关系

SELECT * FROM user_dependencies WHERE referenced_name='EMP';



--5.重新编译

ALTER FUNCTION[VIEW][PROCEDURE] name COMPILE;