实用Oracle存储过程技巧 - 数据库编程

aaaaaaaa'; end; SQL> var p1 varchar2(1); SQL> var p2 varchar2(1); SQL> var p3 varchar2(1); SQL> exec :p2 :='a'; SQL> exec proc1(:p1,:p2,:p3);

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

SQL> select dump(:p2) from dual;   
DUMP(:P2)   
---------------------------------------------------------------------------   
Typ=1 Len=20: 97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97,97  
p2   
---------   
aaaaaaaaaaaaaaaaaaaa   
       
    再来看看IN OUT参数的宽度   
create or replace procedure proc1(   
  p_para1 varchar2,   
  p_para2 out varchar2,   
  p_para3 in out varchar2   
)as    
 v_name varchar2(2);   
begin   
  p_para3 :='aaaaaaaaaaaaaaaaaaaa';   
end;   
  
SQL> var p1 varchar2(1);   
SQL> var p2 varchar2(1);   
SQL> var p3 varchar2(1);   
SQL> exec proc1(:p1,:p2,:p3);

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

可见，对于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;   
  
SQL> set serveroutput on;   
SQL> exec procdefault('a');

可以通过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 … 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;

varchar2(20)表示存放元素的数据类型，binary_integer表示元素下标的数据类型。
嵌套表，索引表没有 index by子句就是嵌套表，它可以存放于数据中，元素个数无限，下标从1开始，并且需要初始化

type t_nestTable is table of varchar2(20);   
v_class t_nestTable ;

仅是这样声明是不能使用的，必须对嵌套表进行初始化，对嵌套表进行初始化可以使用它的构造函数
v_class :=t_nestTable('a','b','c'); 变长数组，变长数组与高级语言的数组类型非常相似，下标以1开始，元素个数有限。
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;   
ty

实用Oracle存储过程技巧(二)