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 程序中，對於處理多行記錄的事務經常使用遊標來實現。

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;

4.2 遊標變量

與遊標一樣，遊標變量也是一個指向多行查詢結果集合中當前數據行的指針。但與遊標不同的是，遊標變量是動態的，而遊標是靜態的。遊標只能與指定的查詢相連，即固定指向一個查詢的內存處理區域，而遊標變量則可與不同的查詢語句相連，它可以指向不同查詢語句的內存處理區域（但不能同時指向多個內存處理區域，在某一時刻只能與一個查詢語句相連），只要這些查詢語句的返回類型兼容即可。

4.2.1 聲明遊標變量

遊標變量爲一個指針，它屬於參照類型，所以在聲明遊標變量類型之前必須先定義遊標變量類型。在PL/SQL中，可以在塊、子程序和包的聲明區域內定義遊標變量類型。

語法格式爲：


TYPE ref_type_name IS REF CURSOR

 [ RETURN return_type];

其中：ref_type_name爲新定義的遊標變量類型名稱；

return_type 爲遊標變量的返回值類型，它必須爲記錄變量。

在定義遊標變量類型時，可以採用強類型定義和弱類型定義兩種。強類型定義必須指定遊標變量的返回值類型，而弱類型定義則不說明返回值類型。

聲明一個遊標變量的兩個步驟：

步驟一：定義一個REF CURSOU數據類型，如：

TYPE ref_cursor_type IS REF CURSOR;

步驟二：聲明一個該數據類型的遊標變量，如：

cv_ref REF_CURSOR_TYPE;

例：創建兩個強類型定義遊標變量和一個弱類型遊標變量：


DECLARE

    TYPE deptrecord IS RECORD(

        Deptno departments.department_id%TYPE,

        Dname departments.department_name%TYPE,

        Loc departments.location_id%TYPE

    );

    TYPE deptcurtype IS REF CURSOR RETURN departments%ROWTYPE;

    TYPE deptcurtyp1 IS REF CURSOR RETURN deptrecord;

    TYPE curtype IS REF CURSOR;

    Dept_c1 deptcurtype;

    Dept_c2 deptcurtyp1;

    Cv curtype;

4.2.2 遊標變量操作

與遊標一樣，遊標變量操作也包括打開、提取和關閉三個步驟。

1． 打開遊標變量

打開遊標變量時使用的是OPEN…FOR 語句。格式爲：


OPEN {cursor_variable_name | :host_cursor_variable_name}

FOR select_statement;

其中：cursor_variable_name爲遊標變量，host_cursor_variable_name爲PL/SQL主機環境（如OCI: ORACLE Call Interface，Pro*c 程序等）中聲明的遊標變量。

OPEN…FOR 語句可以在關閉當前的遊標變量之前重新打開遊標變量，而不會導致CURSOR_ALREAD_OPEN異常錯誤。新打開遊標變量時，前一個查詢的內存處理區將被釋放。

2． 提取遊標變量數據

使用FETCH語句提取遊標變量結果集合中的數據。格式爲：


FETCH {cursor_variable_name | :host_cursor_variable_name}

INTO {variable [, variable]…| record_variable};

其中：cursor_variable_name和host_cursor_variable_name分別爲遊標變量和宿主遊標變量名稱；variable和record_variable分別爲普通變量和記錄變量名稱。

3． 關閉遊標變量

CLOSE語句關閉遊標變量，格式爲：


CLOSE {cursor_variable_name | :host_cursor_variable_name}

其中：cursor_variable_name和host_cursor_variable_name分別爲遊標變量和宿主遊標變量名稱，如果應用程序試圖關閉一個未打開的遊標變量，則將導致INVALID_CURSOR異常錯誤。

例15：強類型參照遊標變量類型


DECLARE

    TYPE emp_job_rec IS RECORD(

        Employee_id employees.employee_id%TYPE,

        Employee_name employees.first_name%TYPE,

        Job_title employees.job_id%TYPE

    );

    TYPE emp_job_refcur_type IS REF CURSOR RETURN emp_job_rec;

    Emp_refcur emp_job_refcur_type ;

    Emp_job emp_job_rec;

BEGIN

    OPEN emp_refcur FOR 

    SELECT employees.employee_id, employees.first_name||employees.last_name, employees.job_id 

  FROM employees 

  ORDER BY employees.department_id;

    FETCH emp_refcur INTO emp_job;

    WHILE emp_refcur%FOUND LOOP

       DBMS_OUTPUT.PUT_LINE(emp_job.employee_id||': '||emp_job.employee_name||' is a '||emp_job.job_title);

    FETCH emp_refcur INTO emp_job;

    END LOOP;

END;

例16：弱類型參照遊標變量類型


PROMPT

PROMPT 'What table would you like to see?'

ACCEPT tab PROMPT '(D)epartment, or (E)mployees:'

DECLARE

    Type refcur_t IS REF CURSOR;

    Refcur refcur_t;

    TYPE sample_rec_type IS RECORD (

        Id number,

        Description VARCHAR2 (30)

    );

    sample sample_rec_type;

    selection varchar2(1) := UPPER (SUBSTR ('&tab', 1, 1));

BEGIN

    IF selection='D' THEN

        OPEN refcur FOR 

    SELECT departments.department_id, departments.department_name FROM departments;

        DBMS_OUTPUT.PUT_LINE('Department data');

    ELSIF selection='E' THEN

        OPEN refcur FOR 

    SELECT employees.employee_id, employees.first_name||' is a '||employees.job_id FROM employees;

        DBMS_OUTPUT.PUT_LINE('Employee data');

    ELSE

        DBMS_OUTPUT.PUT_LINE('Please enter ''D'' or ''E''');

        RETURN;

    END IF;

    DBMS_OUTPUT.PUT_LINE('----------------------');

    FETCH refcur INTO sample;

    WHILE refcur%FOUND LOOP

        DBMS_OUTPUT.PUT_LINE(sample.id||': '||sample.description);

        FETCH refcur INTO sample;

    END LOOP;

    CLOSE refcur;

END;

例17：使用遊標變量（沒有RETURN子句）


DECLARE

--定義一個遊標數據類型

   TYPE emp_cursor_type IS REF CURSOR;

--聲明一個遊標變量

   c1 EMP_CURSOR_TYPE;

--聲明兩個記錄變量

   v_emp_record employees%ROWTYPE;

   v_reg_record regions%ROWTYPE;

BEGIN

   OPEN c1 FOR SELECT * FROM employees WHERE department_id = 20;

   LOOP

      FETCH c1 INTO v_emp_record;

      EXIT WHEN c1%NOTFOUND;

      DBMS_OUTPUT.PUT_LINE(v_emp_record.first_name||'的僱傭日期是'

                            ||v_emp_record.hire_date);

   END LOOP;

--將同一個遊標變量對應到另一個SELECT語句

   OPEN c1 FOR SELECT * FROM regions WHERE region_id IN（1，2）;

   LOOP

      FETCH c1 INTO v_reg_record;

      EXIT WHEN c1%NOTFOUND;

      DBMS_OUTPUT.PUT_LINE(v_reg_record.region_id||'表示'

                            ||v_reg_record.region_name);

   END LOOP;

   CLOSE c1;

END;

例18：使用遊標變量（有RETURN子句）


DECLARE

--定義一個與employees表中的這幾個列相同的記錄數據類型

   TYPE emp_record_type IS RECORD(

        f_name   employees.first_name%TYPE,

        h_date   employees.hire_date%TYPE,

        j_id     employees.job_id%TYPE);

--聲明一個該記錄數據類型的記錄變量

   v_emp_record EMP_RECORD_TYPE;

--定義一個遊標數據類型

   TYPE emp_cursor_type IS REF CURSOR

        RETURN EMP_RECORD_TYPE;

--聲明一個遊標變量

   c1 EMP_CURSOR_TYPE;

BEGIN

   OPEN c1 FOR SELECT first_name, hire_date, job_id

               FROM employees WHERE department_id = 20;

   LOOP

      FETCH c1 INTO v_emp_record;

      EXIT WHEN c1%NOTFOUND;

      DBMS_OUTPUT.PUT_LINE('僱員名稱：'||v_emp_record.f_name

                ||'  僱傭日期：'||v_emp_record.h_date

                ||'  崗位：'||v_emp_record.j_id);

   END LOOP;

   CLOSE c1;

END;

原創作品，轉貼請註明作者和出處，留此信息。

------------------------------------------------

cnBlobs:http://www.cnblogs.com/huyong/
CSDN：http://blog.csdn .NET/chinahuyong

作者：EricHu（DB、C/S、B/S、WebService、WCF、PM等）
出處：http://www.cnblogs.com/huyong/

Q Q：80368704 E-Mail: [email protected]
本博文歡迎大家瀏覽和轉載，但未經作者同意必須保留此段聲明，且在文章頁面明顯位置給出原文連接，在『參考』的文章中，我會表明參考的文章來源，尊重他人版權。若您發現我侵犯了您的版權，請及時與我聯繫。
更多文章請看 [置頂]索引貼——（不斷更新中）

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

Oracle PL/SQL編程之四：把遊標說透

遊標的使用

4.1 遊標概念

4.1.1 處理顯式遊標

4.1.3 關於 NO_DATA_FOUND 和 %NOTFOUND的區別

4.2 遊標變量

4.2.1 聲明遊標變量

把B樹、B+樹、紅黑樹說透

Oracle PL/SQL編程之六：把過程與函數說透

Python學習筆記一(基礎知識)

分佈式開放消息系統(RocketMQ)的原理與實踐(轉載)

Oracle PL/SQL編程之五：異常錯誤處理(知已知彼、百戰不殆)

https://yachay.unat.edu.pe/blog/index.php?comment_area=format_blog&comment_component=blog&comment_co

linux以太網驅動總結

Oracle PL/SQL編程之四： 把遊標說透

遊標的使用

4.1.3 關於 NO_DATA_FOUND 和 %NOTFOUND的區別

Oracle PL/SQL編程之四：把遊標說透