2. 存储过程内部块
2.1 内部块
我们知道了存储过程的结构,语句块由begin开始,以end结束。这些块是可以嵌套。在语句块中可以嵌套任何以下的块。
- Declare … begin … 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;
Declare … begin … 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表,不能存储于数据库中,元素的个数没有限制,下标可以为负值。
- type t_table is table of varchar2( 20 ) index by binary_integer;
- v_student t_table;
type t_table is table of varchar2(20) index by binary_integer; v_student t_table;
varchar2(20)表示存放元素的数据类型,binary_integer表示元素下标的数据类型。
嵌套表,索引表没有 index by子句就是嵌套表,它可以存放于数据中,元素个数无限,下标从1开始,并且需要初始化
- type t_nestTable is table of varchar2( 20 );
- v_class t_nestTable ;
type t_nestTable is table of varchar2(20); v_class t_nestTable ;
仅是这样声明是不能使用的,必须对嵌套表进行初始化,对嵌套表进行初始化可以使用它的构造函数
- v_class :=t_nestTable( 'a' , 'b' , 'c' );
v_class :=t_nestTable('a','b','c');
变长数组,变长数组与高级语言的数组类型非常相似,下标以1开始,元素个数有限。
- type t_array is varray ( 20 ) of varchar2( 20 );
type t_array is varray (20) of varchar2(20);
varray(20)就定义了变长数组的最大元素个数是20个
变长数组与嵌套表一样,也可以是数据表列的数据类型。
同时,变长数组的使用也需要事先初始化。
类型 可存储于数据库 元素个数 是否需初始化 初始下标值
索引表 否 无限 不需
嵌套表 可 无限 需 1
可变数组 可 有限(自定义) 需 1
由此可见,如果仅仅是在存储过程中当作集合变量使用,索引表是最好的选择。
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_tbl where rownum = 1 ;
- cursor c_postype1 is select pos_type from pos_type_tbl where 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;
- 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 pos_type from pos_type_tbl where rownum = 1 ;
- fetch c_postype3 into v_postype;
- dbms_output.put_line(v_postype);
- close c_postype3;
- end;
create or replace procedure proccursor(p varchar2) as v_rownum number(10) := 1; 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; 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; 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 pos_type from pos_type_tbl 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_tbl 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' );
- elsif 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;
create or replace procedure proccycle(p varchar2) as cursor c_postype is select pos_type, description from pos_type_tbl 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'); elsif 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' );
- elsif c_postype%found = false then
- dbms_output.put_line( 'found false' );
- else
- dbms_output.put_line( 'found null' );
- end if ;
open c_postype; if c_postype%found then dbms_output.put_line('found true'); elsif 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
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 loop;
fetch c_postype into v_postype,v_description; while c_postype%found loop …… fetch c_postype into v_postype,v_description ; end loop;
我们知道了一个游标打开后,必须执行一次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 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循环是用来循环游标的最好方法。高效,简洁,安全。
但遗憾的是,常常见到的却是第一种方法。所以从今之后得改变这个习惯了。