Oracle中使用程序包学习实例

1:创建程序包规范，

   可以声明变量，类型，子程序等

  

create or replace package pack_me is

    procedure emp_proc (num number);

    function emp_func(empno number) return varchar2;

end pack_me;

 

在程序包规范中声明了存储过程emp_proc和函数emp_func,它们的实现在程序包主体中。

 

2:  创建程序包主体

   create or replace package body pack_me is

 

     procedure emp_proc(num number) is

         e_mail  varchar(50);

      begin

          select t.email into e_email from employees t where t.id=num;

          dbms.output.put_line(email);

      end emp_proc;

 

      function emp_func(empno number) return varchar2 is

           emp_name varchar2(10);

      begin

          select t.name into emp_name from employees t where t.id=empno;

          return emp_name;

      end emp_func;

 

end pack_me;

 

3:测试程序包

 

declare

   name varchar2(50);

   no number;

begin

   no := 3;

   pack_me.emp_proc(no);  --输出编号为3的员工的email信息

   name := pack_me.emp_func(no);  --获取编号为3的员工的姓名

   dbms_output.put_line(name);  --输出姓名

end;