Oracle Cursor

1、概念

游标：从字面来理解就是游动的光标。用数据库语言来描述，游标是映射在结果集中一行数据上的位置实体，有了游标，用户就可以访问结果集中的任意一行数据了。将游标放置到某行后，即可对该行数据进行操作，最常见的操作是提取当前行数据。

2、分类

2.1、静态游标：显式游标、隐式游标

2.2、动态游标：强类型（限制）、弱类型（非限制）

3、属性

3.1、%ISOPEN　　　　判断游标是否被打开，若打开，则%ISOPEN等于TRUE；否则等于FALSE。

3.2、%FOUND　　　　判断游标所在行是否有效。若有效，则%FOUND等于TRUE；否则等于FALSE。

3.3、%NOTFOUND 　 与%FOUND相似，功能相反。

3.4、%ROWCOUNT　 返回到当前位置为止，游标所读取的记录行数。

4、详细说明

4.1、显式游标：

Cursor 游标名(参数) [返回值类型] Is Select语句

OPEN 游标名(参数)

FETCH 游标名(参数) INTO 变量

CLOSE 游标名(参数)

4.2、隐式游标：

select **** into **** from **** where ****

for var_name in (select ****)

loop

end loop

for var_name in (游标名(参数))

loop

end loop

4.3、动态游标

动态游标，在运行的时候才能确定游标使用的查询。分类：
1．强类型（限制）REF CURSOR，规定返回类型
2．弱类型（非限制）REF CURSOR，不规定返回类型，可以获取任何结果集。

5、举例：

5.1、静态显式游标

 set serveroutput on;
 declare
     r_d2tlog d2t_Log%rowtype;
     cursor cs_d2tlog is select * from d2t_log;
 begin
     open cs_d2tlog;
     loop
         fetch cs_d2tlog into r_d2tlog;
         exit when cs_d2tlog%notfound;
         dbms_output.put_line('activeid='||r_d2tlog.activeid||';is already read counts='||cs_d2tlog%rowcount);
     end loop;
     close cs_d2tlog;
 end;
 /

 5.2、动态弱类型游标

 declare
     r_d2tlog d2t_Log%rowtype;
     type d2tlog is ref cursor;
     t_d2tlog d2tlog;
 begin
     open t_d2tlog for select * from d2t_log;
     loop
         fetch t_d2tlog into r_d2tlog;
         exit when t_d2tlog%notfound;
         dbms_output.put_line('activeid='||r_d2tlog.activeid||';is already read counts='||t_d2tlog%rowcount);
     end loop;
     close t_d2tlog;
 end;
 /

5.3、动态强类型游标

 declare
     l_sqlstr varchar2();
     type t_d2tlog is record(
         activeid     number(),
         writedate    date
     );
     type c_d2tlog is ref cursor return t_d2tlog;
     st_d2tlog t_d2tlog;
     sc_d2tlog c_d2tlog;
 begin
     open sc_d2tlog for select activeid,writedate from d2t_log;
     loop
         fetch sc_d2tlog into st_d2tlog;
         exit when sc_d2tlog%notfound;
         dbms_output.put_line('activeid='||st_d2tlog.activeid||';is already read counts='||sc_d2tlog%rowcount);
     end loop;
     close sc_d2tlog;

     open sc_d2tlog for select activeid,writedate from d2t_log where activeid=;
     loop
         fetch sc_d2tlog into st_d2tlog;
         exit when sc_d2tlog%notfound;
         dbms_output.put_line('activeid='||st_d2tlog.activeid||';is already read counts='||sc_d2tlog%rowcount);
     end loop;
     close sc_d2tlog;

     /*
     l_sqlstr:='select activeid,writedate from d2t_log where activeid=124531';
     open sc_d2tlog for l_sqlstr;
     loop
         fetch sc_d2tlog into st_d2tlog;
         exit when sc_d2tlog%notfound;
         dbms_output.put_line('activeid='||st_d2tlog.activeid||';is already read counts='||sc_d2tlog%rowcount);
     end loop;
     close sc_d2tlog;
     */
 end;
 /

5.4、动态强类型游标

 declare
     r_d2tlog d2t_log%rowtype;
     type cursor1 is ref cursor;
     type cursor2 is ref cursor return d2t_log%rowtype;

     cs_cursor2 cursor2;
 begin
     dbms_output.put_line('dynamic cursor define ok');

     open cs_cursor2 for select * from d2t_log;
     loop
         fetch cs_cursor2 into r_d2tlog;
         exit when cs_cursor2%notfound;
         dbms_output.put_line('activeid='||r_d2tlog.activeid||';is already read counts='||cs_cursor2%rowcount);
     end loop;
     close cs_cursor2;
 end;
 /

5.5、游标定义

 declare
     r_d2tlog d2t_log%rowtype;
     type cursor1 is ref cursor;
     type cursor2 is ref cursor return r_d2tlog;
 begin
     dbms_output.put_line('dynamic cursor define error');
 end;
 /

程序员的基础教程：菜鸟程序员