轉載地址：http://www.cnblogs.com/helong/articles/2093807.html
一、Oracle創建存儲過程
1、基本語法
create or replace procedure update_emp_sal
(Name in out type,
Name in out type, ...
) is
begin
end update_emp_sal;
2、寫一個簡單的例子修改emp表的ename字段
create or replace procedure update_emp
(
v_empno varchar2,
v_ename varchar2
) is
begin
update emp set ename=v_ename where empno=v_empno;
end update_emp;
調用方法如下：
SQL>exec update_emp('7935','test');
2、有返回值的存儲過程
就寫一個簡單的返回empno=7935的sal值
create or replace procedure emp_out_sal
(
v_empno in varchar2,
v_sal out number
) is
vsal number(7,2);
begin
select sal into vsal from emp where empno=v_empno;
v_sal:=vsal;
end;
調用有返回值的過程
SQL> var vsal number
SQL> exec emp_out_sal('7935',:vsal);
PL/SQL procedure successfully completed
vsal
---------
700
SQL> var vsal number
SQL> call emp_out_sal('7935',:vsal);
Method called
vsal
---------
700
二、Oracle創建函數（function）
1、基本語法規則如下：
create or replace function (Name in type, Name in type, ...) return number is
Result number;
begin
return (Result);
end ;
2、寫一個簡單的查詢例子查詢出empno=7935的sal值
create or replace function ret_emp_sal(v_ename varchar2)
return number
is
v_sal number(7,2);
begin
select nvl(sal,0) into v_sal from emp where lower(ename)=lower(v_ename);
return v_sal;
end;
調用此函數：
SQL> var vsla number
SQL> call ret_emp_sal('7935') into :vsal;
Method called
vsal
---------
700
三、Oracle創建包
包用於組合邏輯相關的過程和函數，它由包規範和包體兩個部分組成。包規範用於定義公用的常量、變量、過程和函數，創建包規範可以使用CREATE PACKAGE命令，創建包體可以使用CREATE PACKAGE BODY
1、創建包規範
create package emp_pkg is
procedure emp_update_ename(v_empno varchar2,v_ename varchar2);
function emp_get_sal(v_empno varchar2) return number;
end;
2、創建包體
create or replace package body emp_pkg
is
procedure emp_update_ename
(
v_empno varchar2,
v_ename varchar2
)
is
vename varchar2(32);
begin
update emp set ename=v_ename where empno=v_empno;
commit;
select ename into vename from emp where empno=v_empno;
dbms_output.put_line('僱員名稱：'||vename);
end;
function emp_get_sal
(
v_empno varchar2
)
return number is
vsal number(7,2);
begin
select sal into vsal from emp where empno=v_empno;
return vsal;
end;
end;
在此提示，在沒有創建包規範就創建包體，會失敗，要使用包，必須先創建包規範，然後在創建包體
當要調用包的過程和函數時，在過程和函數的名稱前加上包名作爲前綴（包名.子程序名稱），而如果要訪問其他方案的包時需要在包的名稱前加上方案的名稱
（方案名稱.包名.子程序名稱）
實例：
SQL> var vsla number
SQL> call emp_pkg.emp_get_sal('7935') into :vsal;
Method called
vsal
---------
700
SQL> exec emp_pkg.emp_update_ename('7935','helong');
僱員名稱：helong
SQL> call emp_pkg.emp_update_ename('7935','helong');
Method called
SQL> select * from dual;
DUMMY
-----
X
僱員名稱：helong