Oracle中Cursor介紹和使用

一  概念
遊標是SQL的一個記憶體工作區，由系統或使用者以變數的形式定義。遊標的作用就是用於臨時儲存從資料庫中提取的資料區塊。在某些情況下，需要把資料從存放在磁碟的表中調到電腦記憶體中進行處理，最後將處理結果顯示出來或最終寫回資料庫。這樣資料處理的速度才會提高，否則頻繁的磁碟資料交換會降低效率。
二  類型
  Cursor類型包含三種: 隱式Cursor，顯式Cursor和Ref Cursor（動態Cursor）。
1． 隱式Cursor:
1).對於Select …INTO…語句，一次只能從資料庫中擷取到一條資料，對於這種類型的DML Sql語句，就是隱式Cursor。例如：Select /Update / Insert/Delete操作。
2)作用：可以通過隱式Cusor的屬性來瞭解操作的狀態和結果，從而達到流程的控制。Cursor的屬性包含：
SQL%ROWCOUNT 整型 代表DML語句成功執行的資料行數
SQL%FOUND  布爾型  值為TRUE代表插入、刪除、更新或單行查詢操作成功
SQL%NOTFOUND 布爾型 與SQL%FOUND屬性傳回值相反
SQL%ISOPEN 布爾型 DML執行過程中為真，結束後為假
3) 隱式Cursor是系統自動開啟和關閉Cursor.
下面是一個Sample： 
Set Serveroutput on;</p><p>begin<br /> update t_contract_master set liability_state = 1 where policy_code = '123456789';</p><p> if SQL%Found then<br /> dbms_output.put_line('the Policy is updated successfully.');<br /> commit;<br /> else<br /> dbms_output.put_line('the policy is updated failed.');<br /> end if;</p><p>end;</p><p>/ 

2． 顯式Cursor：
（1） 對於從資料庫中提取多行資料，就需要使用顯式Cursor。顯式Cursor的屬性包含：
遊標的屬性   傳回值類型   意    義 
%ROWCOUNT   整型  獲得FETCH語句返回的資料行數 
%FOUND  布爾型 最近的FETCH語句返回一行資料則為真，否則為假 
%NOTFOUND   布爾型 與%FOUND屬性傳回值相反 
%ISOPEN 布爾型 遊標已經開啟時值為真，否則為假 

（2） 對於顯式遊標的運用分為四個步驟：
定義遊標---Cursor  [Cursor Name]  IS;
開啟遊標---Open  [Cursor Name];
操作資料---Fetch  [Cursor name]
關閉遊標---Close [Cursor Name],這個Step絕對不可以遺漏。
（3）以下是三種常見顯式Cursor用法。

Set serveroutput on;</p><p>declare<br /> ---define Cursor<br /> Cursor cur_policy is<br /> select cm.policy_code, cm.applicant_id, cm.period_prem,cm.bank_code,cm.bank_account<br /> from t_contract_master cm<br /> where cm.liability_state = 2<br /> and cm.policy_type = 1<br /> and cm.policy_cate in ('2','3','4')<br /> and rownum < 5<br /> order by cm.policy_code desc;<br /> curPolicyInfo cur_policy%rowtype;---定義遊標變數<br />Begin<br /> open cur_policy; ---open cursor<br /> Loop<br /> --deal with extraction data from DB<br /> Fetch cur_policy into curPolicyInfo;<br /> Exit when cur_policy%notfound;</p><p> Dbms_Output.put_line(curPolicyInfo.policy_code);<br /> end loop;<br /> Exception<br /> when others then<br /> close cur_policy;<br /> Dbms_Output.put_line(Sqlerrm);</p><p> if cur_policy%isopen then<br />--close cursor<br /> close cur_policy;<br /> end if;<br />end;</p><p>/<br />------------------------</p><p>Set serveroutput on;</p><p>declare<br /> Cursor cur_policy is<br /> select cm.policy_code, cm.applicant_id, cm.period_prem,cm.bank_code,cm.bank_account<br /> from t_contract_master cm<br /> where cm.liability_state = 2<br /> and cm.policy_type = 1<br /> and cm.policy_cate in ('2','3','4')<br /> and rownum < 5<br /> order by cm.policy_code desc;<br /> v_policyCode t_contract_master.policy_code%type;<br /> v_applicantId t_contract_master.applicant_id%type;<br /> v_periodPrem t_contract_master.period_prem%type;<br /> v_bankCode t_contract_master.bank_code%type;<br /> v_bankAccount t_contract_master.bank_account%type;<br />Begin<br /> open cur_policy;<br /> Loop<br /> Fetch cur_policy into v_policyCode,<br /> v_applicantId,<br /> v_periodPrem,<br /> v_bankCode,<br /> v_bankAccount;<br /> Exit when cur_policy%notfound;</p><p> Dbms_Output.put_line(v_policyCode);<br /> end loop;<br /> Exception<br /> when others then<br /> close cur_policy;<br /> Dbms_Output.put_line(Sqlerrm);</p><p> if cur_policy%isopen then<br /> close cur_policy;<br /> end if;<br />end;<br />/<br />--------------------------------<br />Set serveroutput on;</p><p>declare<br /> Cursor cur_policy is<br /> select cm.policy_code, cm.applicant_id, cm.period_prem,cm.bank_code,cm.bank_account<br /> from t_contract_master cm<br /> where cm.liability_state = 2<br /> and cm.policy_type = 1<br /> and cm.policy_cate in ('2','3','4')<br /> and rownum < 5<br /> order by cm.policy_code desc;<br />Begin<br /> For rec_Policy in cur_policy loop<br /> Dbms_Output.put_line(rec_policy.policy_code);<br /> end loop;<br /> Exception<br /> when others then<br /> Dbms_Output.put_line(Sqlerrm);</p><p>end;</p><p>/

 

3． Ref Cursor（動態資料指標）：
1） 與隱式Cursor,顯式Cursor的區別：Ref Cursor是可以通過在運行期間傳遞參數來擷取資料結果集。而另外兩種Cursor，是靜態，在編譯期間就決定資料結果集。
2） Ref cursor的使用:
Type [Cursor type name] is ref cursor
Define 動態Sql語句
Open cursor
操作資料---Fetch  [Cursor name]
Close Cursor
下面是一個Sample：

Set serveroutput on;</p><p>Declare<br /> ---define cursor type name<br /> type cur_type is ref cursor;<br /> cur_policy cur_type;<br /> sqlStr varchar2(500);<br /> rec_policy t_contract_master%rowtype;<br />begin<br /> ---define 動態Sql<br /> sqlStr := 'select cm.policy_code, cm.applicant_id, cm.period_prem,cm.bank_code,cm.bank_account from t_contract_master cm<br /> where cm.liability_state = 2<br /> and cm.policy_type = 1<br /> and cm.policy_cate in (2,3,4)<br /> and rownum < 5<br /> order by cm.policy_code desc ';<br />---Open Cursor<br /> open cur_policy for sqlStr;<br /> loop<br /> fetch cur_policy into rec_policy.policy_code, rec_policy.applicant_id, rec_policy.period_prem,rec_policy.bank_code,rec_policy.bank_account;<br /> exit when cur_policy%notfound;</p><p> Dbms_Output.put_line('Policy_code:'||rec_policy.policy_code);</p><p> end loop;<br />close cur_policy; </p><p>end;<br />/

4.常見Exception
1.錯 誤 名 稱 錯誤碼 錯 誤 含 義<br />2.CURSOR_ALREADY_OPEN ORA_06511 試圖開啟已經開啟的遊標<br />3.INVALID_CURSOR ORA_01001 試圖使用沒有開啟的遊標<br />4.DUP_VAL_ON_INDEX ORA_00001 儲存重複值到惟一索引約束的列中<br />5.ZERO_DIVIDE ORA_01476 發生除數為零的除法錯誤<br />6.INVALID_NUMBER ORA_01722 試圖對無效字元進行數值轉換<br />7.ROWTYPE_MISMATCH ORA_06504 主變數和遊標的類型不相容<br />8.VALUE_ERROR ORA_06502 轉換、截斷或算術運算髮生錯誤<br />9.TOO_MANY_ROWS ORA_01422 SELECT…INTO…語句返回多於一行的資料<br />10.NO_DATA_FOUND ORA_01403 SELECT…INTO…語句沒有資料返回<br />11.TIMEOUT_ON_RESOURCE ORA_00051 等待資源時發生逾時錯誤<br />12.TRANSACTION_BACKED_OUT ORA_00060 由於死結，提交失敗<br />13.STORAGE_ERROR ORA_06500 發生記憶體錯誤<br />14.PROGRAM_ERROR ORA_06501 發生PL/SQL內部錯誤<br />15.NOT_LOGGED_ON ORA_01012 試圖操作未串連的資料庫<br />16.LOGIN_DENIED ORA_01017 在串連時提供了無效使用者名稱或口令

 

附：使用遊標

<br />15-1:使用標量變數接收遊標資料<br />DECLARE<br /> CURSOR emp_cursor IS<br /> SELECT ename,job,sal FROM emp WHERE deptno=&dno;<br /> v_ename emp.ename%TYPE;<br /> v_sal emp.sal%TYPE;<br /> v_job emp.job%TYPE;<br />BEGIN<br /> OPEN emp_cursor;<br /> LOOP<br /> FETCH emp_cursor INTO v_ename,v_job,v_sal;<br /> EXIT WHEN emp_cursor%NOTFOUND;<br /> dbms_output.put_line('姓名：'||v_ename||'，崗位：'||v_job||'，工資：'||v_sal);<br /> END LOOP;<br /> CLOSE emp_cursor;<br />END;<br />/<br />15-2:使用pl/sql紀錄變數接收遊標資料<br />DECLARE<br /> CURSOR emp_cursor IS<br /> SELECT ename,sal FROM emp ORDER BY sal DESC;<br /> emp_record emp_cursor%ROWTYPE;<br />BEGIN<br /> OPEN emp_cursor;<br /> LOOP<br /> FETCH emp_cursor INTO emp_record;<br /> EXIT WHEN emp_cursor%NOTFOUND OR emp_cursor%ROWCOUNT>&n;<br /> dbms_output.put_line('姓名：'||emp_record.ename||<br /> '，工資：'||emp_record.sal);<br /> END LOOP;<br /> CLOSE emp_cursor;<br />END;<br />/<br />15-3:使用pl/sql集合變數接收遊標資料<br />DECLARE<br /> CURSOR emp_cursor IS SELECT ename,sal FROM emp<br /> WHERE lower(job)=lower('&job');<br /> TYPE emp_table_type IS TABLE OF emp_cursor%ROWTYPE<br /> INDEX BY BINARY_INTEGER;<br /> emp_table emp_table_type;<br /> i INT;<br />BEGIN<br /> OPEN emp_cursor;<br /> LOOP<br /> i:=emp_cursor%ROWCOUNT+1;<br /> FETCH emp_cursor INTO emp_table(i);<br /> EXIT WHEN emp_cursor%NOTFOUND;<br /> dbms_output.put_line('姓名：'||emp_table(i).ename||<br /> '，工資：'||emp_table(i).sal);<br /> END LOOP;<br /> CLOSE emp_cursor;<br />END;<br />/<br />15-4:在遊標for迴圈中引用已定義遊標<br />DECLARE<br /> CURSOR emp_cursor IS SELECT ename,hiredate FROM emp<br /> ORDER BY hiredate DESC;<br />BEGIN<br /> FOR emp_record IN emp_cursor LOOP<br /> dbms_output.put_line('姓名：'||emp_record.ename<br /> ||',工作日期：'||emp_record.hiredate);<br /> EXIT WHEN emp_cursor%ROWCOUNT=&n;<br /> END LOOP;<br />END;<br />/<br />15-5:在遊標for迴圈中直接引用子查詢<br />BEGIN<br /> FOR emp_record IN (SELECT ename,hiredate,rownum FROM emp<br /> ORDER BY hiredate) LOOP<br /> dbms_output.put_line('姓名：'||emp_record.ename<br /> ||',工作日期：'||emp_record.hiredate);<br /> EXIT WHEN emp_record.rownum=&n;<br /> END LOOP;<br />END;<br />/<br />15-6:參數遊標<br />DECLARE<br /> CURSOR emp_cursor(dno NUMBER) IS<br /> SELECT ename,job FROM emp WHERE deptno=dno;<br />BEGIN<br /> FOR emp_record IN emp_cursor(&dno) LOOP<br /> dbms_output.put_line('姓名：'||emp_record.ename<br /> ||',崗位：'||emp_record.job);<br /> END LOOP;<br />END;<br />/<br />15-7:更新遊標行<br />DECLARE<br /> CURSOR emp_cursor IS<br /> SELECT ename,sal,deptno FROM emp FOR UPDATE;<br /> dno INT:=&no;<br />BEGIN<br /> FOR emp_record IN emp_cursor LOOP<br /> IF emp_record.deptno=dno THEN<br /> dbms_output.put_line('姓名:'||emp_record.ename<br /> ||',原工資:'||emp_record.sal);<br /> UPDATE emp SET sal=sal*1.1 WHERE CURRENT OF emp_cursor;<br /> END IF;<br /> END LOOP;<br />END;<br />/<br />15-8:刪除遊標行<br />DECLARE<br /> CURSOR emp_cursor IS<br /> SELECT ename FROM emp FOR UPDATE;<br /> name VARCHAR2(10):=lower('&name');<br />BEGIN<br /> FOR emp_record IN emp_cursor LOOP<br /> IF lower(emp_record.ename)=name THEN<br /> DELETE FROM emp WHERE CURRENT OF emp_cursor;<br /> ELSE<br /> dbms_output.put_line('姓名:'||emp_record.ename);<br /> END IF;<br /> END LOOP;<br />END;<br />/<br />15-9:使用of子句在特定表上加行共用鎖定．<br />DECLARE<br /> CURSOR emp_cursor IS<br /> SELECT a.dname,b.ename FROM dept a JOIN emp b<br /> ON a.deptno=b.deptno<br /> FOR UPDATE OF b.deptno;<br /> name VARCHAR2(10):=LOWER('&name');<br />BEGIN<br /> FOR emp_record IN emp_cursor LOOP<br /> IF LOWER(emp_record.dname)=name THEN<br /> dbms_output.put_line('姓名:'||emp_record.ename);<br /> DELETE FROM emp WHERE CURRENT OF emp_cursor;<br /> END IF;<br /> END LOOP;<br />END;<br />/<br />15-10:使用無傳回型別的遊標變數<br />DECLARE<br /> TYPE ref_cursor_type IS REF CURSOR;<br /> ref_cursor ref_cursor_type;<br /> v1 NUMBER(6);<br /> v2 VARCHAR2(10);<br />BEGIN<br /> OPEN ref_cursor FOR<br /> SELECT &col1 col1,&col2 col2 FROM &table WHERE &cond;<br /> LOOP<br /> FETCH ref_cursor INTO v1,v2;<br /> EXIT WHEN ref_cursor%NOTFOUND;<br /> dbms_output.put_line('col1='||v1||',col2='||v2);<br /> END LOOP;<br /> CLOSE ref_cursor;<br />END;<br />/<br />15-11:使用有傳回型別的遊標變數<br />DECLARE<br /> TYPE emp_cursor_type IS REF CURSOR RETURN emp%ROWTYPE;<br /> emp_cursor emp_cursor_type;<br /> emp_record emp%ROWTYPE;<br />BEGIN<br /> OPEN emp_cursor FOR SELECT * FROM emp<br /> WHERE deptno=&dno;<br /> LOOP<br /> FETCH emp_cursor INTO emp_record;<br /> EXIT WHEN emp_cursor%NOTFOUND;<br /> dbms_output.put_line('姓名:'||emp_record.ename||<br /> ',工資:'||emp_record.sal);<br /> END LOOP;<br /> CLOSE emp_cursor;<br />END;<br />/<br />15-12:使用fetch...bulk collect提取所有資料<br />DECLARE<br /> CURSOR emp_cursor IS<br /> SELECT * FROM emp WHERE LOWER(job)=LOWER('&job');<br /> TYPE emp_table_type IS TABLE OF emp%ROWTYPE;<br /> emp_table emp_table_type;<br />BEGIN<br /> OPEN emp_cursor;<br /> FETCH emp_cursor BULK COLLECT INTO emp_table;<br /> CLOSE emp_cursor;<br /> FOR i IN 1.. emp_table.COUNT LOOP<br /> dbms_output.put_line('姓名:'||emp_table(i).ename<br /> ||',工資:'||emp_table(i).sal);<br /> END LOOP;<br />END;<br />/<br />15-13:使用limit子句限制提取行數<br />DECLARE<br /> CURSOR emp_cursor IS SELECT * FROM emp;<br /> TYPE emp_array_type IS VARRAY(5) OF emp%ROWTYPE;<br /> emp_array emp_array_type;<br />BEGIN<br /> OPEN emp_cursor;<br /> LOOP<br /> FETCH emp_cursor BULK COLLECT INTO emp_array LIMIT &rows;<br /> FOR i IN 1..emp_array.COUNT LOOP<br /> dbms_output.put_line('姓名:'||emp_array(i).ename<br /> ||',工資:'||emp_array(i).sal);<br /> END LOOP;<br /> EXIT WHEN emp_cursor%NOTFOUND;<br /> END LOOP;<br /> CLOSE emp_cursor;<br />END;<br />/<br />15-14:使用cursor運算式<br />DECLARE<br /> CURSOR dept_cursor(no NUMBER) IS<br /> SELECT a.dname,CURSOR(SELECT * FROM emp<br /> WHERE deptno=a.deptno)<br /> FROM dept a WHERE a.deptno=no;<br /> TYPE ref_cursor_type IS REF CURSOR;<br /> emp_cursor ref_cursor_type;<br /> emp_record emp%ROWTYPE;<br /> v_dname dept.dname%TYPE;<br />BEGIN<br /> OPEN dept_cursor(&dno);<br /> LOOP<br /> FETCH dept_cursor INTO v_dname,emp_cursor;<br /> EXIT WHEN dept_cursor%NOTFOUND;<br /> dbms_output.put_line('部門名:'||v_dname);<br /> LOOP<br /> FETCH emp_cursor INTO emp_record;<br /> EXIT WHEN emp_cursor%NOTFOUND;<br /> dbms_output.put_line('----僱員名:'||emp_record.ename<br /> ||',崗位:'||emp_record.job);<br /> END LOOP;<br /> END LOOP;<br /> CLOSE dept_cursor;<br />END;<br />/