Oracle 游标使用大全2

游标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_name|search_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