Oracle存储过程的简单示例

---创建一个表

create table TESTTABLE

(

  id1  VARCHAR2(12),

  name VARCHAR2(32)

)

select t.id1,t.name from TESTTABLE t

insert into TESTTABLE (ID1, NAME)

values ('1', 'zhangsan');





insert into TESTTABLE (ID1, NAME)

values ('2', 'lisi');





insert into TESTTABLE (ID1, NAME)

values ('3', 'wangwu');





insert into TESTTABLE (ID1, NAME)

values ('4', 'xiaoliu');





insert into TESTTABLE (ID1, NAME)

values ('5', 'laowu');

---创建存储过程

create or replace procedure test_count

as

v_total number(1);

begin

  select count(*) into v_total from TESTTABLE;

  DBMS_OUTPUT.put_line('总人数：'||v_total);

end;

--准备

--线对scott解锁：alter user scott account unlock; 

--应为存储过程是在scott用户下。还要给scott赋予password

---alter user scott identified by tiger;

---去命令下运行

EXECUTE test_count;

----在ql/spl中的sql中运行

begin

  -- Call the procedure

  test_count;

end;







create or replace procedure TEST_LIST

      AS 

      ---是用游标

        CURSOR test_cursor IS select t.id1,t.name from TESTTABLE t;

      begin

        for Test_record IN test_cursor loop---遍历游标。在打印出来

           DBMS_OUTPUT.put_line(Test_record.id1||Test_record.name);

           END LOOP;

            test_count;--同一时候运行另外一个存储过程（TEST_LIST中包括存储过程test_count）

            end;

      -----运行存储过程TEST_LIST

      begin 

         TEST_LIST;

         END;

       ---存储过程的參数

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

        --OUT 定义一个输出參数变量。用于从存储过程获取数据   

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

        --这三种參数仅仅能说明类型，不须要说明详细长度 比方 varchar2(12)，defaul 能够不写，可是作为一个程序猿不妨写上。

---创建有參数的存储过程

      create or replace procedure test_param(p_id1 in VARCHAR2 default '0')

        as v_name varchar2(32);

        begin

          select t.name into v_name from TESTTABLE t where t.id1=p_id1;

          DBMS_OUTPUT.put_line('name：'||v_name);

         end;

      ----运行存储过程

      begin

         test_param('1');

       end;

       

       default '0'









      ---创建有參数的存储过程

      create or replace procedure test_paramout(v_name OUT VARCHAR2 )

        as  

        begin

          select name into v_name from TESTTABLE where id1='1';

          DBMS_OUTPUT.put_line('name：'||v_name);

         end;

      ----运行存储过程

    DECLARE  

        v_name VARCHAR2(32);   

        BEGIN  

        test_paramout(v_name);

        DBMS_OUTPUT.PUT_LINE('name：'||v_name);   

        END;  

    -------IN OUT

    ---创建存储过程

    create or replace procedure test_paramINOUT(p_phonenumber in out varchar2)

    as  

    begin 

      p_phonenumber:='0571-'||p_phonenumber;

    end;

    

    ----

    DECLARE  

    p_phonenumber VARCHAR2(32);  

    BEGIN  

    p_phonenumber:='26731092';  

    test_paramINOUT(p_phonenumber);  

    DBMS_OUTPUT.PUT_LINE('新的电话号码：'||p_phonenumber);  

    END;  

    -----sql命令下。查询当前用户的存储过程或函数的源码，

    -----能够通过对USER_SOURCE数据字典视图的查询得到。

USER_SOURCE的结构例如以下：

    

    SQL> DESCRIBE USER_SOURCE ;

    Name Type           Nullable Default Comments                                                                                                      

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

    NAME VARCHAR2(30)   Y                Name of the object                                                                                            

    TYPE VARCHAR2(12)   Y                Type of the object: "TYPE", "TYPE BODY", "PROCEDURE", "FUNCTION",

    "PACKAGE", "PACKAGE BODY" or "JAVA SOURCE" 

    LINE NUMBER         Y                Line number of this line of source                                                                            

    TEXT VARCHAR2(4000) Y                Source text                                                                                                   

    SQL> 

    ---查询出存储过程的定义语句

    select text from user_source WHERE NAME='TEST_COUNT';

    ----查询存储过程test_paramINOUT的參数

    SQL> DESCRIBE test_paramINOUT;

    Parameter     Type     Mode   Default? 

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

    P_PHONENUMBER VARCHAR2 IN OUT  

    SQL> 

    ---查看当前的存储过程的状态是否正确，

    ---VALID为正确，INVALID表示存储过程无效或须要又一次编译

    SELECT STATUS FROM USER_OBJECTS WHERE OBJECT_NAME='TEST_COUNT';

    -----假设要检查存储过程或函数的依赖性，能够通过查询数据字典USER_DENPENDENCIES来确定，该表结构例如以下：

    SQL> DESCRIBE USER_DEPENDENCIES;

    Name                 Type          Nullable Default Comments                                                   

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

    NAME                 VARCHAR2(30)                   Name of the object                                         

    TYPE                 VARCHAR2(17)  Y                Type of the object                                         

    REFERENCED_OWNER     VARCHAR2(30)  Y                Owner of referenced object (remote owner if remote object) 

    REFERENCED_NAME      VARCHAR2(64)  Y                Name of referenced object                                  

    REFERENCED_TYPE      VARCHAR2(17)  Y                Type of referenced object                                  

    REFERENCED_LINK_NAME VARCHAR2(128) Y                Name of dblink if this is a remote object                  

    SCHEMAID             NUMBER        Y                                                                           

    DEPENDENCY_TYPE      VARCHAR2(4)   Y                                                                               

    SQL>  

    ---查询存储过程TEST_COUNT的依赖关系

    SELECT REFERENCED_NAME,REFERENCED_TYPE FROM USER_DEPENDENCIES WHERE NAME='TEST_COUNT';

版权声明：本文博主原创文章。博客，未经同意不得转载。