ORACLE PL/SQL編程之把游標說透

作者: huyong 來源: 博客園發布時間: 2011-06-04 18:55 閱讀: 5069 次推薦: 5 原文鏈接 [收藏]

[1] ORACLE PL/SQL編程之把游標說透
[2] ORACLE PL/SQL編程之把游標說透

　　本篇主要內容如下：

　　4.1 游標概念

　　4.1.1 處理顯式游標

　　4.1.2 處理隱式游標

　　4.1.3 關于 NO_DATA_FOUND 和 %NOTFOUND的區別

　　4.1.4 使用游標更新和刪除數據

　　4.2 游標變量

　　4.2.1 聲明游標變量

　　4.2.2 游標變量操作

　　游標的使用

　　在 PL/SQL 程序中，對于處理多行記錄的事務經常使用游標來實現。

　　4.1 游標概念

　　在PL/SQL塊中執行SELECT、INSERT、DELETE和UPDATE語句時，ORACLE會在內存中為其分配上下文區（Context Area），即緩沖區。游標是指向該區的一個指針，或是命名一個工作區（Work Area），或是一種結構化數據類型。它為應用等量齊觀提供了一種對具有多行數據查詢結果集中的每一行數據分別進行單獨處理的方法，是設計嵌入式SQL語句的應用程序的常用編程方式。

　　在每個用戶會話中，可以同時打開多個游標，其數量由數據庫初始化參數文件中的OPEN_CURSORS參數定義。

　　對于不同的SQL語句，游標的使用情況不同：

SQL語句	游標
非查詢語句	隱式的
結果是單行的查詢語句	隱式的或顯示的
結果是多行的查詢語句	顯示的

　　4.1.1 處理顯式游標

　　1. 顯式游標處理

　　顯式游標處理需四個 PL/SQL步驟:

　　l 定義/聲明游標：就是定義一個游標名，以及與其相對應的SELECT 語句。

　　格式：

CURSOR cursor_name[(parameter[, parameter]…)]
[RETURN datatype]
IS
select_statement;

　　游標參數只能為輸入參數，其格式為：

parameter_name [IN] datatype [{:= | DEFAULT} expression]

　　在指定數據類型時，不能使用長度約束。如NUMBER(4),CHAR(10) 等都是錯誤的。

　　[RETURN datatype]是可選的，表示游標返回數據的數據。如果選擇，則應該嚴格與select_statement中的選擇列表在次序和數據類型上匹配。一般是記錄數據類型或帶“%ROWTYPE”的數據。

　　打開游標：就是執行游標所對應的SELECT 語句，將其查詢結果放入工作區，并且指針指向工作區的首部，標識游標結果集合。如果游標查詢語句中帶有FOR UPDATE選項，OPEN 語句還將鎖定數據庫表中游標結果集合對應的數據行。

　　格式：

OPEN cursor_name[([parameter =>] value[, [parameter =>] value]…)];

　　在向游標傳遞參數時，可以使用與函數參數相同的傳值方法，即位置表示法和名稱表示法。PL/SQL 程序不能用OPEN 語句重復打開一個游標。

　　提取游標數據：就是檢索結果集合中的數據行，放入指定的輸出變量中。

　　格式：

FETCH cursor_name INTO {variable_list | record_variable };

　　執行FETCH語句時，每次返回一個數據行，然后自動將游標移動指向下一個數據行。當檢索到最后一行數據時，如果再次執行FETCH語句，將操作失敗，并將游標屬性%NOTFOUND置為TRUE。所以每次執行完FETCH語句后，檢查游標屬性%NOTFOUND就可以判斷FETCH語句是否執行成功并返回一個數據行，以便確定是否給對應的變量賦了值。

　　對該記錄進行處理；

　　繼續處理，直到活動集合中沒有記錄；

　　關閉游標：當提取和處理完游標結果集合數據后，應及時關閉游標，以釋放該游標所占用的系統資源，并使該游標的工作區變成無效，不能再使用FETCH 語句取其中數據。關閉后的游標可以使用OPEN 語句重新打開。

　　格式：

CLOSE cursor_name;

　　注：定義的游標不能有INTO 子句。

　　例1. 查詢前10名員工的信息。

DECLARE
CURSOR c_cursor
IS SELECT first_name || last_name, Salary
FROM EMPLOYEES
WHERE rownum<11;
v_ename EMPLOYEES.first_name%TYPE;
v_sal EMPLOYEES.Salary%TYPE;
BEGIN
OPEN c_cursor;
FETCH c_cursor INTO v_ename, v_sal;
WHILE c_cursor%FOUND LOOP
DBMS_OUTPUT.PUT_LINE(v_ename||'---'||to_char(v_sal) );
FETCH c_cursor INTO v_ename, v_sal;
END LOOP;
CLOSE c_cursor;
END;

　　例2. 游標參數的傳遞方法。

DECLARE
DeptRec DEPARTMENTS%ROWTYPE;
Dept_name DEPARTMENTS.DEPARTMENT_NAME%TYPE;
Dept_loc DEPARTMENTS.LOCATION_ID%TYPE;
CURSOR c1 IS
SELECT DEPARTMENT_NAME, LOCATION_ID FROM DEPARTMENTS
WHERE DEPARTMENT_ID <= 30;

CURSOR c2(dept_no NUMBER DEFAULT 10) IS
SELECT DEPARTMENT_NAME, LOCATION_ID FROM DEPARTMENTS
WHERE DEPARTMENT_ID <= dept_no;
CURSOR c3(dept_no NUMBER DEFAULT 10) IS
SELECT * FROM DEPARTMENTS
WHERE DEPARTMENTS.DEPARTMENT_ID <=dept_no;
BEGIN
OPEN c1;
LOOP
FETCH c1 INTO dept_name, dept_loc;
EXIT WHEN c1%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(dept_name||'---'||dept_loc);
END LOOP;
CLOSE c1;

OPEN c2;
LOOP
FETCH c2 INTO dept_name, dept_loc;
EXIT WHEN c2%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(dept_name||'---'||dept_loc);
END LOOP;
CLOSE c2;

OPEN c3(dept_no =>20);
LOOP
FETCH c3 INTO deptrec;
EXIT WHEN c3%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(deptrec.DEPARTMENT_ID||'---'||deptrec.DEPARTMENT_NAME||'---'||deptrec.LOCATION_ID);
END LOOP;
CLOSE c3;
END;

　　2.游標屬性

　　Cursor_name%FOUND 布爾型屬性，當最近一次提取游標操作FETCH成功則為 TRUE,否則為FALSE；

　　 Cursor_name%NOTFOUND 布爾型屬性，與%FOUND相反；

　　 Cursor_name%ISOPEN 布爾型屬性，當游標已打開時返回 TRUE；

　　 Cursor_name%ROWCOUNT 數字型屬性，返回已從游標中讀取的記錄數。

　　例3：給工資低于1200 的員工增加工資50。

DECLARE
v_empno EMPLOYEES.EMPLOYEE_ID%TYPE;
v_sal EMPLOYEES.Salary%TYPE;
CURSOR c_cursor IS SELECT EMPLOYEE_ID, Salary FROM EMPLOYEES;
BEGIN
OPEN c_cursor;
LOOP
FETCH c_cursor INTO v_empno, v_sal;
EXIT WHEN c_cursor%NOTFOUND;
IF v_sal<=1200 THEN
UPDATE EMPLOYEES SET Salary=Salary+50 WHERE EMPLOYEE_ID=v_empno;
DBMS_OUTPUT.PUT_LINE('編碼為'||v_empno||'工資已更新!');
END IF;
DBMS_OUTPUT.PUT_LINE('記錄數:'|| c_cursor %ROWCOUNT);
END LOOP;
CLOSE c_cursor;
END;

　　例4：沒有參數且沒有返回值的游標。

DECLARE
v_f_name employees.first_name%TYPE;
v_j_id employees.job_id%TYPE;
CURSOR c1 --聲明游標,沒有參數沒有返回值
IS
SELECT first_name, job_id FROM employees
WHERE department_id = 20;
BEGIN
OPEN c1; --打開游標
LOOP
FETCH c1 INTO v_f_name, v_j_id; --提取游標
IF c1%FOUND THEN
DBMS_OUTPUT.PUT_LINE(v_f_name||'的崗位是'||v_j_id);
ELSE
DBMS_OUTPUT.PUT_LINE('已經處理完結果集了');
EXIT;
END IF;
END LOOP;
CLOSE c1; --關閉游標
END;

　　例5：有參數且沒有返回值的游標。

DECLARE
v_f_name employees.first_name%TYPE;
v_h_date employees.hire_date%TYPE;
CURSOR c2(dept_id NUMBER, j_id VARCHAR2) --聲明游標,有參數沒有返回值
IS
SELECT first_name, hire_date FROM employees
WHERE department_id = dept_id AND job_id = j_id;
BEGIN
OPEN c2(90, 'AD_VP'); --打開游標,傳遞參數值
LOOP
FETCH c2 INTO v_f_name, v_h_date; --提取游標
IF c2%FOUND THEN
DBMS_OUTPUT.PUT_LINE(v_f_name||'的雇傭日期是'||v_h_date);
ELSE
DBMS_OUTPUT.PUT_LINE('已經處理完結果集了');
EXIT;
END IF;
END LOOP;
CLOSE c2; --關閉游標
END;

　　例6：有參數且有返回值的游標。

DECLARE
TYPE emp_record_type IS RECORD(
f_name employees.first_name%TYPE,
h_date employees.hire_date%TYPE);
v_emp_record EMP_RECORD_TYPE;

CURSOR c3(dept_id NUMBER, j_id VARCHAR2) --聲明游標,有參數有返回值
RETURN EMP_RECORD_TYPE
IS
SELECT first_name, hire_date FROM employees
WHERE department_id = dept_id AND job_id = j_id;
BEGIN
OPEN c3(j_id => 'AD_VP', dept_id => 90); --打開游標,傳遞參數值
LOOP
FETCH c3 INTO v_emp_record; --提取游標
IF c3%FOUND THEN
DBMS_OUTPUT.PUT_LINE(v_emp_record.f_name||'的雇傭日期是'
||v_emp_record.h_date);
ELSE
DBMS_OUTPUT.PUT_LINE('已經處理完結果集了');
EXIT;
END IF;
END LOOP;
CLOSE c3; --關閉游標
END;

　　例7：基于游標定義記錄變量。

DECLARE
CURSOR c4(dept_id NUMBER, j_id VARCHAR2) --聲明游標,有參數沒有返回值
IS
SELECT first_name f_name, hire_date FROM employees
WHERE department_id = dept_id AND job_id = j_id;
--基于游標定義記錄變量，比聲明記錄類型變量要方便，不容易出錯
v_emp_record c4%ROWTYPE;
BEGIN
OPEN c4(90, 'AD_VP'); --打開游標,傳遞參數值
LOOP
FETCH c4 INTO v_emp_record; --提取游標
IF c4%FOUND THEN
DBMS_OUTPUT.PUT_LINE(v_emp_record.f_name||'的雇傭日期是'
||v_emp_record.hire_date);
ELSE
DBMS_OUTPUT.PUT_LINE('已經處理完結果集了');
EXIT;
END IF;
END LOOP;
CLOSE c4; --關閉游標
END;

　　3. 游標的FOR循環

　　PL/SQL語言提供了游標FOR循環語句，自動執行游標的OPEN、FETCH、CLOSE語句和循環語句的功能；當進入循環時，游標FOR循環語句自動打開游標，并提取第一行游標數據，當程序處理完當前所提取的數據而進入下一次循環時，游標FOR循環語句自動提取下一行數據供程序處理，當提取完結果集合中的所有數據行后結束循環，并自動關閉游標。

　　格式：

FOR index_variable IN cursor_name[(value[, value]…)] LOOP
-- 游標數據處理代碼
END LOOP;

　　其中：

　　index_variable為游標FOR 循環語句隱含聲明的索引變量，該變量為記錄變量，其結構與游標查詢語句返回的結構集合的結構相同。在程序中可以通過引用該索引記錄變量元素來讀取所提取的游標數據，index_variable中各元素的名稱與游標查詢語句選擇列表中所制定的列名相同。如果在游標查詢語句的選擇列表中存在計算列，則必須為這些計算列指定別名后才能通過游標FOR 循環語句中的索引變量來訪問這些列數據。

　　注：不要在程序中對游標進行人工操作；不要在程序中定義用于控制FOR循環的記錄。

　　例8：

DECLARE
CURSOR c_sal IS SELECT employee_id, first_name || last_name ename, salary
FROM employees ;
BEGIN
--隱含打開游標
FOR v_sal IN c_sal LOOP
--隱含執行一個FETCH語句
DBMS_OUTPUT.PUT_LINE(to_char(v_sal.employee_id)||'---'|| v_sal.ename||'---'||to_char(v_sal.salary)) ;
--隱含監測c_sal%NOTFOUND
END LOOP;
--隱含關閉游標
END;

　　例9：當所聲明的游標帶有參數時，通過游標FOR 循環語句為游標傳遞參數。

DECLARE
CURSOR c_cursor(dept_no NUMBER DEFAULT 10)
IS
SELECT department_name, location_id FROM departments WHERE department_id <= dept_no;
BEGIN
DBMS_OUTPUT.PUT_LINE('當dept_no參數值為30：');
FOR c1_rec IN c_cursor(30) LOOP DBMS_OUTPUT.PUT_LINE(c1_rec.department_name||'---'||c1_rec.location_id);
END LOOP;
DBMS_OUTPUT.PUT_LINE(CHR(10)||'使用默認的dept_no參數值10：');
FOR c1_rec IN c_cursor LOOP DBMS_OUTPUT.PUT_LINE(c1_rec.department_name||'---'||c1_rec.location_id);
END LOOP;
END;

　　例10：PL/SQL還允許在游標FOR循環語句中使用子查詢來實現游標的功能。

BEGIN
FOR c1_rec IN(SELECT department_name, location_id FROM departments) LOOP DBMS_OUTPUT.PUT_LINE(c1_rec.department_name||'---'||c1_rec.location_id);
END LOOP;
END;

　　4.1.2 處理隱式游標

　　顯式游標主要是用于對查詢語句的處理，尤其是在查詢結果為多條記錄的情況下；而對于非查詢語句，如修改、刪除操作，則由ORACLE 系統自動地為這些操作設置游標并創建其工作區，這些由系統隱含創建的游標稱為隱式游標，隱式游標的名字為SQL，這是由ORACLE 系統定義的。對于隱式游標的操作，如定義、打開、取值及關閉操作，都由ORACLE 系統自動地完成，無需用戶進行處理。用戶只能通過隱式游標的相關屬性，來完成相應的操作。在隱式游標的工作區中，所存放的數據是與用戶自定義的顯示游標無關的、最新處理的一條SQL 語句所包含的數據。

　　格式調用為： SQL%

　　注：INSERT, UPDATE, DELETE, SELECT 語句中不必明確定義游標。

　　隱式游標屬性

屬性	值	SELECT	INSERT	UPDATE	DELETE
SQL%ISOPEN		FALSE	FALSE	FALSE	FALSE
SQL%FOUND	TRUE	有結果		成功	成功
SQL%FOUND	FALSE	沒結果		失敗	失敗
SQL%NOTFUOND	TRUE	沒結果		失敗	失敗
SQL%NOTFOUND	FALSE	有結果		成功	失敗
SQL%ROWCOUNT		返回行數，只為1	插入的行數	修改的行數	刪除的行數

　　例11: 刪除EMPLOYEES表中某部門的所有員工，如果該部門中已沒有員工，則在DEPARTMENT表中刪除該部門。

DECLARE
V_deptno department_id%TYPE :=&p_deptno;
BEGIN
DELETE FROM employees WHERE department_id=v_deptno;
IF SQL%NOTFOUND THEN
DELETE FROM departments WHERE department_id=v_deptno;
END IF;
END;

　　例12: 通過隱式游標SQL的%ROWCOUNT屬性來了解修改了多少行。

DECLARE
v_rows NUMBER;
BEGIN
--更新數據
UPDATE employees SET salary = 30000
WHERE department_id = 90 AND job_id = 'AD_VP';
--獲取默認游標的屬性值
v_rows := SQL%ROWCOUNT;
DBMS_OUTPUT.PUT_LINE('更新了'||v_rows||'個雇員的工資');
--回退更新，以便使數據庫的數據保持原樣
ROLLBACK;
END;

　　4.1.3 關于 NO_DATA_FOUND 和 %NOTFOUND的區別

　　SELECT … INTO 語句觸發 NO_DATA_FOUND；

　　當一個顯式游標的WHERE子句未找到時觸發%NOTFOUND；

　　當UPDATE或DELETE 語句的WHERE 子句未找到時觸發 SQL%NOTFOUND；在提取循環中要用 %NOTFOUND 或%FOUND 來確定循環的退出條件，不要用 NO_DATA_FOUND.4.1.4 使用游標更新和刪除數據

　　游標修改和刪除操作是指在游標定位下，修改或刪除表中指定的數據行。這時，要求游標查詢語句中必須使用FOR UPDATE選項，以便在打開游標時鎖定游標結果集合在表中對應數據行的所有列和部分列。

　　為了對正在處理(查詢)的行不被另外的用戶改動，ORACLE 提供一個 FOR UPDATE 子句來對所選擇的行進行鎖住。該需求迫使ORACLE鎖定游標結果集合的行，可以防止其他事務處理更新或刪除相同的行，直到您的事務處理提交或回退為止。

　　語法：

SELECT column_list FROM table_list FOR UPDATE [OF column[, column]…] [NOWAIT]

　　如果另一個會話已對活動集中的行加了鎖，那么SELECT FOR UPDATE操作一直等待到其它的會話釋放這些鎖后才繼續自己的操作，對于這種情況，當加上NOWAIT子句時，如果這些行真的被另一個會話鎖定，則OPEN立即返回并給出：

　　ORA-0054 ：resource busy and acquire with nowait specified.

　　如果使用 FOR UPDATE 聲明游標，則可在DELETE和UPDATE 語句中使用WHERE CURRENT OF cursor_name子句，修改或刪除游標結果集合當前行對應的數據庫表中的數據行。

　　例13：從EMPLOYEES表中查詢某部門的員工情況，將其工資最低定為 1500；

DECLARE
V_deptno employees.department_id%TYPE :=&p_deptno;
CURSOR emp_cursor
IS
SELECT employees.employee_id, employees.salary
FROM employees WHERE employees.department_id=v_deptno
FOR UPDATE NOWAIT;
BEGIN
FOR emp_record IN emp_cursor LOOP
IF emp_record.salary < 1500 THEN
UPDATE employees SET salary=1500
WHERE CURRENT OF emp_cursor;
END IF;
END LOOP;
-- COMMIT;
END;

　　例14：將EMPLOYEES表中部門編碼為90、崗位為AD_VP的雇員的工資都更新為2000元；

DECLARE
v_emp_record employees%ROWTYPE;
CURSOR c1
IS
SELECT * FROM employees FOR UPDATE;
BEGIN
OPEN c1;
LOOP
FETCH c1 INTO v_emp_record;
EXIT WHEN c1%NOTFOUND;
IF v_emp_record.department_id = 90 AND
v_emp_record.job_id = 'AD_VP'
THEN
UPDATE employees SET salary = 20000
WHERE CURRENT OF c1; --更新當前游標行對應的數據行
END IF;
END LOOP;
COMMIT; --提交已經修改的數據
CLOSE c1;
END;

繼續>>下一頁

[第1頁][第2頁]