在 PL/SQL 程序中，对于处理多行记录的事务经常使用游标来实现。
游标概念
为了处理 SQL 语句，ORACLE 必须分配一片叫上下文( context area )的区域来处理所必需的信息，其中 包括要处理的行的数目，一个指向语句被分析以后的表示形式的指针以及查询的活动集(active set)。
游标是一个指向上下文的句柄( handle)或指针。通过游标，PL/SQL 可以控制上下文区和处理语句时上 下文区会发生些什么事情。
对于不同的 SQL 语句，游标的使用情况不同：
SQL语句 游标 非查询语句 隐式的 结果是单行的查询语句 隐式的或显示的 结果是多行的查询语句 显示的
- 处理显式游标
- 显式游标处理
显式游标处理需四个 PL/SQL 步骤:
- 定义游标：就是定义一个游标名，以及与其相对应的 SELECT 语句。
格式：
CURSOR cursor_name[(parameter[, parameter]…)] IS select_statement;
游标参数只能为输入参数，其格式为：
parameter_name [IN] datatype [{:= | DEFAULT} expression]
在指定数据类型时，不能使用长度约束。如 NUMBER(4)、CHAR(10) 等都是错误的。- 打开游标：就是执行游标所对应的 SELECT 语句，将其查询结果放入工作区，并且指针指向工作区的首 部，标识游标结果集合。如果游标查询语句中带有 FOR UPDATE 选项，OPEN 语句还将锁定数据库表中 游标结果集合对应的数据行。
格式：
OPEN cursor_name[([parameter =>] value[, [parameter =>] value]…)];
在向游标传递参数时，可以使用与函数参数相同的传值方法，即位置表示法和名称表示法。PL/SQL 程序不能用 OPEN 语句重复打开一个游标。- 提取游标数据：就是检索结果集合中的数据行，放入指定的输出变量中。
格式：
FETCH cursor_name INTO {variable_list | record_variable };- 对该记录进行处理；
- 继续处理，直到活动集合中没有记录；
- 关闭游标：
当提取和处理完游标结果集合数据后，应及时关闭游标，以释放该游标所占用的系统资源， 并使该游标的工作区变成无效，不能再使用 FETCH 语句取其中数据。关闭后的游标可以使用 OPEN 语 句重新打开。
格式：
CLOSE cursor_name;
注：定义的游标不能有 INTO 子句。例 1. 查询前 10 名员工的信息。
declare --定义游标 cursor c_cursor is select last_name,salary from employees where rownum < 11 order by salary; v_name employees.last_name%type; v_sal employees.salary%type; begin --打开游标 open c_cursor; --提取游标数据 fetch c_cursor into v_name,v_sal; while c_cursor % found loop dbms_output.put_line(v_name || ':' || v_sal); fetch c_cursor into v_name,v_sal; end loop; --关闭游标 close c_cursor; end;例 2. 游标参数的传递方法。
declare --定义游标 cursor c_cursor(emp_no number default 11) is select last_name,salary from employees where rownum < emp_no order by salary; v_name employees.last_name%type; v_sal employees.salary%type; begin --打开游标 open c_cursor; --提取游标数据 fetch c_cursor into v_name,v_sal; while c_cursor % found loop dbms_output.put_line(v_name || ':' || v_sal); fetch c_cursor into v_name,v_sal; end loop; --关闭游标 close c_cursor; end;declare --定义游标 cursor c_cursor(emp_no number default 11) is select last_name,salary from employees where rownum < emp_no order by salary; v_name employees.last_name%type; v_sal employees.salary%type; begin --打开游标 open c_cursor(emp_no => 20); --提取游标数据 fetch c_cursor into v_name,v_sal; while c_cursor % found loop dbms_output.put_line(v_name || ':' || v_sal); fetch c_cursor into v_name,v_sal; end loop; --关闭游标 close c_cursor; end;
- 游标属性
%FOUND 布尔型属性，当最近一次读记录时成功返回,则值为 TRUE； %NOTFOUND 布尔型属性，与%FOUND 相反；
%ISOPEN 布尔型属性，当游标已打开时返回 TRUE；
%ROWCOUNT 数字型属性，返回已从游标中读取的记录数。
- 例 3：给工资低于 3000 的员工工资调为 3000。
declare v_eid employees.employee_id%type; v_sal employees.salary%type; cursor c_cursor is select employee_id,salary from employees; begin open c_cursor; loop fetch c_cursor into v_eid,v_sal; exit when c_cursor %notfound; if v_sal <= 3000 then update employees set salary = 3000; where employee_id = v_eid; dbms_output.put_line('员工：' || v_eid || '工资已经更新'); end if; end loop; dbms_output.put_line('记录数为：' || c_cursor %rowcount); close c_cursor; end;
- 游标的 FOR 循环
PL/SQL 语言提供了游标 FOR 循环语句，自动执行游标的 OPEN、FETCH、CLOSE 语句和循环语句的功能； 当进入循环时，游标 FOR 循环语句自动打开游标，并提取第一行游标数据，当程序处理完当前所提取的数 据而进入下一次循环时，游标 FOR 循环语句自动提取下一行数据供程序处理，当提取完结果集合中的所有 数据行后结束循环，并自动关闭游标。
格式：
FOR index_variable IN cursor_name[value[, value]…] LOOP
-- 游标数据处理代码
END LOOP;
- 其中： index_variable 为游标 FOR 循环语句隐含声明的索引变量，该变量为记录变量，其结构与游标查询语句 返回的结构集合的结构相同。在程序中可以通过引用该索引记录变量元素来读取所提取的游标数据， index_variable 中各元素的名称与游标查询语句选择列表中所制定的列名相同。如果在游标查询语句的选择 列表中存在计算列，则必须为这些计算列指定别名后才能通过游标 FOR 循环语句中的索引变量来访问这些 列数据。
- 注：不要在程序中对游标进行人工操作；不要在程序中定义用于控制 FOR 循环的记录
- 例4：
declare cursor c_emp is select last_name,salary sal from employees; begin for v_emp in c_emp loop dbms_output.put_line(v_emp.last_name || ',' || v_emp.sal); end loop; end;
- 例 5：当所声明的游标带有参数时，通过游标 FOR 循环语句为游标传递参数。
declare cursor c_emp(dep_id number default 50) is select last_name,salary sal from employees where department_id = dep_id; begin for v_emp in c_emp loop dbms_output.put_line(v_emp.last_name || ',' || v_emp.sal); end loop; end;declare cursor c_emp(dep_id number default 50) is select last_name,salary sal from employees where department_id = dep_id; begin for v_emp in c_emp(80) loop dbms_output.put_line(v_emp.last_name || ',' || v_emp.sal); end loop; end;
- 例 6：PL/SQL 还允许在游标 FOR 循环语句中使用子查询来实现游标的功能。
begin for v_emp in(select last_name,salary from employees) loop dbms_output.put_line(v_emp.last_name || ',' || v_emp.salary); end loop; end;
- 处理隐式游标
显式游标主要是用于对查询语句的处理，尤其是在查询结果为多条记录的情况下；而对于非查询语句， 如修改、删除操作，则由 ORACLE 系统自动地为这些操作设置游标并创建其工作区，这些由系统隐含创建 的游标称为隐式游标，隐式游标的名字为 SQL，这是由 ORACLE 系统定义的。对于隐式游标的操作，如定义、 打开、取值及关闭操作，都由 ORACLE 系统自动地完成，无需用户进行处理。用户只能通过隐式游标的相 关属性，来完成相应的操作。在隐式游标的工作区中，所存放的数据是与用户自定义的显示游标无关的、 最新处理的一条 SQL 语句所包含的数据。
- 格式调用为： SQL%
- 隐式游标属性
SQL%FOUND 布尔型属性,当最近一次读记录时成功返回，则值为 TRUE；
SQL%NOTFOUND 布尔型属性,与%FOUND 相反；
SQL%ROWCOUNT 数字型属性, 返回已从游标中读取得记录数；
SQL%ISOPEN 布尔型属性, 取值总是 FALSE。SQL 命令执行完毕立即关闭隐式游标。- 例 7: 更新指定员工信息，如果该员工没有找到，则打印”查无此人”信息。
declare v_name employees.last_name%type; v_id employees.employee_id%type := &v_id; begin update employees set last_name = 'xx' where employee_id = v_id; if SQL%NOTFOUND then dbms_output.put_line('查无此人'); end if; end;
- 关于 NO_DATA_FOUND 和 %NOTFOUND 的区别
- SELECT … INTO 语句触发 NO_DATA_FOUND；
- 当一个显式游标的 WHERE 子句未找到时触发%NOTFOUND；
- 当 UPDATE 或 DELETE 语句的 WHERE 子句未找到时触发
SQL%NOTFOUND；在提取循环中要用 %NOTFOUND 或%FOUND 来确定循环的退出条件，不要用 NO_DATA_FOUND.
- 游标修改和删除操作
游标修改和删除操作是指在游标定位下，修改或删除表中指定的数据行。这时，要求游标查询语句中 必须使用 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 子句，修改或删除游标结果集合当前行对应的数据库表中的数据行。
- 例 8：从 EMPLOYEES 表中查询某部门的员工情况，将其工资最低定为 3000；
declare v_dep_id employees.department_id%type := &v_dep_id; cursor emp_cursor is select last_name,salary from employees where department_id = v_dep_id for update nowait; begin for emp_rec in emp_cursor loop if emp_rec.salary < 3000 then update employees set salary = 3000 where current of emp_cursor; end if; end loop; end;
