站長資訊網
在Oracle中，游標是一種機制，是通過關鍵字CURSOR的來定義一組Oracle查詢出來的數據集，可以把查詢的數據集存儲在內存當中，然后通過游標指向其中一條記錄，通過循環游標達到循環數據集的目的。
本教程操作環境：Windows7系統、Oracle 11g版、Dell G3電腦。
在Oracle中，游標(Cursors)是一種機制，可以通過該機制將名稱分配給SELECT語句并處理該SQL語句中的信息。
Oracle游標是通過關鍵字CURSOR的來定義一組Oracle查詢出來的數據集，類似數組一樣，把查詢的數據集存儲在內存當中，然后通過游標指向其中一條記錄，通過循環游標達到循環數據集的目的。
游標有什么作用？
①指定結果集中特定行的位置。
②基于當前的結果集位置檢索一行或連續的幾行。
③在結果集的當前位置修改行中的數據。
④對其他用戶所做的數據更改定義不同的敏感性級別。
⑤可以以編程的方式訪問數據庫。
Oracle游標的類型？
1、靜態游標：結果集已經確實（靜態定義）的游標。分為隱式和顯示游標
-
隱式游標：所有DML語句為隱式游標，通過隱式游標屬性可以獲取SQL語句信息。
-
顯示游標：用戶顯示聲明的游標，即指定結果集。當查詢返回結果超過一行時，就需要一個顯式游標。
2、REF游標：動態關聯結果集的臨時對象。
Oracle游標的狀態有哪些，怎么使用游標屬性？
①游標的狀態是通過屬性來表示。
-
%Found ：Fetch語句（獲取記錄）執行情況True or False。
-
%NotFound : 最后一條記錄是否提取出True or False。
-
%ISOpen ： 游標是否打開True or False。
-
%RowCount ：游標當前提取的行數 。
②使用游標的屬性。
例子：
/* conn scott/tiger */ Begin Update emp Set SAL = SAL + 0.1 Where JOB = 'CLERK'; If SQL%Found Then DBMS_OUTPUT.PUT_LINE('已經更新！'); Else DBMS_OUTPUT.PUT_LINE('更新失?。?#39;); End If； End；
如何使用顯示游標,？如何遍歷循環游標？
1、使用顯示游標
-
聲明游標：劃分存儲區域，注意此時并沒有執行Select 語句。
CURSOR 游標名( 參數 列表) [返回值類型] IS Select 語句；
-
打開游標：執行Select 語句，獲得結果集存儲到游標中，此時游標指向結果集頭， 而不是第一條記錄。
Open 游標名( 參數 列表);
-
獲取記錄：移動游標取一條記錄
Fetch 游標名InTo 臨時記錄或屬性類型變量；
-
關閉游標：將游標放入緩沖池中，沒有完全釋放資源?？芍匦麓蜷_。
Close 游標名；
2、遍歷循環游標
-
For 循環游標
循環游標隱式打開游標，自動滾動獲取一條記錄，并自動創建臨時記錄類型變量存儲記錄。處理完后自動關閉游標。
For 變量名 In 游標名 Loop 數據處理語句； End Loop；
-
Loop循環游標
。。。 Loop Fatch 游標名InTo 臨時記錄或屬性類型變量； Exit When 游標名%NotFound； End Loop； 。。。
例子1：
/* conn scott/tiger */ Declare Cursor myCur is select empno,ename,sal from emp; vna varchar2(10); vno number(4); vsal number(7,2); Begin open myCur; fetch myCur into vno,vna,vsal; dbms_output.put_line(vno||' '||vna||' '||vsal); close myCur; End; /
例子2：使用loop遍歷游標。
/* conn scott/tiger */ Declare Cursor myCur is select ename,job,sal,empno from emp; varE myCur%rowType; Begin if myCur%isopen = false then open myCur; dbms_output.put_line('Opening...'); end if; loop fetch myCur into varE; exit when myCur%notfound; dbms_output.put_line(myCur%rowCount||' '||vare.empno||' '||vare.ename||' '||vare.sal); end loop; if myCur%isopen then Close myCur; dbms_output.put_line('Closing...'); end if; End; /
例子3：使用For循環遍歷游標,
/* conn scott/tiger */ Declare Cursor myCur is select * from emp; Begin for varA in myCur loop dbms_output.put_line(myCur%rowCount||' '||varA.empno||' '||varA.ename||' '||varA.sal); end loop; End; /
怎樣更新和刪除顯示游標中的記錄？
①UPDATE或DELETE語句中的WHERE CURRENT OF子串專門處理要執行UPDATE或DELETE操作的表中取出的最近的數據。
要使用這個方法，在聲明游標時必須使用FOR UPDATE子串，當對話使用FOR UPDATE子串打開一個游標時，
所有返回集中的數據行都將處于行級（ROW-LEVEL)獨占式鎖定，其他對象只能查詢這些數據行，
不能進行UPDATE、DELETE或SELECT…FOR UPDATE操作。
在多表查詢中，使用OF子句來鎖定特定的表,如果忽略了OF子句，那么所有表中選擇的數據行都將被鎖定。
如果這些數據行已經被其他會話鎖定，那么正常情況下ORACLE將等待，直到數據行解鎖。
②使用更新或刪除：
⑴聲明更新或刪除顯示游標：
Cursor 游標名IS SELECT 語句 For Update [ Of 更新列列名]； Cursor 游標名IS SELECT 語句 For Delete [ Of 更新列列名]；
⑵使用顯示游標當前記錄來更新或刪除：
Update 表名 SET 更新語句 Where Current Of 游標名； Delete From 表名 Where Current Of 游標名；
例子1:更新顯示游標記錄
/*conn scott/tiger*/ Declare Cursor myCur is select job from emp for update; vjob empa.job%type; rsal empa.sal%type; Begin open myCur; loop fetch myCur into vjob; exit when myCur%notFound; case (vjob) when 'ANALYST' then rsal := 0.1; when 'CLERK' then rsal := 0.2; when 'MANAGER' then rsal := 0.3; else rsal := 0.5; end case; update emp set sal = sal + rsal where current of myCur; end loop; End; /
例子2：刪除顯示游標記錄
/*conn scott/tiger Crate table empa Select * from scott.emp; */ Declare Cursor MyCursor Select JOB From empa For Update; vSal emp.Sal%TYPE; Begin Loop Fetch MyCursor InTo vSal; Exit When MyCursor%NotFound; If vSal < 800 Then Delete From empa Where Cursor Of MyCursor; End If; End Loop; End;/
什么是帶參數的顯示游標？
1、與過程和函數相似，可以將參數傳遞給游標并在查詢中使用。
參數只定義數據類型，沒有大小(所有Oracle中的形參只定義數據類型，不指定大小)。
與過程不同的是，游標只能接受傳遞的值，而不能返回值。
可以給參數設定一個缺省值，當沒有參數值傳遞給游標時，就使用缺省值。
游標中定義的參數只是一個占位符，在別處引用該參數不一定可靠。
2、使用帶參數的顯示游標
-
聲明帶參數的顯示游標：
CURSOR 游標名 [(parameter[,parameter],...)] IS Select語句;
參數形式：
1，參數名 數據類型
2，參數名 數據類型 DEFAULT 默認值
例子：
/*conn scott/tiger Crate table empa Select * from scott.emp; */ Declare Cursor MyCursor(pSal Number Default 800) Select JOB From empa Where SAL > pSal ; varA MyCursor%ROWTYPE; Begin Loop Fetch MyCursor InTo varA; Exit When MyCursor%NotFound; DBMS_OUTPUT.PUT_LINE(MyCursor%RowCount||' '||varA.empno||' '||varA.ename||' '||varA.sal); End Loop; End;/
推薦教程：《Oracle教程》
