本文主要向大家介绍了Oracle数据库之Oracle 存储过程 PROCEDURE，通过具体的内容向大家展现，希望对大家学习Oracle数据库有所帮助。

存储过程  

    一组用于完成特定数据库功能的SQL语句集，该SQL语句集经过编译后存储在数据库系统中。在使用时候，用户通过指定已经定义的存储过程名字并给出相应的存储过程参数来调用并执行它，从而完成一个或一系列的数据库操作。

    包含三部分：过程声明，执行过程部分，存储过程异常（可选）。

示例

create or replace procedure sp_
(  p_sResult   out integer,--返回值
   p_ID       in   number --ID
)
as
      v_id       number(16);
      cursor  v_chac_cr  is
                select t.money from T001 t   where t.sid=p_ID;--游标
begin
   open v_chac_cr();
   loop
        fetch v_chac_cr into v_id;
        exit when v_chac_cr%notfound;
        insert into F002(cnt)  values (v_id);
   end loop;
   close v_chac_cr;
   commit;
   p_sResult:=1;
exception--例外处理
   when others then
   p_sResult:=0;
   rollback;
end sp_;　　
 项目运用

  1.获取表下一个ID值

CREATE OR REPLACE PROCEDURE SP_CONTENT (
      o_result out types.cursorType, --结果集
      ip_pwf  in varchar2) --关联流程    
as
   /*  --类型声明是游标变量
    create or replace package TestPackage is type outlist is ref cursor;
 */
  v_sql varchar2(1000);
  vn_count  numeric(12,0);
  vn_num    numeric(12,0);
  vn_id     numeric(12,0);
  vs_table  varchar2(30);
  vn_inst numeric(12,0);
begin
   vn_count:=length(ip_pwf);
   vn_num:=instr(ip_pwf,'.');
   vn_id:=to_number(substr(ip_pwf,1,vn_num-1));
   vs_table:=substr(ip_pwf,vn_num+1,vn_count-vn_num);
 begin
 v_sql:='select nvl(max(job_code),0)  from '||vs_table||' where company = '||vn_id||'';
 execute immediate v_sql into vn_inst;
 exception
   when others then
   vn_inst:=0;
 end;
 open o_result for
 select caller,enddate,content from tuser t where class_code < vn_inst;
end SP_CONTENT;    

本文由职坐标整理并发布，希望对同学们学习Oracle有所帮助，更多内容请关注职坐标数据库Oracle数据库频道！