CREATE [OR REPLACE] PROCEDURE procedure_name [(parameter_list)] {IS|AS} [local_declarations] BEGIN executable_statements [EXCEPTION exception_handlers] END [procedure_name];
其中:procedure_name是過程的名稱。 parameter_list是參數列表。 local_declarations是局部聲明。 executable_statements是可執行語句。 exception_handlers是異常處理程序。 示例1:演示創建過程(參數列表中為IN參數賦予一個默認值,不能為OUT、IN OUT參數賦予默認值)
create or replace procedure find_emp(emp_no in number:=7900) as empname varchar2(20); begin select ename into empname from emp where empno=emp_no; dbms_output.put_line('雇員姓名是 '||empname); exception when no_data_found then dbms_output.put_line('雇員編號未找到'); end find_emp;
調用過程:EXECUTE procudure_name(parameters_list); 也可以在過程裏面調用,直接寫上procudure_name而不必寫EXECUTE。 示例2:演示創建帶OUT參數的過程
create or replace procedure test(value1 varchar2,value2 out number) is identity number; begin select sal into identity from emp where empno=value1; if identity<2000 then value2:=1000; else value2:=500; end if; end;
調用帶OUT參數的過程:
declare value2 number; begin test('7900',value2); dbms_output.put_line(value2); end;
示例3:演示創建帶IN OUT參數的過程
create or replace procedure swap(p1 in out number,p2 in out number) is v_temp number; begin v_temp:=p1; p1:=p2; p2:=v_temp; end;
調用帶IN OUT參數的過程:
declare num1 number:=100; num2 number:=200; begin swap(num1,num2); dbms_output.put_line('num1= '||num1); dbms_output.put_line('num2= '||num2); end;
示例4:將過程的執行權限授予其他用戶
GRANT EXECUTE ON find_emp TO scott; GRANT EXECUTE ON swap TO PUBLIC;
將find_emp過程的執行權限授予給用戶scott,將執行swap過程的權限授予所有數據庫用戶。 刪除過程語法:
DROP PROCEDURE procudure_name;
2、函數 定義函數的語法如下:
CREATE [OR REPLACE] FUNCTION function_name [(parameter_list)] RETURN datatype {IS|AS} [local_declarations] BEGIN executable_statements [EXCEPTION exception_handlers] END [function_name];
其中:function_name是函數的名稱。 parameter_list是參數列表。 local_declarations是局部聲明。 executable_statements是可執行語句。 exception_handlers是異常處理程序。 使用函數時註意:形式參數必須只使用數據庫類型,不得使用PL/SQL類型。函數的返回類型也必須是數據庫類型。 函數不能單獨執行,只能通過SQL語句或PL/SQL程序塊來調用。 示例5:演示如何創建函數
create or replace function fun_hello return varchar2 is begin return '朋友,您好'; end;
調用函數:select fun_hello from dual; 函數的授權:同過和的授權一樣具體請看示例4。 刪除函數:DROP FUNCTION function_name 過程和函數的差異 過程 函數 作為PL/SQL語句執行 作為表達式的一部分調用 在規範中不包含RETURN子句 必須在規範中包含RETURN子句 不返回任何值 必須返回單個值 可以包含RETURN語句,但是與函數不同,它不能用於返回值 必須包含至少一條RETURN語句 3、程序包 創建包規範的語法:
CREATE [OR REPLACE] PACKAGE package_name IS|AS [Public type and item declarations] [Subprogram specifications] END [package_name];
其中:package_name是包的名稱。 Public type and item declarations是聲明類型、常量、變量、異常和遊標等。 Subprogram specifications聲明PL/SQL子程序。 示例6:演示創建程序包規範
create or replace package pack_op is procedure pro_print_ename(id number); procedure pro_print_sal(id number); function fun_re_date(id number) return date; end;
創建包主體的語法:
CREATE [OR REPLACE] PACKAGE BODY package_name IS|AS [Public type and item declarations] [Subprogram bodies] [BEGIN Initialization_statements] END [package_name];
其中:package_name是包的名稱。 Public type and item declarations是聲明類型、常量、變量、異常和遊標等。 Subprogram bodies是定義公共和私有PL/SQL子程序。 示例7:演示創建程序包主體
create or replace package body pack_op is procedure pro_print_ename(id number) is name emp.ename%type; begin select ename into name from emp where empno=id; dbms_output.put_line('職員姓名:'||name); end pro_print_ename; procedure pro_print_sal(id number) is salary emp.sal%type; begin select sal into salary from emp where empno=id; dbms_output.put_line('職員工資:'||salary); end pro_print_sal; function fun_re_date(id number) return date is bedate emp.hiredate%type; begin select hiredate into bedate from emp where empno=id; return bedate; end fun_re_date; end pack_op;
示例8:調用程序包中創建的過程和函數 exec pack_op.pro_print_ename(7900); exec pack_op.pro_print_sal(7900); select pack_op.fun_re_date(7900) from dual; 示例9:演示程序包中的遊標 創建包規範
create or replace package pack_emp is cursor cur_emp return emp%rowtype; procedure pro_cur; end pack_emp;
創建包主體
create or replace package body pack_emp is cursor cur_emp return emp%rowtype is select * from emp; procedure pro_cur is rec_emp emp%rowtype; begin open cur_emp; loop fetch cur_emp into rec_emp; exit when cur_emp%notfound; if rec_emp.sal<1000 then dbms_output.put_line('員工工資:'||rec_emp.sal||',需加倍努力爭取提高工資'); elsif rec_emp.sal>=1000 and rec_emp.sal<2000 then dbms_output.put_line('員工工資:'||rec_emp.sal||',工資一般,爭取搞個部門經理做做'); else dbms_output.put_line('員工工資:'||rec_emp.sal||',工資不錯,爭取搞個總經理做做'); end if; end loop; end pro_cur; end pack_emp;
調用程序包中的過程以調用程序包中的遊標 exec pack_emp.pro_cur; 示例10:存儲過程返回遊標的子程序包(此程序包返回r_cur遊標)
CREATE OR REPLACE package SCOTT.pk_wt is type mytype is ref cursor; procedure p_wt(mycs out mytype); end; CREATE OR REPLACE package BODY SCOTT.pk_wt is procedure p_wt(mycs out mytype) is r_cur mytype; begin open r_cur for select * from emp; mycs:=r_cur; end p_wt; end pk_wt;
查詢有關過程、函數和程序包的信息:USER_OBJECTS數據字典視圖
column object_name format a18 select object_name,object_type from user_objects where object_type in ('PROCEDURE','FUNCTION','PACKAGE','PACKAGE BODY');
Tags:
文章來源: