oracle建立包 含預存程序和函數

create table my_toys

(

    id varchar2(5),

     name varchar2(20),

     price number

);

--插入測試資料

insert into my_toys values('G001','電熱毯',145);

insert into my_toys values('G002','單車',327);

insert into my_toys values('G003','牙膏',14.5);

insert into my_toys values('G004','棉被',105);

insert into my_toys values('G005','熱水瓶',65);

insert into my_toys values('G006','拖鞋',22.5);

 

--包規範(必須先聲明包在建立包體)

create or replace package toyspack

as

    procedure UpdateToyPrice;

     function AvgToyPrice return number;

end toyspack;

 

--包主體

create or replace package body toyspack

as

    procedure UpdateToyPrice

     as

        avgPrice number := AvgToyPrice;

     begin

        while (avgPrice <= 400) loop

            --迴圈更新

            update my_toys set price=

                 case

                     when price*1.1<500 then price*1.1

                     else price

                  end;

             avgPrice := AvgToyPrice;

             commit;

         end loop;

     end UpdateToyPrice;

    

     function AvgToyPrice return number

     as

        v_avg number;

     begin

        select avg(price) into v_avg from my_toys;

         return v_avg;

     end AvgToyPrice;

end toyspack;

 

--調用

execute toyspack.UpdateToyPrice;

select toyspack.AvgToyPrice from dual;

轉載地址：http://wenwen.soso.com/z/q363392651.htm