? ? 以下使用SQL Developer，使用Oracle SCOTT賬號自帶emp表，創(chuàng)建包。

1?在包中定義record類型，并在匿名塊中調(diào)用
--在包中自定義類型
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;

創(chuàng)建之后刷新一下，左側(cè)視圖 程序包 下出來所創(chuàng)建內(nèi)容；

2 調(diào)用，

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;

結(jié)果如下圖；

? ? 如果DBMS輸出中沒有內(nèi)容，點擊上圖中最右側(cè)的像書的頁的那個小圖標(biāo)，打開DBMS輸出；

3?在包中定義過程hello和函數(shù)f_add(p1,p2)
--定義包規(guī)范
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?實現(xiàn)包規(guī)范，即包體(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 調(diào)用

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

6 調(diào)用

call my_bao2.hello('oracle');

7?包中重載方法
重載的要點就是名稱一樣，而參數(shù)的類型或者個數(shù)不同。
定義代碼：
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 調(diào)用

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

9 調(diào)用

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

oracle會根據(jù)參數(shù)類型自動選擇調(diào)用哪個函數(shù)；

總結(jié)

以上是生活随笔為你收集整理的图解Oracle包实例的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。