当前位置:Gxlcms > mysql > 图解Oracle包实例

图解Oracle包实例

时间:2021-07-01 10:21:17 帮助过:37人阅读

以下使用SQL Developer,使用Oracle SCOTT账号自带emp表,创建包。 1在包中定义record类型,并在匿名块中调用 --在包中自定义类型 create or replace package my_bao as type emp_type is record( gh emp.empno%type, xm emp.ename%type, gz emp.sal%type );

以下使用SQL Developer,使用Oracle SCOTT账号自带emp表,创建包。


1 在包中定义record类型,并在匿名块中调用
--在包中自定义类型
create or replace package my_bao
as
type emp_type is record(
gh emp.empno%type,
xm emp.ename%type,
gz emp.sal%type
);
end;

创建之后刷新一下,左侧视图 程序包 下出来所创建内容;



2 调用,

declare
v1 my_bao.emp_type;
begin
select empno,ename,sal into v1 from emp where empno=7900;
dbms_output.put_line('工号='||v1.gh);
dbms_output.put_line('姓名='||v1.xm);
dbms_output.put_line('工资='||v1.gz);
end;

结果如下图;


如果DBMS输出中没有内容,点击上图中最右侧的像书的页的那个小图标,打开DBMS输出;


3 在包中定义过程hello和函数f_add(p1,p2)
--定义包规范
create or replace package my_bao2
as
type emp_type is record(
gh emp.empno%type,
xm emp.ename%type,
gz emp.sal%type
);
procedure hello(p_name varchar2);
function f_add(p1 number,p2 number) return number;
end;



4 实现包规范,即包体(package body)
create or replace package body my_bao2
as
type emp_type is record(
gh emp.empno%type,
xm emp.ename%type,
gz emp.sal%type
);
procedure hello(p_name varchar2)
as
begin
dbms_output.put_line('hello,'||p_name);
end;


function f_add(p1 number,p2 number) return number
as
v1 number;
begin
v1:=p1+p2;
return v1;
end;
end;



5 调用

select my_bao2.f_add(1,2) from dual;



6 调用

call my_bao2.hello('oracle');



7 包中重载方法
重载的要点就是名称一样,而参数的类型或者个数不同。
定义代码:
create or replace package my_bao3
as
function f_add(p1 number,p2 number) return number;
function f_add(p1 varchar,p2 varchar) return number;
end;


包体:

create or replace
package body my_bao3
as

function f_add(p1 number,p2 number) return number
as
v1 number;
begin
v1:=p1+p2;
return v1;
end;

ction f_add(p1 varchar,p2 varchar) return number
as
v1 number;
begin
v1:=p1+p2;
return v1;
end;
end;



8 调用

select my_bao3.f_add(1,2) from dual;



9 调用

select my_bao3.f_add('6','2') from dual;

oracle会根据参数类型自动选择调用哪个函数;

人气教程排行