Oracle PL/SQL语言初级教程之游标

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

（出处：清风学院）