顯式游標 當查詢返回結果超過一行時，就需要一個顯式游標，此時用戶不能使用select into語句。PL/SQL治理隱式游標，當查詢開始時隱式游標打開，查詢結束時隱式游標自動關閉。顯式游標在PL/SQL塊的聲明部分聲明，在執行部分或異常處理部分打開，取出數據,關閉。 使用游標 這里要做一個聲明，我們所說的游標通常是指顯式游標，因此從現在起沒有非凡指明的情況，我們所說的游標都是指顯式游標。要在程序中使用游標，必須首先聲明游標。 聲明游標 語法： CURSOR cursor_name IS select_statement; 在PL/SQL中游標名是一個未聲明變量，不能給游標名賦值或用于表達式中。 例： DELCARE CURSOR C_EMP IS SELECT empno,ename,salary FROM emp WHERE salary>2000 ORDER BY ename; ........ BEGIN 在游標定義中SELECT語句中不一定非要表可以是視圖，也可以從多個表或視圖中選擇的列，甚至可以使用*來選擇所有的列 。打開游標 使用游標中的值之前應該首先打開游標，打開游標初始化查詢處理。打開游標的語法是： OPEN cursor_name cursor_name是在聲明部分定義的游標名。 例： OPEN C_EMP; 關閉游標。 語法： CLOSE cursor_name 例： CLOSE C_EMP; 從游標提取數據。從游標得到一行數據使用FETCH命令。每一次提取數據后，游標都指向結果集的下一行。語法如下： FETCH cursor_name INTO variable[,variable,...] 對于SELECT定義的游標的每一列，FETCH變量列表都應該有一個變量與之相對應，變量的類型也要相同。 例： SET SERVERIUTPUT ON DECLARE v_ename EMP.ENAME%TYPE; v_salary EMP.SALARY%TYPE; CURSOR c_emp IS SELECT ename,salary FROM emp; BEGIN OPEN c_emp; FETCH c_emp INTO v_ename,v_salary; DBMS_OUTPUT.PUT_LINE('Salary of Employee' v_ename 'is' v_salary); FETCH c_emp INTO v_ename,v_salary; DBMS_OUTPUT.PUT_LINE('Salary of Employee' v_ename 'is' v_salary); FETCH c_emp INTO v_ename,v_salary; DBMS_OUTPUT.PUT_LINE('Salary of Employee' v_ename 'is' v_salary); CLOSE c_emp; END 這段代碼無疑是非常麻煩的，假如有多行返回結果，可以使用循環并用游標屬性為結束循環的條件，以這種方式提取數據，程序的可讀性和簡潔性都大為提高，下面我們使用循環重新寫上面的程序： SET SERVERIUTPUT ON DECLARE v_ename EMP.ENAME%TYPE; v_salary EMP.SALARY%TYPE; CURSOR c_emp IS SELECT ename,salary FROM emp; BEGIN OPEN c_emp; LOOP FETCH c_emp INTO v_ename,v_salary; EXIT WHEN c_emp%NOTFOUND; DBMS_OUTPUT.PUT_LINE('Salary of Employee' v_ename 'is' v_salary); END ; 記錄變量 定義一個記錄變量使用TYPE命令和%ROWTYPE，關于%ROWsTYPE的更多信息請參閱相關資料。 記錄變量用于從游標中提取數據行，當游標選擇很多列的時候，那么使用記錄比為每列聲明一個變量要方便得多。 當在表上使用%ROWTYPE并將從游標中取出的值放入記錄中時，假如要選擇表中所有列，那么在SELECT子句中使用*比將所有列名列出來要得多。 例： SET SERVERIUTPUT ON DECLARE R_emp EMP%ROWTYPE; CURSOR c_emp IS SELECT * FROM emp; BEGIN OPEN c_emp; LOOP FETCH c_emp INTO r_emp; EXIT WHEN c_emp%NOTFOUND; DBMS_OUT.PUT.PUT_LINE('Salary of Employee'r_emp.ename'is' r_emp.salary); END LOOP; CLOSE c_emp; END; %ROWTYPE也可以用游標名來定義，這樣的話就必須要首先聲明游標： SET SERVERIUTPUT ON DECLARE CURSOR c_emp IS SELECT ename,salary FROM emp; R_emp c_emp%ROWTYPE; BEGIN OPEN c_emp; LOOP FETCH c_emp INTO r_emp; EXIT WHEN c_emp%NOTFOUND; DBMS_OUT.PUT.PUT_LINE('Salary of Employee'r_emp.ename'is' r_emp.salary); END LOOP; CLOSE c_emp; END; 帶參數的游標 與存儲過程和函數相似，可以將參數傳遞給游標并在查詢中使用。這對于處理在某種條件下打開游標的情況非常有用。它的語法如下： CURSOR cursor_name[(parameter[,parameter],...)] IS select_statement; 定義參數的語法如下： Parameter_name [IN] data_type[{:=DEFAULT} value] 與存儲過程不同的是，游標只能接受傳遞的值，而不能返回值。參數只定義數據類型，沒有大小。 另外可以給參數設定一個缺省值，當沒有參數值傳遞給游標時，就使用缺省值。游標中定義的參數只是一個占位符，在別處引用該參數不一定可靠。 在打開游標時給參數賦值，語法如下： OPEN cursor_name[value[,value]....]; 參數值可以是文字或變量。 例： DECALRE CURSOR c_dept IS SELECT * FROM dept ORDER BY deptno; CURSOR c_emp (p_dept VARACHAR2) IS SELECT ename,salary FROM emp WHERE deptno=p_dept ORDER BY ename r_dept DEPT%ROWTYPE; v_ename EMP.ENAME%TYPE; v_salary EMP.SALARY%TYPE; v_tot_salary EMP.SALARY%TYPE; BEGIN OPEN c_dept; LOOP FETCH c_dept INTO r_dept; EXIT WHEN c_dept%NOTFOUND; DBMS_OUTPUT.PUT_LINE('Department:' r_dept.deptno'-'r_dept.dname); v_tot_salary:=0; OPEN c_emp(r_dept.deptno); LOOP FETCH c_emp INTO v_ename,v_salary; EXIT WHEN c_emp%NOTFOUND; DBMS_OUTPUT.PUT_LINE('Name:' v_ename' salary:'v_salary); v_tot_salary:=v_tot_salary+v_salary; END LOOP; CLOSE c_emp; DBMS_OUTPUT.PUT_LINE('Toltal Salary for dept:' v_tot_salary); END LOOP; CLOSE c_dept; END; ; 游標FOR循環 在大多數時候我們在設計程序的時候都遵循下面的步驟： 1、打開游標。 2、開始循環。 3、從游標中取值。 4、那一行被返回。 5、處理。 6、關閉循環。 7、關閉游標。 可以簡單的把這一類代碼稱為游標用于循環。但還有一種循環與這種類型不相同，這就是FOR循環，用于FOR循環的游標按照正常的聲明方式聲明，它的優點在于不需要顯式的打開、關閉、取數據，測試數據的存在、定義存放數據的變量等等。游標FOR循環的語法如下： FOR record_name IN (corsor_name[(parameter[,parameter]...)] (query_difinition) LOOP statements END LOOP; 下面我們用for循環重寫上面的例子：DECALRE CURSOR c_dept IS SELECT deptno,dname FROM dept ORDER BY deptno; CURSOR c_emp (p_dept VARACHAR2) IS SELECT ename,salary FROM emp WHERE deptno=p_dept ORDER BY ename v_tot_salary EMP.SALARY%TYPE; BEGIN FOR r_dept IN c_dept LOOP DBMS_OUTPUT.PUT_LINE('Department:' r_dept.deptno'-'r_dept.dname); v_tot_salary:=0; FOR r_emp IN c_emp(r_dept.deptno) LOOP DBMS_OUTPUT.PUT_LINE('Name:' v_ename 'salary:' v_salary); v_tot_salary:=v_tot_salary+v_salary; END LOOP; DBMS_OUTPUT.PUT_LINE('Toltal Salary for dept:' v_tot_salary); END LOOP; END; 在游標FOR循環中使用查詢 在游標FOR循環中可以定義查詢，由于沒有顯式聲明所以游標沒有名字，記錄名通過游標查詢來定義。 DECALRE v_tot_salary EMP.SALARY%TYPE; BEGIN FOR r_dept IN (SELECT deptno,dname FROM dept ORDER BY deptno) LOOP DBMS_OUTPUT.PUT_LINE('Department:' r_dept.deptno'-'r_dept.dname); v_tot_salary:=0; FOR r_emp IN (SELECT ename,salary 　FROM emp 　WHERE deptno=p_dept 　ORDER BY ename) LOOP DBMS_OUTPUT.PUT_LINE('Name:' v_ename' salary:'v_salary); v_tot_salary:=v_tot_salary+v_salary; END LOOP; DBMS_OUTPUT.PUT_LINE('Toltal Salary for dept:' v_tot_salary); END LOOP; END; 游標中的子查詢 語法如下： CURSOR C1 IS SELECT * FROM emp WHERE deptno NOT IN (SELECT deptno FROM dept WHERE dname!='ACCOUNTING'); 可以看出與SQL中的子查詢沒有什么區別。 ; 游標中的更新和刪除 在PL/SQL中依然可以使用UPDATE和DELETE語句更新或刪除數據行。顯式游標只有在需要獲得多行數據的情況下使用。PL/SQL提供了僅僅使用游標就可以執行刪除或更新記錄的方法。 UPDATE或DELETE語句中的WHERE CURRENT OF子串專門處理要執行UPDATE或DELETE操作的表中取出的最近的數據。要使用這個方法，在聲明游標時必須使用FOR UPDATE子串，當對話使用FOR UPDATE子串打開一個游標時，所有返回集中的數據行都將處于行級（ROW-LEVEL)獨占式鎖定，其他對象只能查詢這些數據行，不能進行UPDATE、DELETE或SELECT...FOR UPDATE操作。 語法： FOR UPDATE [OF [schema.]table.column[,[schema.]table.column].. [nowait] 在多表查詢中，使用OF子句來鎖定特定的表,假如忽略了OF子句，那么所有表中選擇的數據行都將被鎖定。假如這些數據行已經被其他會話鎖定，那么正常情況下Oracle將等待，直到數據行解鎖。 在UPDATE和DELETE中使用WHERE CURRENT OF子串的語法如下： WHERE{CURRENT OF cursor_namesearch_condition} 例： DELCARE CURSOR c1 IS SELECT empno,salary FROM emp WHERE comm IS NULL FOR UPDATE OF comm; v_comm NUMBER(10,2); BEGIN FOR r1 IN c1 LOOP IF r1.salary<500 THEN v_comm:=r1.salary*0.25; ELSEIF r1.salary<1000 THEN v_comm:=r1.salary*0.20; ELSEIF r1.salary<3000 THEN v_comm:=r1.salary*0.15; ELSE v_comm:=r1.salary*0.12; END IF; UPDATE emp; SET comm=v_comm WHERE CURRENT OF c1l; END LOOP; END