游标（Cursor）：用来查询数据库，获取记录集合（结果集）的指针，可以让开发者一次访问一行结果集，在每条结果集上作操作。
游标可分为：
1. 静态游标：分为显式（explicit）游标和隐式（implicit）游标。
2. REF游标：是一种引用类型，类似于指针。
1、静态游标
1.1显式游标
定义格式：
CURSOR 游标名 ( 参数 ) IS
Select 语句 FOR UPDATE [OF [schema.]table.column[,[schema.]table.column]..
[nowait]
例子1 ：无参数，打开关闭游标
set serveroutput on size 10000000 ;
create or replace procedure TEST is
cursor c1 is
select tname from tab;
pname varchar2(32);
begin
open c1;
loop
fetch c1
into pname;
exit when c1%notfound;
dbms_output.put_line(pname);
end loop;
close c1;
end TEST
exec test;
例子2 ：参数使用，参数使用方法和存储过程一样
create or replace procedure TEST is
cursor c1(pname in varchar2) is
select tname from tab where tname like pname;
pname varchar2(32);
begin
open c1(‘T%‘);
loop
fetch c1
into pname;
exit when c1%notfound;
dbms_output.put_line(pname);
end loop;
close c1;
end TEST;
1.2隐式游标
不用明确建立游标变量，分两种：
1．在PL/SQL中使用DML语言，使用ORACLE提供的名为“SQL”的隐示游标。
举例：
|
declare
begin
update departments set department_name = department_name;
--where 1=2;
dbms_output.put_line(‘update ‘ || sql%rowcount || ‘ records‘);
end;
/
|
2．CURSOR FOR LOOP，用于for loop 语句
举例：
例子1：无参数，使用循环，无须打开关闭，本人这种方式
create or replace procedure TEST is
cursor c1 is
select tname from tab;
begin
for rr in c1 loop
dbms_output.put_line(rr.tname);
end loop;
end TEST;
例子1：有参数，使用循环，无须打开关闭，本人这种方式
create or replace procedure TEST is
cursor c1(pname in varchar2) is
select tname from tab where tname like pname;
begin
for rr in c1(‘T%‘) loop
dbms_output.put_line(rr.tname);
end loop;
end TEST;
1.3游标常用属性：
%FOUND：变量最后从游标中获取记录的时候，在结果集中找到了记录。
%NOTFOUND：变量最后从游标中获取记录的时候，在结果集中没有找到记录。
%ROWCOUNT：当前时刻已经从游标中获取的记录数量。
%ISOPEN：是否打开。
|
Declare /* /* 定义静态游标 */ */
Cursor emps is
Select * from employees where rownum < 6 order by 1;
Emp employees%rowtype;
Row number := 1;
Begin
Open emps; /* ´打开静态游标 */
Fetch emps
into emp; /* 读取游标当前行 */
Loop
If emps%found then
Dbms_output.put_line(‘Looping over record ‘ || row || ‘ of ‘ ||
emps%rowcount);
Fetch emps
into emp;
Row := row + 1;
Elsif emps%notfound then
Exit;
End if;
End loop;
If emps%isopen then
Close emps; /* 关闭游标 */
End if;
End;
/
|
1.4 游标的更新和删除
在PL/SQL中依然可以使用UPDATE和DELETE语句更新或删除数据行。显式游标只有在需要获得多行数据的情况下使用。PL/SQL提供了仅仅使用游标就可以执行删除或更新记录的方法。
UPDATE或DELETE语句中的WHERE CURRENT OF子串专门处理要执行UPDATE或DELETE操作的表中取出的最近的数据。要使用这个方法，在声明游标时必须使用FOR UPDATE子串，当对话使用FOR UPDATE子串打开一个游标时，所有返回集中的数据行都将处于行级（ROW-LEVEL）独占式锁定，其他对象只能查询这些数据行，不能进行UPDATE、DELETE或SELECT...FOR UPDATE操作。
在多表查询中，使用OF子句来锁定特定的表,如果忽略了OF子句，那么所有表中选择的数据行都将被锁定。如果这些数据行已经被其他会话锁定，那么正常情况下ORACLE将等待，直到数据行解锁。
在UPDATE和DELETE中使用WHERE CURRENT OF子串的语法如下：
WHERE{CURRENT OF cursor_name|search_condition}
例：
create or replace procedure pc_SetVersionValid(PFlowsID in integer) is
Cursor c1 is
select *
from wf_flows
where flowname in
(select flowname from wf_flows where flowsid = PFlowsID)
for update;
r c1%rowtype;
v integer;
begin
open c1;
fetch c1
into r;
while c1%found loop
if r.flowsid = PFlowsID then
v := 1;
else
v := 0;
end if;
UPDATE wf_flows SET isValid = v WHERE CURRENT OF c1;
fetch c1
into r;
end loop;
close c1;
commit;
end;
显式和隐式游标的区别：
尽量使用隐式游标，避免编写附加的游标控制代码（声明，打开，获取，关闭），也不需要声明变量来保存从游标中获取的数据。
2、REF CURSOR游标
动态游标，在运行的时候才能确定游标使用的查询。可以分为：
create or replace procedure TEST is
sqlstr varchar2(500);
type RefCur is ref cursor;
c1 refcur;
begin
sqlstr := ‘select * from tab‘;
open c1 for sqlstr;
close c1;
end;
用REF CURSOR实现BULK功能
1. 可以加速INSERT, UPDATE, DELETE语句的执行，也就是用FORALL语句来替代循环语句。
2. 加速SELECT，用BULK COLLECT INTO 来替代INTO。
SQL> create table tab2 as select empno ID, ename NAME, sal SALARY from emp where 1=2;
|
create or replace procedure REF_BULK is
/* 定义复杂类型 */
type empcurtyp is ref cursor;
type idlist is table of emp.empno%type;
type namelist is table of emp.ename%type;
type sallist is table of emp.sal%type;
/* 定义变量 */
emp_cv empcurtyp;
ids idlist;
names namelist;
sals sallist;
row_cnt number;
begin
open emp_cv for select empno, ename, sal from emp;
fetch emp_cv BULK COLLECT INTO ids, names, sals;
--将字段成批放入变量中，此时变量是一个集合
close emp_cv;
for i in ids.first .. ids.last loop
dbms_output.put_line(‘ || ids(i) || ‘ || names(i) ||‘ salary=‘ || sals(i));
end loop;
FORALL i IN ids.first .. ids.last
insert into tab2 values (ids(i), names(i), sals(i));
commit;
select count(*) into row_cnt from tab2;
dbms_output.put_line(‘-----------------------------------‘);
dbms_output.put_line(‘The row number of tab2 is ‘ || row_cnt);
end REF_BULK;
|
3、cursor 和 ref cursor的区别
从技术底层看，两者是相同的。普通plsql cursor在定义时是“静态”的。而
Ref cursors可以动态打开。
例如下面例子：
|
Declare
type rc is ref cursor;
cursor c is select * from dual;
l_cursor rc;
begin
if ( to_char(sysdate,‘dd‘) = 30 ) then
open l_cursor for ‘select * from emp‘;
elsif ( to_char(sysdate,‘dd‘) = 29 ) then
open l_cursor for select * from dept;
else
open l_cursor for select * from dual;
end if;
open c;
end;
/
|
rc根据逻辑动态打开；而游标c定义好了只有就无法修改了。
ref cursor可以返回给客户端，cursor则不行。
cursor可以是全局的global ，ref cursor则必须定义在过程或函数中。
ref cursor可以在子程序间传递，cursor则不行。
cursor中定义的静态sql比ref cursor效率高，所以ref cursor通常用在：向客户端返回结果集。
