PLSQL 循环游标 cursor loop fetch into【转载】

PLSQL 循环游标 cursor 的一点心得体会
编辑 文章分类:数据库
set serveroutput on---------------打印输出信息，默认是FALSE

declare --------------------申明变量，分号结束

v_pages number;
v_numberPerPage number;
v_totalPages number;
v_cur        sys_refcursor;

diy_id  number;
diy_name varchar2(50);
diy_date date;
cursor c_list is select * from  table_User  i where i.id=4;

begin
----------------给变量初始化值
v_pages:=1;
v_numberPerPage:=20;
--调用的sp，参数分别是pages number 要查询的页数,numberPerPage number 每页显示几条  ,tatalPages number 输出参数，返回结果集总页数 , resultCursor cursor 结果集游标，返回查询结果
My_Test_SP(v_pages,v_numberPerPage,v_totalPages,v_cur);



------------第一种循环游标方式，最简单高效
for c in c_list loop
dbms_output.put_line('用户的id='||c.id); -------------输出结果集
end loop;



----------第二种循环游标方式

open v_cur ------打开游标，但是如果有这代码会提示错误，所以我运行的时候是注释这代码的，很奇怪，不知道什么原因
loop
fetch v_cur into diy_id,diy_name,diy_date;-----------这三个参数是My_Test_SP输出的游标参数返回的值，刚好3个字段，如果这里少些任何一个字段，plsql会提示错误，不能少
exit when v_cur%notfound; ----------定义跳出循环的条件，当每页记录则跳出
dbms_output.put_line('报表id='||diy_id||',报表名='||diy_name);--------输出结果
end loop;



close v_cur;---------关闭游标

dbms_output.put_line(v_totalPages);

end;

 --fetch 的例子

    SET SERVERIUTPUT ON  
    DECLARE  
    v_ename EMP.ENAME%TYPE;  
    v_salary EMP.SAL%TYPE;  
    CURSOR c_emp IS SELECT ename,sal FROM emp;  
    BEGIN  
    OPEN c_emp;  
    FETCH c_emp INTO v_ename,v_salary;  
    DBMS_OUTPUT.PUT_LINE('Salary of Employee'|| v_ename  
    ||'is'|| v_salary);  
    FETCH c_emp INTO v_ename,v_salary;  
    DBMS_OUTPUT.PUT_LINE('Salary of Employee'|| v_ename  
    ||'is'|| v_salary);  
    FETCH c_emp INTO v_ename,v_salary;  
    DBMS_OUTPUT.PUT_LINE('Salary of Employee'|| v_ename  
    ||'is'|| v_salary);  
    CLOSE c_emp;  
    END ;