ORCAl存储过程

1.存储过程结构
1.1 第一个存储过程

create or replace procedure proc1(
para1 varchar2,
para2 out varchar2,
para3 in out varchar2
) as
v_name varchar2(20);
begin
 v_name :='zhangsf';
 para3 := v_name;
dbms_output.put_line('para3:'||para3);
end;

上面就是一个最简单的存储过程。一个存储过程大体分为这么几个部分:
创建语句：create or replace procedure 存储过程名
如果没有or replace语句，则仅仅是新建一个存储过程。如果系统存在该存储过程，则会报错。Create or replace procedure 如果系统中没有此存储过程就新建一个，如果系统中有此存储过程则把原来删除掉，重新创建一个存储过程。
存储过程名定义：包括存储过程名和参数列表。参数名和参数类型。参数名不能重复，参数传递方式:IN, OUT, IN OUT
IN 表示输入参数，按值传递方式。
OUT 表示输出参数，可以理解为按引用传递方式。可以作为存储过程的输出结果，供外部调用者使用。
IN OUT 即可作输入参数，也可作输出参数。
参数的数据类型只需要指明类型名即可，不需要指定宽度。
参数的宽度由外部调用者决定。
过程可以有参数，也可以没有参数
变量声明块：紧跟着的as (is )关键字，可以理解为pl/sql的declare关键字，用于声明变量。
变量声明块用于声明该存储过程需要用到的变量，它的作用域为该存储过程。另外这里声明的变量必须指定宽度。遵循PL/SQL的变量声明规范。
过程语句块：从begin 关键字开始为过程的语句块。存储过程的具体逻辑在这里来实现。
异常处理块：关键字为exception ，为处理语句产生的异常。该部分为可选
结束块：由end关键字结果。

1.2 存储过程的参数传递方式
存储过程的参数传递有三种方式:IN,OUT,IN OUT .
IN 按值传递，并且它不允许在存储过程中被重新赋值。如果存储过程的参数没有指定存参数传递类型，默认为IN

create or replace procedure proc1(
  para1 varchar2,
  para2 out varchar2,
  para3 in out varchar2
) as
  v_name varchar2(20);
begin
  para1 := 'aaa';
  para2 := 'bbb';
  v_name :='zhangsf';
  para3 := v_name
  dbms_output.put_line('para3:'||para3);
  null;
end;

OUT 参数：作为输出参数，需要注意，当一个参数被指定为OUT类型时，就算在调用存储过程之前对该参数进行了赋值，在存储过程中该参数的值仍然是null.

首先，我们要明白，我们无法在存储过程的定义中指定存储参数的宽度，也就导致了我们无法在存储过程中控制传入变量的宽度。这个宽度是完全由外部传入时决定的。
我们再来看看OUT类型的参数的宽度。

create or replace procedure proc2(
para1 varchar2,
para2 out varchar2,
para3 in out varchar2
) as
v_name varchar2(2);
begin
para2 :='aaaaaaaaaaaaaaaaaaaa';
end;
 
--调用proc2
var p1 varchar2(1);
var p2 varchar2(1);
var p3 varchar2(1);
exec :p2 := 'a';
exec proc1(:p1,:p2,:p3);

在该过程中，p_para2被赋予了20个字符a.
而在外部的调用过程中，p2这个参数仅仅被定义为varchar2(1).
而把p2作为参数调用这个过程，却并没有报错。而且它的真实值就是20个a

执行这个过程，仍然正确执行。

可见，对于IN参数，其宽度是由外部决定。
对于OUT 和IN OUT 参数，其宽度是由存储过程内部决定。
因此，在写存储过程时，对参数的宽度进行说明是非常有必要的，最明智的方法就是参数的数据类型使用%type。这样双方就达成了一致。

1.3 参数的默认值
存储过程的参数可以设置默认值

create or replace procedure procdefault(
  p1 varchar2,
  p2 varchar2 default 'mark'
) as
begin
  dbms_output.put_line(p2);
end;

mark
可以通过default 关键字为存储过程的参数指定默认值。在对存储过程调用时，就可以省略默认值。
需要注意的是：默认值仅仅支持IN传输类型的参数。OUT 和 IN OUT不能指定默认值

对于有默认值的参数不是排在最后的情况。

create or replace procedure procdefault2(
  p1 varchar2 default 'remark',
  p2 varchar2
) as
begin
  dbms_output.put_line(p1);
end;

第一个参数有默认值，第二个参数没有。如果我们想使用第一个参数的默认值时
exec procdefault2('aa');
这样是会报错的。
那怎么变呢？可以指定参数的值。

SQL> exec procdefault2(p2 =>'aa');

remark
这样就OK了，指定aa传给参数p2

2. 存储过程内部块
2.1 内部块
我们知道了存储过程的结构，语句块由begin开始，以end结束。这些块是可以嵌套。在语句块中可以嵌套任何以下的块。

Declare .. beign ... exception ... end;
create or replace procedure innerBlock(
  p1 varchar2
) as
  o1 varchar2(10) := 'out1';
begin
  dbms_output.put_line(o1);
  declare
    inner1 varchar2(20);
  begin
    inner1 := 'inner1';
    dbms_output.put_line(inner1);
 
    declare
      inner2 varchar2(20);
    begin
      inner2 := 'inner2';
      dbms_output.put_line(inner2);
    end;
    exception
      when others then
        null;
  end;
end;

需要注意变量的作用域。

3.存储过程的常用技巧
3.1 哪种集合?
我们在使用存储过程的时候经常需要处理记录集，也就是多条数据记录。分为单列多行和多列多行，这些类型都可以称为集合类型。我们在这里进行比较这些集合类型，以便于在编程时做出正确的选择。
索引表,也称为pl/sql表，不能存储于数据库中，元素的个数没有限制,下标可以为负值。

3.2 选用何种游标?
显示游标分为：普通游标，参数化游标和游标变量三种。
下面以一个过程来进行说明

create or replace procedure proccursor(
  p varchar2
) as
  v_rownum number(10) := 1;
  cursor c_postype is select pos_type from pos_type_tb1 where rownum = 1;
  cursor c_postype1 is select pos_type from pos_type_tb1 where rownum = v_rownum;
  cursor c_postype2(p_rownum number) is select pos_type from pos_type_tb1 where rownum = p_rownum;
  type t_postype is ref cursor;
  c_postype3 t_postype;
  v_postype varchar2(20);
 
begin
  open c_postype;
  fetch c_postype into v_postype;
    dbms_output.put_line(v_postype);
  close c_postype;
  open c_postype1;
 
  fetch c_postype1 into v_postype;
    dbms_output.put_line(v_postype);
  close c_postype1;
  open c_postype2(1);
 
  fetch c_postype2 into v_postype;
    dbms_output.put_line(v_postype);
  close c_postype2;
 
  open c_postype3 for select post_type from pos_type_tb1 where rownum=1;
  fetch c_postype3 into v_postype;
    dbms_output.put_line(v_postype);
  close c_postype3
end;

cursor c_postype is select pos_type from pos_type_tbl where rownum =1
这一句是定义了一个最普通的游标，把整个查询已经写死,调用时不可以作任何改变。
cursor c_postype1 is select pos_type from pos_type_tbl where rownum = v_rownum;
这一句并没有写死，查询参数由变量v_rownum来决定。需要注意的是v_rownum必须在这个游标定义之前声明。
cursor c_postype2(p_rownum number) is select pos_type from pos_type_tbl where rownum = p_rownum;
这一条语句与第二条作用相似，都是可以为游标实现动态的查询。但是它进一步的缩小了参数的作用域范围。但是可读性降低了不少。
type t_postype is ref cursor ;
c_postype3 t_postype;
先定义了一个引用游标类型，然后再声明了一个游标变量。
open c_postype3 for select pos_type from pos_type_tbl where rownum =1;
然后再用open for 来打开一个查询。需要注意的是它可以多次使用,用来打开不同的查询。
从动态性来说，游标变量是最好用的，但是阅读性也是最差的。
注意，游标的定义只能用使关键字IS，它与AS不通用。

3.3 游标循环最佳策略
我们在进行PL/SQL编程时，经常需要循环读取结果集的数据。进行逐行处理，这个过程就需要对游标进行循环。对游标进行循环的方法有多种，我们在此一一分析。

create or replace procedure proccycle(
  p varchar2
) as
cursor c_postype is select pos_type,description from pos_type_tb1 where rownum < 6;
v_postype varchar2(20);
v_description varchar2(50);
begin
open c_postype;
if c_postype%found then
  dbms_output.put_line('found true');
elseif c_postype%found = false then
  dbms_output.put_line('found false');
else
  dbms_output.put_line('found null');
end if;
 
loop
  fetch c_postype into v_postype,v_description;
  exit when c_postype%notfound;
  dbms_output.put_line('postype:'||v_postype||',description:'||v_description);
end loop;
close c_postype;
dbms_output.put_line('---loop end---');
 
open c_postype;
  fetch c_postype into v_postype,v_description;
  while c_postype%found loop
    dbms_output.put_line('postype:'||v_postype||',description:'||v_description);
  fetch c_postype into v_postype,v_description;
  end loop;
close c_postype;
dbms_output.put_line('---while end---');
 
for v_pos in c_postype loop
  v_postype := v_pos.pos_type;
  v_description := v_pos.description;
  dbms_output.put_line('postype:'||v_postype||',description:'||v_description);
end loop;
dbms_output.put_line('---for end---');
end;

使用游标之前需要开打游标,open cursor，循环完后再关闭游标close cursor.
这是使用游标应该慎记于心的法则。
上面的过程演示了游标循环的三种方法。
在讨论循环方法之前，我们先看看%found和%notfound这些游标的属性。

open c_postype;
if c_postype%found then
  dbms_output.put_line('found true');
elseif c_postype%found = false then
  dbms_output.put_line('found false');
else
  dbms_output.put_line('found null');
end if;

在打开一个游标之后，马上检查它的%found或%notfound属性，它得到的结果即不是true也不是false.而是null.必须执行一条fetch语句后，这些属性才有值。

第一种使用loop 循环

loop
  fetch c_postype into v_postype,v_description;
  exit when c_postype%notfound;
  ...
end loop;

这里需要注意，exit when语句一定要紧跟在fetch之后。必避免多余的数据处理。
处理逻辑需要跟在exit when之后。这一点需要多加小心。
循环结束后要记得关闭游标

第二种使用while循环。

fetch c_postype into v_postype,v_description;
while c_postype%found loop
...
   fetch c_postype into v_postype,v_description;
end loo;

我们知道了一个游标打开后，必须执行一次fetch语句，游标的属性才会起作用。所以使用while 循环时，就需要在循环之前进行一次fetch动作。
而且数据处理动作必须放在循环体内的fetch方法之前。循环体内的fetch方法要放在最后。否则就会多处理一次。这一点也要非常的小心。
总之，使用while来循环处理游标是最复杂的方法。

第三种 for循环

for v_pos in c_postype loop
  v_postype := v_pos.pos_type;
  v_description := v_pos.description;
  ...
end loop;

可见for循环是比较简单实用的方法。
首先，它会自动open和close游标。解决了你忘记打开或关闭游标的烦恼。
其它,自动定义了一个记录类型及声明该类型的变量，并自动fetch数据到这个变量中。
我们需要注意v_pos 这个变量无需要在循环外进行声明，无需要为其指定数据类型。
它应该是一个记录类型，具体的结构是由游标决定的。
这个变量的作用域仅仅是在循环体内。
把v_pos看作一个记录变量就可以了，如果要获得某一个值就像调用记录一样就可以了。
如v_pos.pos_type
由此可见，for循环是用来循环游标的最好方法。高效，简洁，安全。
但遗憾的是，常常见到的却是第一种方法。所以从今之后得改变这个习惯了。

3.4 select into不可乎视的问题
我们知道在pl/sql中要想从数据表中向变量赋值，需要使用select into 子句。
但是它会带动来一些问题，如果查询没有记录时，会抛出no_data_found异常。
如果有多条记录时，会抛出too_many_rows异常。
这个是比较糟糕的。一旦抛出了异常，就会让过程中断。特别是no_data_found这种异常，没有严重到要让程序中断的地步，可以完全交给由程序进行处理。

create or replace procedure procexception(
p varchar2
) as
  v_postype varchar2(20);
begin
  select pos_type into v_postype from pos_type_tb1 where 1=0;--绝壁为空,报no_data_found的错误
  dbms_output.put_line(v_postype);
end;

处理这个有三个办法
1．直接加上异常处理。

create or replace procedure procexception(
p varchar2
) as
  v_postype varchar2(20);
begin
  select pos_type into v_postype from pos_type_tb1 where 1=0;--绝壁为空
  dbms_output.put_line(v_postype);
--解决办法1:增加异常处理模块
exception
  when no_data_found then
    dbms_output.put_line("未找到数据");
end;

这样做换汤不换药，程序仍然被中断。可能这样不是我们所想要的。
2. select into做为一个独立的块，在这个块中进行异常处理

create or replace procedure procexception(
p varchar2
) as
  v_postype varchar2(20);
begin
  select pos_type into v_postype from pos_type_tb1 where 1=0;--绝壁为空
  dbms_output.put_line(v_postype);
--其实吧,我觉得和上面那种差不多,原理一样的呀,no zuo nod ie
exception
  when no_data_found then
    v_postype := '';
  end;
  dbms_output.put_line(v_postype);
end;

这是一种比较好的处理方式了。不会因为这个异常而引起程序中断。
3.使用游标

create or replace procedure proceexception(
p varchar2
) as
  v_postype varchar2(20);
  cursor c_postype is select pos_type from pos_type_tb1 where 1=0;
beign
  open c_postype;
  fetch c_postype into v_postype;
  close c_postype;
  dbms_output.put_line(v_postype);
end;

--个人觉得这样先进行非空判断会更好
create or replace procedure proceexception(
p varchar2
) as
  v_postype varchar2(20);
  cursor c_postype is select pos_type from pos_type_tb1 where 1=0;
beign
  if c_postype%found then
    open c_postype;
    fetch c_postype into v_postype;
    close c_postype;
    dbms_output.put_line(v_postype);
  end if;
end;

这样就完全的避免了no_data_found异常。完全交由程序员来进行控制了。

第二种情况是too_many_rows 异常的问题。
Too_many_rows 这个问题比起no_data_found要复杂一些。
给一个变量赋值时，但是查询结果有多个记录。
处理这种问题也有两种情况：
1．多条数据是可以接受的，也就是说从结果集中随便取一个值就行。这种情况应该很极端了吧，如果出现这种情况，也说明了程序的严谨性存在问题。
2．多条数据是不可以被接受的，在这种情况肯定是程序的逻辑出了问题，也说是说原来根本就不会想到它会产生多条记录。
对于第一种情况，就必须采用游标来处理，而对于第二种情况就必须使用内部块来处理，重新抛出异常。
多条数据可以接受,随便取一条，这个跟no_data_found的处理方式一样，使用游标。
我这里仅说第二种情况，不可接受多条数据，但是不要忘了处理no_data_found哦。这就不能使用游标了，必须使用内部块。

create or replace proceduer procexception2(
p varchar2
) as
v_postype varchar2(20);
begin
  begin
    select pos_type into v_postype from pos_type_tb1 where rownum < 5;
  exception
    when no_data_found then
      v_postype := null;
    when too_many_rows then
      raise_application_error(-20000,'对v_postype赋值是,找到多条数据');
  end;
  dbms_output.put_line(v_postype);
end;

需要注意的是一定要加上对no_data_found的处理，对出现多条记录的情况则继续抛出异常，让上一层来处理。
总之对于select into的语句需要注意这两种情况了。需要妥当处理啊。

3.5 在存储过程中返回结果集
我们使用存储过程都是返回值都是单一的，有时我们需要从过程中返回一个集合。即多条数据。这有几种解决方案。比较简单的做法是写临时表，但是这种做法不灵活。而且维护麻烦。我们可以使用嵌套表来实现.没有一个集合类型能够与java的jdbc类型匹配。这就是对象与关系数据库的阻抗吧。数据库的对象并不能够完全转换为编程语言的对象，还必须使用关系数据库的处理方式

【通用结构】

create or replace procedure存储名 (输入变量名变量的数据结构)

begin

操作语句

end;

【通用语句】调用存储过程

exec过程名()

【例题1】创建存储过程，删除score表中某学号的学生数据

create or replace procedure p_delscore

(v_sno score.sno%type)

as

begin

delete from score where sno=v_sno;

if sql%rowcount=0 then

dbms_output.put_line('nodata');

else

dbms_output.put_line('delete'||sql%rowcount||'row');

commit;

end if;

end;

【执行】exec p_delscore('0601020212')

【解析】数据操作成功,一定要写commit提交。存储过程最重要的就是安全性，如果代码运行停止了，防止数据库会处于某种不安全状态。

【例题2】创建存储过程，给出需要修改的院名，修改sdept表中该院系的名称

create or replace procedure p_update

(v_name sdept.deptno%type,v_dname sdept.deptno%type)

as

begin

update sdept set dname=v_dname where dname=v_name;

if sql%rowcount!=0 then

dbms_output.put_line('更新'||sql%rowcount||'行');

commit;

else

dbms_output.put_line('没有数据更新');

end if;

end;

【执行】exec p_update('计算机信息院','计算机学院')

【例题3】结合游标，创建存储过程，查找某一门课程的所有不及格学生的学号，将其储存在不及格表中。

create table failgrade(

sno char(15),

cno char(15),

grade number(6,2)

)

create or replace procedure p_inscore

(v_cname course.cname%type)

as

cursor scfail_cur is

select * from score where grade<60 and cno =(select cno from course where cname =v_cname);

sf scfail_cur%rowtype;

begin

open scfail_cur;

loop

fetch scfail_cur into sf;

if scfail_cur%rowcount=0 then

dbms_output.put_line('nodata');

exit;

else

exit when scfail_cur%notfound;

insert into failgrade values(sf.sno,sf.cno,sf.grade);

end if;

end loop;

close scfail_cur;

end;

存储过程

　　1 CREATE OR REPLACE PROCEDURE 存储过程名

　　2 IS

　　3 BEGIN

　　4 NULL;

　　5 END;

行1:

　　CREATE OR REPLACE PROCEDURE 是一个SQL语句通知Oracle数据库去创建一个叫做skeleton存储过程, 如果存在就覆盖它;

行2:

　　IS关键词表明后面将跟随一个PL/SQL体。

行3:

　　BEGIN关键词表明PL/SQL体的开始。

行4:

　　NULL PL/SQL语句表明什么事都不做，这句不能删去，因为PL/SQL体中至少需要有一句;

行5:

　　END关键词表明PL/SQL体的结束

存储过程创建语法：

create or replace procedure 存储过程名（param1 in type，param2 out type）

变量1 类型（值范围）; --vs_msg VARCHAR2(4000);

变量2 类型（值范围）;

Begin

Select count(*) into 变量1 from 表A where列名=param1；

If (判断条件) then

Select 列名 into 变量2 from 表A where列名=param1；

Dbms_output。Put_line(‘打印信息’);

Elsif (判断条件) then

Dbms_output。Put_line(‘打印信息’);

Else

Raise 异常名（NO_DATA_FOUND）;

End if;

Exception

When others then

Rollback;

End;

注意事项：

1，存储过程参数不带取值范围，in表示传入，out表示输出

类型可以使用任意Oracle中的合法类型。

2，变量带取值范围，后面接分号

3，在判断语句前最好先用count（*）函数判断是否存在该条操作记录

4，用select 。。。into。。。给变量赋值

5，在代码中抛异常用 raise+异常名

CREATE OR REPLACE PROCEDURE存储过程名
(

--定义参数
is_ym IN CHAR(6) ,

the_count OUT NUMBER,
)
AS
--定义变量
vs_msg   VARCHAR2(4000);   --错误信息变量
vs_ym_beg  CHAR(6);      --起始月份
vs_ym_end  CHAR(6);      --终止月份
vs_ym_sn_beg CHAR(6);     --同期起始月份
vs_ym_sn_end CHAR(6);     --同期终止月份

--定义游标(简单的说就是一个可以遍历的结果集)

CURSOR cur_1 IS
  SELECT 。。。
  FROM 。。。
    WHERE 。。。
   GROUP BY 。。。;

BEGIN

--用输入参数给变量赋初值，用到了Oralce的SUBSTR TO_CHAR ADD_MONTHS

TO_DATE 等很常用的函数。
vs_ym_beg := SUBSTR(is_ym,1,6);
vs_ym_end := SUBSTR(is_ym,7,6);
vs_ym_sn_beg := TO_CHAR(ADD_MONTHS(TO_DATE(vs_ym_beg,'yyyymm'), -12),'yyyymm');
vs_ym_sn_end := TO_CHAR(ADD_MONTHS(TO_DATE(vs_ym_end,'yyyymm'), -12),'yyyymm');

--先删除表中特定条件的数据。

DELETE FROM 表名 WHERE ym = is_ym;

--然后用内置的DBMS_OUTPUT对象的put_line方法打印出影响的记录行数，其中用到一个系统变量SQL%rowcount

DBMS_OUTPUT.put_line('del上月记录='||SQL%rowcount||'条');

INSERT INTO表名(area_code,ym,CMCODE,rmb_amt,usd_amt)
SELECT area_code,is_ym,CMCODE,SUM(rmb_amt)/10000,SUM(usd_amt)/10000
FROM BGD_AREA_CM_M_BASE_T
WHERE ym >= vs_ym_beg
AND ym <= vs_ym_end
GROUP BY area_code,CMCODE;

DBMS_OUTPUT.put_line('ins当月记录='||SQL%rowcount||'条');
--遍历游标处理后更新到表。遍历游标有几种方法，用for语句是其中比较直观的一种。

FOR rec IN cur_1 LOOP
  UPDATE 表名
  SET rmb_amt_sn = rec.rmb_amt_sn,usd_amt_sn = rec.usd_amt_sn
   WHERE area_code = rec.area_code
   AND CMCODE = rec.CMCODE
   AND ym = is_ym;
END LOOP;

COMMIT;

--错误处理部分。OTHERS表示除了声明外的任意错误。SQLERRM是系统内置变量保存了当前错误的详细信息。

EXCEPTION

WHEN OTHERS THEN
vs_msg := 'ERROR IN xxxxxxxxxxx_p('||is_ym||'):'||SUBSTR(SQLERRM,1,500);

ROLLBACK;

--把当前错误记录进日志表。

INSERT INTO LOG_INFO(proc_name,error_info,op_date)
   VALUES('xxxxxxxxxxx_p',vs_msg,SYSDATE);
   COMMIT;
   RETURN;

END;