Oracle程序包

程序包由两部分构成：规范（specification）和主体（body）。

 创建表

create table PEOPLE

(

  ID     NUMBER primary key not null,

  NAME   NVARCHAR2(20) not null,

  STATUS NVARCHAR2(3)

)



insert into people  (id,name,status) values(1,'福康','CLX');

insert into people  (id,name,status) values(2,'陆晓','act');

insert into people  (id,name,status) values(3,'王山','CLX');

insert into people  (id,name,status) values(4,'刘迪','CLX');

insert into people  (id,name,status) values(5,'张玉','CLX');

insert into people  (id,name,status) values(6,'金山','CLX');

insert into people  (id,name,status) values(7,'顺溜','CLX');

insert into people  (id,name,status) values(8,'辞海','CLX');

insert into people  (id,name,status) values(9,'陆珣','CLX');

insert into people  (id,name,status) values(10,'晓笑','CLX');

 

规范：

create or replace package pkg_people as

  peopleString varchar2(200);

  peopleStatus nvarchar2(3) := 'CLX';

  function get_people_string return varchar2;

  procedure update_people(in_id in number);

  procedure insert_people(in_id     number,

                          in_name   in nvarchar2,

                          in_status in nvarchar2);

  procedure delete_people(in_id in number);

end pkg_people;

 主体：

create or replace package body pkg_people as



  --函数get_student_string

  function get_people_string return varchar2 is

  begin

    declare

      cursor cu_people is

        select name from people order by id;

      people_name varchar2(20);

      rowString   varchar2(500);

    

    begin

      open cu_people;

      fetch cu_people

        into people_name;

    

      while cu_people%found loop

        rowString := rowString || people_name || '，';

        fetch cu_people

          into people_name;

      end loop;

    

      return substr(rowString, 1, length(rowString) - 1);

    end;

  end get_people_string;



  --存储过程update_people

  procedure update_people(in_id in number) as

  begin

    update people set status = peopleStatus where id = in_id;

    commit;

  end update_people;



end pkg_people;

 执行程序中函数/存储过程

--调用程序包中的函数get_people_string

select pkg_people.get_people_string() from dual ;

--调用程序包中的存储过程update_people()

begin

  pkg_people.update_people(2);

end;