程序包由兩部分構(gòu)成：規(guī)范（specification）和主體（body）。
?創(chuàng)建表
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');
?
規(guī)范：
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
--函數(shù)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;
--存儲(chǔ)過(guò)程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;
?執(zhí)行程序中函數(shù)/存儲(chǔ)過(guò)程
--
調(diào)用程序包中的函數(shù)get_people_string
select
pkg_people.get_people_string()
from
dual ;
--
調(diào)用程序包中的存儲(chǔ)過(guò)程update_people()
begin
pkg_people.update_people(
2
);
end;
?
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號(hào)聯(lián)系： 360901061
您的支持是博主寫(xiě)作最大的動(dòng)力，如果您喜歡我的文章，感覺(jué)我的文章對(duì)您有幫助，請(qǐng)用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點(diǎn)擊下面給點(diǎn)支持吧，站長(zhǎng)非常感激您！手機(jī)微信長(zhǎng)按不能支付解決辦法：請(qǐng)將微信支付二維碼保存到相冊(cè)，切換到微信，然后點(diǎn)擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對(duì)您有幫助就好】元
