oracle包的简单创建和调用-例子
创建包头
-- 创建包头
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;
包调用
调用
-- 调用过程
call pack_test1.p_test1('参数1');
-- 调用函数
select pack_test1.f_test1('参数2') from dual;
调用结果打印
p_1的值为:参数1
全局变量的值为:default
改变后的全局变量值为:参数1
获取的全局变量值为:参数1
返回值为:参数1-参数2
其他
在PL/SQL中,包头创建语句可以直接点进去编辑,但是包体创建以后需要修改修改就不好找了,可以通过以下SQL语句查找回来修改修改并重新编译
select text
from all_source
where owner = 'YOUR_ACCOUNT_NAME'
and type = 'PACKAGE BODY'
and name = 'PACK_TEST1'
order by line