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(100);
    type t_d2tlog is record(
        activeid     number(30),
        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=130208;
    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;
/

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