阿里云-云小站(无限量代金券发放中)
【腾讯云】云服务器、云数据库、COS、CDN、短信等热卖云产品特惠抢购

Oracle 存储过程 PROCEDURE

218次阅读
没有评论

共计 2000 个字符,预计需要花费 5 分钟才能阅读完成。

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 PNEXTID
(
 tablename  IN  VARCHAR2 ,
 idno    OUT  NUMBER
)
IS
 sqlstring  VARCHAR2 (500);
BEGIN
 sqlstring := ‘SELECT nvl(max(id),0)+1 FROM ‘ ||tablename;
  execute immediate sqlstring into idno;              — 动态执行
  merge into tSequence a using (select idno as ID, tablename as Name from dual) b  – 组合成表  merge into 确定表
  on (upper(a.Name)=upper(b.Name))                      – 表名大写化
  when matched then update set a.ID= case when b.ID>a.ID then b.ID else a.ID+ 1 end  — update;  case when  then  else  end;
  when not matched then insert (ID, Name) values (b.ID,b.Name);                          –insert;
  select ID into idno from tSEQUENCE WHERE upper(name) = upper(tablename);
EXCEPTION
  WHEN OTHERS THEN
  idno := – 1 ;
END pNextID;

2. 返回列表数据 (游标)

 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 专题页面 https://www.linuxidc.com/topicnews.aspx?tid=12

正文完
星哥玩云-微信公众号
post-qrcode
 0
星锅
版权声明:本站原创文章,由 星锅 于2022-01-22发表,共计2000字。
转载说明:除特殊说明外本站文章皆由CC-4.0协议发布,转载请注明出处。
【腾讯云】推广者专属福利,新客户无门槛领取总价值高达2860元代金券,每种代金券限量500张,先到先得。
阿里云-最新活动爆款每日限量供应
评论(没有评论)
验证码
【腾讯云】云服务器、云数据库、COS、CDN、短信等云产品特惠热卖中