Oracle 存储过程 PL/Sql调用存储过程（转）

简要记录存储过程语法与Java程序的调用方式

　　一 存储过程

　　　　首先，我们建立一个简单的表进行存储过程的测试

create table 
xuesheng(id integer, xing_ming varchar2(25), yu_wen number, shu_xue number);

insert into xuesheng values(1,'zhangsan',80,90)
insert into xuesheng values(2,'lisi',85,87)

1）无返回值的存储过程

create or replace procedure xs_proc_no is
begin
  insert into xuesheng values (3, 'wangwu', 90, 90);
  commit;
end xs_proc_no;

2）有单个数据值返回的存储过程

create or replace procedure xs_proc(temp_name in varchar2,
                                    temp_num  out number) is
  num_1 number;
  num_2 number;
begin
  select yu_wen, shu_xue
    into num_1, num_2
    from xuesheng
   where xing_ming = temp_name;
  --dbms_output.put_line(num_1 + num_2);
  temp_num := num_1 + num_2;
end;

其中，以上两种与sql server基本类似，而对于返回数据集时，上述方法则不能满足我们的要求。在Oracle中，一般使用ref cursor来返回数据集。示例代码如下：

3）有返回值的存储过程(列表返回)

首先，建立我们自己的包。并定义包中的一个自定义ref cursor

create or replace package mypackage as
  type my_cursor is ref cursor;
end mypackage;

在定义了ref cursor后，可以书写我们的程序代码

create or replace procedure xs_proc_list(shuxue   in number,
                                         p_cursor out mypackage.my_cursor) is
begin
  open p_cursor for
    select * from xuesheng where shu_xue > shuxue;
end xs_proc_list;

 二、程序调用

在本节中，我们使用java语言调用存储过程。其中，关键是使用CallableStatement这个对象，代码如下：

view sourceprint?

String oracleDriverName = "oracle.jdbc.driver.OracleDriver";

        // 以下使用的Test就是Oracle里的表空间

        String oracleUrlToConnect = "jdbc:oracle:thin:@127.0.0.1:1521:orcl";

        Connection myConnection = null;

        try {

            Class.forName(oracleDriverName);

        } catch (ClassNotFoundException ex) {

            ex.printStackTrace();

        }

        try {

            myConnection = DriverManager.getConnection(oracleUrlToConnect,

                    "xxxx", "xxxx");//此处为数据库用户名与密码

        } catch (Exception ex) {

            ex.printStackTrace();

        }

        try {

            CallableStatement proc=null;

            proc=myConnection.prepareCall("{call xs_proc(?,?)}");

            proc.setString(1, "zhangsan");

            proc.registerOutParameter(2, Types.NUMERIC);

            proc.execute();

            String teststring=proc.getString(2);

            System.out.println(teststring);

        } catch (Exception ex) {

            ex.printStackTrace();

        }

对于列表返回值的存储过程，在上述代码中做简单修改。如下

CallableStatement proc=null;
            proc=myConnection.prepareCall("{call getdcsj(?,?,?,?,?)}");
            proc.setString(1, strDate);
            proc.setString(2, jzbh);
            proc.registerOutParameter(3, Types.NUMERIC);
            proc.registerOutParameter(4, OracleTypes.CURSOR);
            proc.registerOutParameter(5, OracleTypes.CURSOR);
            proc.execute();
            ResultSet rs=null;
            int total_number=proc.getInt(3);
            rs=(ResultSet)proc.getObject(4);

上述存储过程修改完毕。另外，一个复杂的工程项目中的例子：查询一段数据中间隔不超过十分钟且连续超过100条的数据。即上述代码所调用的getdcsj存储过程

view sourceprint?

create or replace procedure getDcsj(var_flag     in varchar2,

                                    var_jzbh     in varchar2,

                                    number_total out number,

                                    var_cursor_a out mypackage.my_cursor,

                                    var_cursor_b out mypackage.my_cursor) is

  total number;

  cursor cur is

    select sj, flag

      from d_dcsj

     where jzbh = var_jzbh

     order by sj desc

       for update;

  last_time date;

begin

  for cur1 in cur loop

    if last_time is null or cur1.sj >= last_time - 10 / 60 / 24 then

      update d_dcsj set flag = var_flag where current of cur;

      last_time := cur1.sj;

    else

      select count(*) into total from d_dcsj where flag = var_flag;

      dbms_output.put_line(total);

      if total < 100 then

        update d_dcsj set flag = null where flag = var_flag;

        last_time := null;

        update d_dcsj set flag = var_flag where current of cur;

      else

        open var_cursor_a for

          select *

            from d_dcsj

           where flag = var_flag

             and jzbh = var_jzbh

             and zh = 'A'

           order by sj desc;

        number_total := total;

        open var_cursor_b for

          select *

            from d_dcsj

           where flag = var_flag

             and jzbh = var_jzbh

             and zh = 'B'

           order by sj desc;

        number_total := total;

        exit;

      end if;

    end if;

  end loop;

  select count(*) into total from d_dcsj where flag = var_flag;

  dbms_output.put_line(total);

  if total < 100 then

    open var_cursor_a for

      select * from d_dcsj where zh = 'C';

    open var_cursor_b for

      select * from d_dcsj where zh = 'C';

  else

    open var_cursor_a for

      select *

        from d_dcsj

       where flag = var_flag

         and jzbh = var_jzbh

         and zh = 'A'

       order by sj desc;

    number_total := total;

    open var_cursor_b for

      select *

        from d_dcsj

       where flag = var_flag

         and jzbh = var_jzbh

         and zh = 'B'

       order by sj desc;

    number_total := total;

  end if;

  commit;

end;

/

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

1. 创建存储过程

create or replace procedure p_get_suporg(org_name varchar2, suporg_name out varchar2)
as
temp_suporg_name varchar2(500);
begin
 
  select s1.suporg into temp_suporg_name from sys_org s1 where s1.orgname = org_name;
 
  suporg_name := temp_suporg_name;
end;

2.PL/Sql调用存储过程

文件 -> 新建 -> 命令窗口 执行如命令

set serveroutput on;
/

declare
 temp_company_name varchar2(500);
 begin
p_get_company_name('test‘, temp_company_name);
dbms_output.put_line(temp_company_name);
end;
/