转Oracle Cursor用法总结

cursor分为三种，一是直接声明为cursor变量，二是首先声明类型再声明变量，三是声明为sys_refcursor。
（1）直接声明
declare
 cursor emp_cur
 is select *
 from emp;
 emp_record emp%rowtype;
begin 
 open emp_cur;
 loop 
  fetch emp_cur
 into emp_record;
  exit when
 emp_cur%notfound;
  dbms_output.put_line('name is:' ||
emp_record.ename ||' and sal is:' || emp_record.sal);
 end loop;
 close emp_cur;
end;
/
(2)ref cursor:分为强类型（有return子句的）和弱类型，强类型在使用时，其返回类型必须和return中的类型一致，否则报错，而弱类型可以随意打开任何类型。
例如：
强类型
declare
 type emp_cur_type
 is ref cursor return emp%rowtype;
 emp_cur emp_cur_type;
 emp_record emp%rowtype;
begin
 open emp_cur
 for select *
 from  emp;
 loop
  fetch emp_cur
 into emp_record;
  exit when emp_cur%notfound;
  dbms_output.put_line('name is:' ||  emp_record.ename
|| ' and sal is:' || emp_record.sal);
 end loop;
 close emp_cur;
 --open emp_cur for select * from dept; 错误的，类型不一致。
 --close emp_cur;
end;
/
弱类型：
declare
 type emp_cur_type is ref cursor;
 emp_cur emp_cur_type;
 emp_record emp%rowtype;
 dept_record dept%rowtype;
begin
 open emp_cur for select *
 from emp;
 loop
  fetch emp_cur into emp_record;
  exit when emp_cur%notfound;
  dbms_output.put_line('name is:' ||
emp_record.ename || ' and sal is:' || emp_record.sal);
 end loop;
 close emp_cur;
 
 open emp_cur
 for select *
 from dept; --可再次打开，不同类型的
 loop
  fetch emp_cur
 into dept_record;
  exit when emp_cur%notfound;
  dbms_output.put_line('dname is:' ||
dept_record.dname);
 end loop;
 close emp_cur;
end;
/
（3）sys_refcursor:可多次打开，直接声明此类型的变量，不用先定义类型再声明变量。
declare
 emp_cur sys_refcursor;
 emp_record emp%rowtype;
 dept_record dept%rowtype;
begin
 open emp_cur for select *
 from emp;
 loop
  fetch emp_cur
 into emp_record;
  exit when emp_cur%notfound;
  dbms_output.put_line('name is:' ||
emp_record.ename || ' and sal is:' || emp_record.sal);
 end loop;
 close emp_cur;
 
 open emp_cur
 for select *  from dept; --可再次打开，不同类型的
 loop
  fetch emp_cur
 into dept_record;
  exit when emp_cur%notfound;
  dbms_output.put_line('dname is:' ||
dept_record.dname);
 end loop;
 close emp_cur;
end;
/
其他总结：
1、游标可以用for循环，但只限于cursor
cur_var is ……这种类型，用在其他的里面都是错误的；for本身就包含了打开、关闭游标，此时再显示打开关闭都是错误的。
declare
cursor emp_cur is select *
 from emp;
begin
--open emp_cur; 是错误的，因为for本身就包含了打开、关闭
for emp_record in emp_cur
loop
   dbms_output.put_line('name is:' ||  emp_record.ename
|| ' and sal is:' || emp_record.sal);
end loop;
--close emp_cur; 是错误的，for本身包含了关闭。
end;
 
--是不是表示：ref
cursor变量不支持for打开并循环？
declare
type emp_cur_type  is ref cursor return emp%rowtype;
emp_cur emp_cur_type;
begin
open emp_cur  for select *
 from emp;--怎么都是错，for已经打开了。
for emp_record  in emp_cur -- 不管前面有没有打开语句，for都不承认这种类型
loop
   dbms_output.put_line('name is:' ||  emp_record.ename
|| ' and sal is:' || emp_record.sal);
end loop;
end;
2、游标可以带参数
DECLARE
  CURSOR c1
(job VARCHAR2, max_wage NUMBER) IS
    SELECT * FROM employees
 WHERE job_id = job  AND salary
> max_wage;
BEGIN
  FOR person
 IN  c1('CLERK', 3000)
  LOOP
     DBMS_OUTPUT.PUT_LINE('Name = ' ||
person.last_name || ', salary = ' ||
                         person.salary || ', Job Id = ' ||
person.job_id );
  END LOOP;
END;
3、bulk
collect批量赋值
declare
 type emp_cur_type
 is ref cursor;
 emp_cur emp_cur_type;
 type name_list is table of emp.ename%type;
 type sal_list
 is table of emp.sal%type;
 names name_list;
 sals sal_list;
begin
 open emp_cur for select ename,sal from emp;
 fetch emp_cur bulk collect into names,sals;
 close emp_cur;
 
 for i
 in names.first .. names.last
 loop
  dbms_output.put_line('name is:'||names(i)||'
and sal is:'||sals(i));
 end loop;
end;
/
4、cursor变量的位置
CREATE PACKAGE emp_data AS
  TYPE EmpCurTyp IS REF CURSOR RETURN employees%ROWTYPE;
-- emp_cv EmpCurTyp; -- not allowed
  PROCEDURE open_emp_cv;
END  emp_data;
/
CREATE PACKAGE BODY emp_data
 AS
-- emp_cv EmpCurTyp; -- not allowed
PROCEDURE open_emp_cv  IS
  emp_cv EmpCurTyp; -- this is legal
  BEGIN
    OPEN emp_cv
 FOR SELECT *
 FROM  employees;
  END 
open_emp_cv;
END  emp_data;
/
5、嵌套cursor
打开父cursor时，子cursor隐含打开；当
语法格式:cursor(subquery)
A   nested  cursor  is 
implicitly  opened when  the 
containing  row  is 
fetched from  the  parent 
cursor.
The  nested  cursor  is 
closed  only  when:
The  nested  cursor  is 
explicitly  closed by  the  user
The  parent  cursor  is 
reexecuted
The  parent  cursor  is 
closed
The  parent  cursor  is 
canceled
示例；
declare
 type emp_cur_type
 is ref cursor ;
 type dept_cur_type is ref cursor ;
 v_ename emp.ename%type;
 v_dname dept.dname%type;
 emp_cur emp_cur_type;
 dept_cur dept_cur_type;
begin
 open dept_cur
 for
 select d.dname,
  cursor(select 
e.ename  from  emp  e  where e.deptno=d.deptno
)emps
 from dept
d;
 loop
  fetch dept_cur into v_dname,emp_cur;
  exit when dept_cur%notfound;
  dbms_output.put_line('dname is : '||v_dname);
  loop
   fetch emp_cur into 
v_ename;
   exit when emp_cur%notfound;
   dbms_output.put_line('--ename is : '||v_ename);
  end  loop;
 end  loop;
 close 
dept_cur;
end;

原文地址：http://blog.itpub.net/7607759/viewspace-710233