關鍵字: oracle/202784.html">oracle 存儲過程
1.基本結構
CREATE OR REPLACE PROCEDURE 存儲過程名字 ( 參數1 IN NUMBER, 參數2 IN NUMBER ) IS 變量1 INTEGER :=0; 變量2 DATE; BEGIN
END 存儲過程名字
2.SELECT INTO STATEMENT
將select查詢的結果存入到變量中，可以同時將多個列存儲多個變量中，必須有一條
記錄，否則拋出異常(如果沒有記錄拋出NO_DATA_FOUND)
例子：
BEGIN SELECT col1,col2 into 變量1,變量2 FROM typestruct where xxx; EXCEPTION WHEN NO_DATA_FOUND THEN xxxx; END; ...
3.IF 判斷
IF V_TEST=1 THEN BEGIN do something END; END IF;
4.while 循環
WHILE V_TEST=1 LOOP BEGIN XXXX END; END LOOP;
5.變量賦值
V_TEST := 123;
6.用for in 使用cursor
... IS CURSOR cur IS SELECT * FROM xxx; BEGIN FOR cur_result in cur LOOP BEGIN V_SUM :=cur_result.列名1+cur_result.列名2 END; END LOOP; END;
7.帶參數的cursor
CURSOR C_USER(C_ID NUMBER) IS SELECT NAME FROM USER WHERE TYPEID=C_ID; OPEN C_USER(變量值); LOOP FETCH C_USER INTO V_NAME; EXIT FETCH C_USER%NOTFOUND; do something END LOOP; CLOSE C_USER;
8.用pl/sql developer debug
連接數據庫后建立一個Test WINDOW
在窗口輸入調用SP的代碼,F9開始debug,CTRL+N單步調試
轉載：
oracle 存儲過程
關鍵字: oracle 存儲過程
存儲過程創建語法：
create or replace procedure 存儲過程名（param1 in type，param2 out type）
as
變量1 類型（值范圍）;
變量2 類型（值范圍）;
Begin Select count(*) into 變量1 from 表A where列名=param1； If (判斷條件) then Select 列名 into 變量2 from 表A where列名=param1； Dbms_output。Put_line(‘打印信息'); Elsif (判斷條件) then Dbms_output。Put_line(‘打印信息'); Else Raise 異常名（NO_DATA_FOUND）; End if; Exception When others then Rollback; End;
注意事項：
1， 存儲過程參數不帶取值范圍，in表示傳入，out表示輸出
2， 變量帶取值范圍，后面接分號
3， 在判斷語句前最好先用count（*）函數判斷是否存在該條操作記錄
4， 用select 。。。into。。。給變量賦值
5， 在代碼中拋異常用 raise+異常名
以命名的異常
命名的系統異常 產生原因
ACCESS_INTO_NULL 未定義對象 CASE_NOT_FOUND CASE 中若未包含相應的 WHEN ，并且沒有設置 ELSE 時 COLLECTION_IS_NULL 集合元素未初始化 CURSER_ALREADY_OPEN 游標已經打開 DUP_VAL_ON_INDEX 唯一索引對應的列上有重復的值 INVALID_CURSOR 在不合法的游標上進行操作 INVALID_NUMBER 內嵌的 SQL 語句不能將字符轉換為數字 NO_DATA_FOUND 使用 select into 未返回行，或應用索引表未初始化的 TOO_MANY_ROWS 執行 select into 時，結果集超過一行 ZERO_DIVIDE 除數為 0 SUBSCRIPT_BEYOND_COUNT 元素下標超過嵌套表或 VARRAY 的最大值 SUBSCRIPT_OUTSIDE_LIMIT 使用嵌套表或 VARRAY 時，將下標指定為負數 VALUE_ERROR 賦值時，變量長度不足以容納實際數據 LOGIN_DENIED PL/SQL 應用程序連接到 oracle 數據庫時，提供了不 正確的用戶名或密碼 NOT_LOGGED_ON PL/SQL 應用程序在沒有連接 oralce 數據庫的情況下 訪問數據 PROGRAM_ERROR PL/SQL 內部問題，可能需要重裝數據字典＆ pl./SQL 系統包 ROWTYPE_MISMATCH 宿主游標變量與 PL/SQL 游標變量的返回類型不兼容 SELF_IS_NULL 使用對象類型時，在 null 對象上調用對象方法 STORAGE_ERROR 運行 PL/SQL 時，超出內存空間 SYS_INVALID_ID 無效的 ROWID 字符串 TIMEOUT_ON_RESOURCE Oracle 在等待資源時超時
語法及示例：
1、存儲過程創建存儲過程的語法：
CREATE [OR REPLACE] PROCEDURE procedure_name[(parameter_list)]{IS|AS}[local_declarations]BEGINexecutable_statements[EXCEPTIONexception_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)asempname varchar2(20);beginselect ename into empname from emp where empno=emp_no;dbms_output.put_line('雇員姓名是 '||empname);exceptionwhen no_data_found thendbms_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');以上所述是小編給大家介紹的Oracle Procedure知識，希望對大家有所幫助，如果大家有任何疑問請給我留言，小編會及時回復大家的。在此也非常感謝大家對VeVb武林網網站的支持！
新聞熱點
疑難解答
