ORACLE之PACKAGE-包、存储过程、函数

1，简单的包。

创建包规范：

create or replace package pack_test1 is
  -- 定义过程1
  procedure p_test1(p_1 in varchar2);
  -- 定义函数1
  function f_test1(p_1 in varchar2) return varchar2;
end pack_test1;

创建包体：

create or replace package body pack_test1 is
  -- 包全局变量1
  v_param1 varchar(20) := 'default';

  -- 实现过程1
  procedure p_test1(p_1 in varchar2) is
  begin

    dbms_output.put_line('p_1的值为：'|| p_1);
    dbms_output.put_line('全局变量的值为：'||v_param1);
    -- 改变全局变量
    v_param1 := p_1;
    dbms_output.put_line('改变后的全局变量值为：'||v_param1);

  end;

  -- 实现函数1
  function f_test1(p_1 in varchar2) return varchar2 is
    v_rt varchar2(50);
  begin
    dbms_output.put_line('获取的全局变量值为：'||v_param1);

    v_rt := v_param1||'-'||p_1;

    dbms_output.put_line('返回值为：'||v_rt);

    return v_rt;
  end f_test1;


end pack_test1;
---------------------

调用包：

在一般的sql窗口可以使用以下方法：

-- 调用过程
call pack_test1.p_test1('参数1');

-- 调用函数
select pack_test1.f_test1('参数2') from dual;

在命令窗口可以使用：

exec pack_test1.p_test1('参数1');--执行此包 存在版本问题 看不到输出

 

2，包间调用

刚学pl/sql编程，写了两个package。pkg_temp_fn和pkg_temp_fn2。内容涉及pl/sql基本语法，游标，存储过程（in,out），函数（有返回值）。

 

• pkg_temp_fn内有一个function f_getdept(v_deptid number) return VARCHAR2和一个procedure p_getinfo(v_mapid NUMBER)

创建包规范

create or replace package pkg_temp_fn is
  function f_getdept(v_deptid number) return VARCHAR2;
  --reference pkg_temp_fn2
  procedure p_getinfo(v_mapid NUMBER/*,v_pname VARCHAR2(20),v_deptno VARCHAR2(15)*/);
 -- procedure p_main_process;
end pkg_temp_fn;
--3/24/2016
--var map_id number;
--exec pkg_temp_fn.p_getinfo(&map_id);调用方法

创建包体

create or replace package body pkg_temp_fn
is
  function f_getdept(v_deptid number) return VARCHAR2
  is
    deptno varchar2(15);
    begin
        select y.dept_no into deptno from t_fn_dept y where y.dept_id=v_deptid;
      return deptno;
    end f_getdept;

  procedure p_getinfo(v_mapid NUMBER)
    is
      cursor xing is select x.person_name,x.dept from t_fn_person x where x.map_id=v_mapid;
      pname VARCHAR2(20);
      pdept number;
      v_deptno VARCHAR2(15);
      begin
        open xing;
        loop
          fetch xing into pname,pdept;
          exit when xing%notfound;
          v_deptno:=f_getdept(pdept);--call function
          dbms_output.put_line(pname||'''s dept is :'||v_deptno);
        end loop;
        close xing;
      end p_getinfo;
end pkg_temp_fn;

• kg_temp_fn2内有一个function f_getdept(v_deptid number) return VARCHAR2、一个procedure p_getinfo(v_mapid NUMBER,v_pname out VARCHAR2,v_deptno out VARCHAR2),一个procedure p_main_process(v_mapid NUMBER)。

创建包规范

create or replace package pkg_temp_fn2 is
  function f_getdept(v_deptid number) return VARCHAR2;
  procedure p_getinfo(v_mapid NUMBER,v_pname out VARCHAR2,v_deptno out VARCHAR2);
  procedure p_main_process(v_mapid NUMBER);
end pkg_temp_fn2;
--3/24/2016
--var map_id number;
--exec pkg_temp_fn2.p_main_process(&map_id);调用方法

创建包体

create or replace package body pkg_temp_fn2
is
  function f_getdept(v_deptid number) return VARCHAR2
  is
    deptno varchar2(15);
    begin
        select y.dept_no into deptno from t_fn_dept y where y.dept_id=v_deptid;
      return deptno;
    end f_getdept;

  procedure p_getinfo(v_mapid in NUMBER,v_pname out VARCHAR2,v_deptno out VARCHAR2)
    is
      cursor xing is select x.person_name,x.dept from t_fn_person x where x.map_id=v_mapid;
      pdept number;
      begin
        open xing;
        loop
          fetch xing into v_pname,pdept;
          exit when xing%notfound;
          v_deptno:=f_getdept(pdept);--
          --dbms_output.put_line(pname||'''s dept is :'||v_deptno);
        end loop;
        close xing;
      end p_getinfo;
   procedure p_main_process(v_mapid NUMBER)
     is
     v_pname  VARCHAR2(20);
     v_deptno  varchar2(15);
     begin
       p_getinfo(v_mapid,v_pname,v_deptno);
       dbms_output.put_line(v_pname||'''s dept is :'||v_deptno);
     end p_main_process;
end pkg_temp_fn2;

ps:

定义变量或者参数的的时候，类型不要有括号，否则报错。