L/SQL程序设计（四）

第四章  游标的使用

    在 PL/SQL 程序中，对于处理多行记录的事务经常使用游标来实现。

§4.1 游标概念

  为了处理 SQL 语句，ORACLE 必须分配一片叫上下文( context area )的区域来处理所必需的信息，其中包括要处理的行的数目，一个指向语句被分析以后的表示形式的指针以及查询的活动集(active set)。

  游标是一个指向上下文的句柄( handle)或指针。通过游标，PL/SQL可以控制上下文区和处理语句时上下文区会发生些什么事情。

       对于不同的SQL语句，游标的使用情况不同：

SQL语句	游标
非查询语句	隐式的
结果是单行的查询语句	隐式的或显示的
结果是多行的查询语句	显示的

 

§4.1.1处理显式游标

 

1.  显式游标处理

显式游标处理需四个 PL/SQL步骤:

l  定义游标：就是定义一个游标名，以及与其相对应的SELECT 语句。

格式：

CURSOR cursor_name[(parameter[, parameter]…)] IS select_statement;

       游标参数只能为输入参数，其格式为：

              parameter_name [IN] datatype [{:= | DEFAULT} expression]

       在指定数据类型时，不能使用长度约束。如NUMBER(4)、CHAR(10) 等都是错误的。

l  打开游标：就是执行游标所对应的SELECT 语句，将其查询结果放入工作区，并且指针指向工作区的首部，标识游标结果集合。如果游标查询语句中带有FOR UPDATE选项，OPEN 语句还将锁定数据库表中游标结果集合对应的数据行。

格式：

OPEN cursor_name[([parameter =>] value[, [parameter =>] value]…)];

在向游标传递参数时，可以使用与函数参数相同的传值方法，即位置表示法和名称表示     法。PL/SQL 程序不能用OPEN 语句重复打开一个游标。

l  提取游标数据：就是检索结果集合中的数据行，放入指定的输出变量中。

格式：

FETCH cursor_name INTO {variable_list | record_variable };

l  对该记录进行处理；

l  继续处理，直到活动集合中没有记录；

l  关闭游标：当提取和处理完游标结果集合数据后，应及时关闭游标，以释放该游标所占用的系统资源，并使该游标的工作区变成无效，不能再使用FETCH 语句取其中数据。关闭后的游标可以使用OPEN 语句重新打开。

格式：

CLOSE cursor_name;

注：定义的游标不能有INTO 子句。

 

例1. 查询前10名员工的信息。

DECLARE

   CURSOR c_cursor IS SELECT ename, sal FROM emp WHERE rownum<11;

   v_ename  emp.ename%TYPE;

   v_sal      emp.sal%TYPE;

BEGIN

OPEN c_cursor;

FETCH c_cursor INTO v_ename, v_sal;

WHILE c_cursor %FOUNDLOOP

   DBMS_OUTPUT.PUT_LINE(v_ename||’---‘||to_char(v_sal) );

   FETCH c_cursor INTO v_ename, v_sal;

ENDLOOP;

CLOSE c_cursor;

END;

 

例2. 游标参数的传递方法。

DECLARE

       DeptRec dept%ROWTYPE;

       Dept_name dept.dname%TYPE;

       Dept_loc dept.loc%TYPE;

       CURSOR c1 IS

SELECT dname, loc FROM dept WHERE deptno <= 30;

       CURSOR c2(dept_no NUMBER DEFAULT 10) IS

              SELECT dname, loc FROM dept WHERE deptno <= dept_no;

       CURSOR c3(dept_no NUMBER DEFAULT 10) IS

              SELECT * FROM dept WHERE deptno <=dept_no;

BEGIN

       OPEN c1;

      LOOP

              FETCH c1 INTO dept_name, dept_loc;

              EXIT WHEN c1%NOTFOUND;

              DBMS_OUTPUT.PUT_LINE(dept_name||’---‘||dept_loc);

       ENDLOOP;

       CLOSE c1;

 

       OPEN c2;

      LOOP

              FETCH c2 INTO dept_name, dept_loc;

              EXIT WHEN c2%NOTFOUND;

              DBMS_OUTPUT.PUT_LINE(dept_name||’---‘||dept_loc);

       ENDLOOP;

       CLOSE c2;

 

       OPEN c3(dept_no =>20);

      LOOP

              FETCH c3 INTO deptrec;

              EXIT WHEN c3%NOTFOUND;

              DBMS_OUTPUT.PUT_LINE(deptrec.deptno||’---‘||deptrec.dname

||’---‘||deptrec.loc);

       ENDLOOP;

       CLOSE c3;

END;

 

2.游标属性

 %FOUND       布尔型属性，当最近一次读记录时成功返回,则值为TRUE；

 %NOTFOUND   布尔型属性，与%FOUND相反；

 %ISOPEN       布尔型属性，当游标已打开时返回 TRUE；

 %ROWCOUNT   数字型属性，返回已从游标中读取的记录数。

 

例3：给工资低于1200 的员工增加工资50。

DECLARE

   v_empno  emp.empno%TYPE;

   v_sal      emp.sal%TYPE;

   CURSOR c_cursor IS SELECT empno, sal FROM emp;

BEGIN

   OPEN c_cursor;

  LOOP

      FETCH c_cursor INTO v_empno, v_sal;

      EXIT WHEN c_cursor %NOTFOUND;

      IF v_sal<=1200 THEN

            UPDATE emp SET sal=sal+50 WHERE empno=v_empno;

            DBMS_OUTPUT.PUT_LINE('编码为'||v_empno||'工资已更新!');

END IF;

DBMS_OUTPUT.PUT_LINE('记录数:'|| c_cursor %ROWCOUNT);

   ENDLOOP;

   CLOSE c_cursor;

END;

 

3. 游标的FOR循环

    PL/SQL语言提供了游标FOR循环语句，自动执行游标的OPEN、FETCH、CLOSE语句和循环语句的功能；当进入循环时，游标FOR循环语句自动打开游标，并提取第一行游标数据，当程序处理完当前所提取的数据而进入下一次循环时，游标FOR循环语句自动提取下一行数据供程序处理，当提取完结果集合中的所有数据行后结束循环，并自动关闭游标。

格式：

       FOR index_variable IN cursor_name[value[, value]…] LOOP

              -- 游标数据处理代码

       ENDLOOP;

其中：

       index_variable为游标FOR 循环语句隐含声明的索引变量，该变量为记录变量，其结构与游标查询语句返回的结构集合的结构相同。在程序中可以通过引用该索引记录变量元素来读取所提取的游标数据，index_variable中各元素的名称与游标查询语句选择列表中所制定的列名相同。如果在游标查询语句的选择列表中存在计算列，则必须为这些计算列指定别名后才能通过游标FOR 循环语句中的索引变量来访问这些列数据。

注：不要在程序中对游标进行人工操作；不要在程序中定义用于控制FOR 循环的记录。

 

例4：

DECLARE

   CURSOR c_sal IS SELECT empno, ename, sal FROM emp ;

BEGIN

--隐含打开游标

   FOR v_sal IN c_salLOOP

   --隐含执行一个FETCH语句

             DBMS_OUTPUT.PUT_LINE( to_char(v_sal.empno)||’---‘||

v_sal.ename||’---‘||to_char(v_sal.sal)) ;

   --隐含监测c_sal%NOTFOUND

   ENDLOOP;

--隐含关闭游标

END;

 

例5：当所声明的游标带有参数时，通过游标FOR 循环语句为游标传递参数。

DECLARE

       CURSOR c_cursor(dept_no NUMBER DEFAULT 10) IS

              SELECT dname, loc FROM dept WHERE deptno <= dept_no;

BEGIN

       DBMS_OUTPUT.PUT_LINE(‘dept_no参数值为30：’);

       FOR c1_rec IN c_cursor (30) LOOP

              DBMS_OUTPUT.PUT_LINE(c1_rec.dname||’---‘||c1_rec.loc);

       ENDLOOP;

 

       DBMS_OUTPUT.PUT_LINE(CHR(10)||’使用默认的dept_no参数值10：’);

       FOR c1_rec IN c_cursorLOOP

              DBMS_OUTPUT.PUT_LINE(c1_rec.dname||’---‘||c1_rec.loc);

       ENDLOOP;

END;

 

例6：PL/SQL还允许在游标FOR循环语句中使用子查询来实现游标的功能。

BEGIN

       FOR c1_rec IN (SELECT dname, loc FROM dept) LOOP

              DBMS_OUTPUT.PUT_LINE(c1_rec.dname||’---‘||c1_rec.loc);

       ENDLOOP;

END;

 

§4.1.2处理隐式游标

显式游标主要是用于对查询语句的处理，尤其是在查询结果为多条记录的情况下；而对于非查询语句，如修改、删除操作，则由ORACLE 系统自动地为这些操作设置游标并创建其工作区，这些由系统隐含创建的游标称为隐式游标，隐式游标的名字为SQL，这是由ORACLE 系统定义的。对于隐式游标的操作，如定义、打开、取值及关闭操作，都由ORACLE 系统自动地完成，无需用户进行处理。用户只能通过隐式游标的相关属性，来完成相应的操作。在隐式游标的工作区中，所存放的数据是与用户自定义的显示游标无关的、最新处理的一条SQL 语句所包含的数据。

格式调用为： SQL%

 

注：INSERT, UPDATE, DELETE, SELECT 语句中不必明确定义游标。

 

隐式游标属性

 SQL%FOUND       布尔型属性,当最近一次读记录时成功返回，则值为TRUE；

 SQL%NOTFOUND   布尔型属性,与%FOUND相反；

 SQL %ROWCOUNT  数字型属性, 返回已从游标中读取得记录数；

 SQL %ISOPEN    布尔型属性, 取值总是FALSE。SQL命令执行完毕立即关闭隐式游标。

 

例7: 删除EMP 表中某部门的所有员工，如果该部门中已没有员工，则在DEPT 表中删除该部门。

DECLARE

V_deptno emp.deptno%TYPE :=&p_deptno;

BEGIN

       DELETE FROM emp WHERE deptno=v_deptno;

       IF SQL%NOTFOUND THEN

              DELETE FROM dept WHERE deptno=v_deptno;

       END IF;

END;

 

§4.1.3关于 NO_DATA_FOUND 和 %NOTFOUND的区别

 

SELECT … INTO 语句触发 NO_DATA_FOUND；

当一个显式游标的WHERE子句未找到时触发%NOTFOUND；

当UPDATE或DELETE 语句的WHERE 子句未找到时触发 SQL%NOTFOUND；在提取循环中要用 %NOTFOUND 或%FOUND 来确定循环的退出条件，不要用 NO_DATA_FOUND.

 

§4.1.4  游标修改和删除操作

游标修改和删除操作是指在游标定位下，修改或删除表中指定的数据行。这时，要求游标查询语句中必须使用FOR UPDATE选项，以便在打开游标时锁定游标结果集合在表中对应数据行的所有列和部分列。

为了对正在处理(查询)的行不被另外的用户改动，ORACLE 提供一个 FOR UPDATE 子句来对所选择的行进行锁住。该需求迫使ORACLE锁定游标结果集合的行，可以防止其他事务处理更新或删除相同的行，直到您的事务处理提交或回退为止。

语法：

SELECT . . . FROM … FOR UPDATE [OF column[, column]…] [NOWAIT]

 

    如果另一个会话已对活动集中的行加了锁，那么SELECT FOR UPDATE操作一直等待到其它的会话释放这些锁后才继续自己的操作，对于这种情况，当加上NOWAIT子句时，如果这些行真的被另一个会话锁定，则OPEN立即返回并给出：

ORA-0054 ：resource busy  and  acquire with nowait specified.

 

    如果使用 FOR UPDATE 声明游标，则可在DELETE和UPDATE 语句中使用WHERE CURRENT OF cursor_name子句，修改或删除游标结果集合当前行对应的数据库表中的数据行。

 

例12：从EMP表中查询某部门的员工情况，将其工资最低定为 1500；

 

DECLARE

V_deptno emp.deptno%TYPE :=&p_deptno;

       CURSOR emp_cursor IS SELECT empno, sal

FROM emp WHERE deptno=v_deptno FOR UPDATE NOWAIT;

BEGIN

       FOR emp_record IN emp_cursorLOOP

IF emp_record.sal < 1500 THEN

       UPDATE emp SET sal=1500 WHERE CURRENT OF emp_cursor;

END IF;

       ENDLOOP;

--     COMMIT;

END;

 

§4.2 游标变量

       与游标一样，游标变量也是一个指向多行查询结果集合中当前数据行的指针。但与游标不同的是，游标变量是动态的，而游标是静态的。游标只能与指定的查询相连，即固定指向一个查询的内存处理区域，而游标变量则可与不同的查询语句相连，它可以指向不同查询语句的内存处理区域（但不能同时指向多个内存处理区域，在某一时刻只能与一个查询语句相连），只要这些查询语句的返回类型兼容即可。

 

§4.2.1  声明游标变量

      

游标变量为一个指针，它属于参照类型，所以在声明游标变量类型之前必须先定义游标变量类型。在PL/SQL中，可以在块、子程序和包的声明区域内定义游标变量参照类型。

语法格式为：

       TYPE ref_type_name IS REFCURSOR [ RETURN return_type];

其中：ref_type_name为新定义的游标变量类型名称；

         retuen_type 为游标变量的返回值类型，它必须为记录变量。

 

       在定义游标变量类型时，可以采用强类型定义和弱类型定义两种。强类型定义必须指定游标变量的返回值类型，而弱类型定义则不说明返回值类型。

 

例：创建两个强类型定义游标变量和一个弱类型游标变量：

 

DECLARE

       TYPE deptrecord IS RECORD(

              Deptno dept.deptno%TYPE,

              Dname dept.deptno%TYPE,

              Loc dept.loc%TYPE

       );

       TYPE deptcurtype IS REF CURSOR RETURN dept%ROWTYPE;

       TYPE deptcurtyp1 IS REF CURSOR RETURN deptrecord;

       TYPE curtype IS REF CURSOR;

       Dept_c1 deptcurtype;

       Dept_c2 deptcurtyp1;

       Cv curtype;

 

§4.2.2  游标变量操作

       与游标一样，游标变量操作也包括打开、提取和关闭三个步骤。

1．  打开游标变量

打开游标变量时使用的是OPEN…FOR 语句。格式为：

OPEN {cursor_variable_name | :host_cursor_variable_name}

       FOR select_statement;

其中：cursor_variable_name为游标变量，host_cursor_variable_name为PL/SQL主机环境（如OCI: ORACLE Call Interface，Pro*c 程序等）中声明的游标变量。

       OPEN…FOR 语句可以在关闭当前的游标变量之前重新打开游标变量，而不会导致CURSOR_ALREAD_OPEN异常错误。新打开游标变量时，前一个查询的内存处理区将被释放。

 

2．  提取游标变量数据

使用FETCH语句提取游标变量结果集合中的数据。格式为：

FETCH {cursor_variable_name | :host_cursor_variable_name}

       INTO {variable [, variable]…| record_variable};

其中：cursor_variable_name和host_cursor_variable_name分别为游标变量和宿主游标变量名称；variable和record_variable分别为普通变量和记录变量名称。

 

3．  关闭游标变量

CLOSE语句关闭游标变量，格式为：

CLOSE {cursor_variable_name | :host_cursor_variable_name}

其中：cursor_variable_name和host_cursor_variable_name分别为游标变量和宿主游标变量名称，如果应用程序试图关闭一个未打开的游标变量，则将导致INVALID_CURSOR异常错误。

 

例12：强类型参照游标变量类型

 

DECLARE

       TYPE emp_job_rec IS RECORD(

              Employee_id emp.empno%TYPE,

              Employee_name emp.ename%TYPE,

              Job_title emp.job%TYPE

       );

       TYPE emp_job_refcur_type IS REF CURSOR RETURN emp_job_rec;

       Emp_refcur emp_job_refcur_type ;

       Emp_job emp_job_rec;

BEGIN

       OPEN emp_refcur FOR

SELECT empno, ename, job FROM emp ORDER BY deptno;

       FETCH emp_refcur INTO emp_job;

       WHILE emp_refcur%FOUNDLOOP

DBMS_OUTPUT.PUT_LINE(emp_job.employee_id||’: ‘||emp_job.employee_name||‘ is a ’||emp_job.job_title);

       FETCH emp_refcur INTO emp_job;

       ENDLOOP;

END;

 

例13：弱类型参照游标变量类型

 

PROMPT

PROMPT ‘What table would you like to see?’

ACCEPT tab PROMPT ‘(D)epartment, or (E)mployees: ‘

 

DECLARE

       Type refcur_t IS REF CURSOR;

       Refcur refcur_t;

 

       TYPE sample_rec_type IS RECORD (

              Id number,

              Description VARCHAR2 (30)

       );

       sample sample_rec_type;

 

       selection varchar2(1) := UPPER (SUBSTR (‘&tab’, 1, 1));

 

BEGIN

       IF selection=’D’ THEN

              OPEN refcur FOR SELECT deptno, dname FROM dept;

              DBMS_OUTPUT.PUT_LINE(‘Department data’);

       ELSIF selection=’E’ THEN

              OPEN refcur FOR SELECT empno, ename||’ is a ‘||job FROM emp;

              DBMS_OUTPUT.PUT_LINE(‘Employee data’);

       ELSE

              DBMS_OUTPUT.PUT_LINE(‘Please enter ‘‘D’’ or ‘‘E’’ ’);

              RETURN;

       END IF;

       DBMS_OUTPUT.PUT_LINE(‘----------------------‘);

       FETCH refcur INTO sample;

       WHILE refcur%FOUNDLOOP

              DBMS_OUTPUT.PUT_LINE(sample.id||’: ‘||sample.description);

              FETCH refcur INTO sample;

       ENDLOOP;

       CLOSE refcur;

END;