游标FOR循环

游标FOR循环

在⼤多数时候我们在设计程序的时候都遵循下⾯的步骤：1、打开游标2、开始循环3、从游标中取值4、检查那⼀⾏被返回5、处理6、关闭循环7、关闭游标

可以简单的把这⼀类代码称为游标⽤于循环。但还有⼀种循环与这种类型不相同，这就是FOR循环，⽤于FOR循环的游标按照正常的声明⽅式声明，它的优点在于不需要显式的打开、关闭、取数据，测试数据的存在、定义存放数据的变量等等。游标FOR循环的语法如下：FOR record_name IN

(corsor_name[(parameter[,parameter]...)]| (query_difinition)LOOPstatementsEND LOOP;

下⾯我们⽤for循环重写上⾯的例⼦：DECALRE

CURSOR c_dept IS SELECT deptno,dname FROM dept ORDER BY deptno;CURSOR c_emp (p_dept VARACHAR2) ISSELECT ename,salaryFROM emp

WHERE deptno=p_deptORDER 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) LOOPDBMS_OUTPUT.PUT_LINE('Department:'|| r_dept.deptno||'-'||r_dept.dname);v_tot_salary:=0;

FOR r_emp IN (SELECT ename,salaryFROM emp

WHERE deptno=p_deptORDER 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 empWHERE deptno NOT IN (SELECT deptnoFROM 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⼦句，那么所有表中选择的数据⾏都将被锁定。如果这些数据⾏已经被其他会话锁定，那么正常情况下将等待，直到数据⾏解锁。

在UPDATE和DELETE中使⽤WHERE CURRENT OF⼦串的语法如下：WHERE{CURRENT OF cursor_name|search_condition}例：DELCARE

CURSOR c1 IS SELECT empno,salaryFROM emp

WHERE comm IS NULLFOR UPDATE OF comm;v_comm NUMBER(10,2);BEGIN

FOR r1 IN c1 LOOPIF r1.salary<500 THENv_comm:=r1.salary*0.25;ELSEIF r1.salary<1000 THENv_comm:=r1.salary*0.20;ELSEIF r1.salary<3000 THENv_comm:=r1.salary*0.15;ELSE

v_comm:=r1.salary*0.12;END IF;UPDATE emp;SET comm=v_commWHERE CURRENT OF c1l;END LOOP;END