ORACLE中的游标汇总

游标（Cursor ）

游标（ Cursor ）：用来查询数据库，获取记录集合（结果集）的指针，可以让开发者一次访问一行结果集，在每条结果集上作操作。
     游标可分为：
    <!--[if !supportLists]--> l         <!--[endif]--> 静态游标：分为显式（ explicit ）游标和隐式（ implicit ）游标。

<!--[if !supportLists]--> l         <!--[endif]--> REF 游标：是一种引用类型，类似于指针。----也称为动态游标

  1 、静态游标 1.1 显式游标 定义格式：     CURSOR 游标名 ( 参数 )  [返回值类型]  IS    Select 语句 ; 例子 open 游标; loop  fetch  游标  into 游标变量; exit   when 游标%notfound; end loop; close 游标;

cursor emp_cur ( p_deptid in number) is set serveroutput on declare select * from employees where department_id = p_deptid;   l_emp employees%rowtype; begin  dbms_output.put_line('Getting employees from department 30'); open emp_cur(30);  loop   fetch emp_cur into l_emp;   exit when emp_cur%notfound;   dbms_output.put_line('Employee id '|| l_emp.employee_id || ' is');   dbms_output.put_line(l_emp.first_name || ' ' || l_emp.last_name); emp_cur;  end loop;  close    dbms_output.put_line('Getting employees from department 90'); open emp_cur(90);  loop  fetch emp_cur into l_emp;   exit when emp_cur%notfound;   dbms_output.put_line('Employee id '|| l_emp.employee_id || ' is');   dbms_output.put_line(l_emp.first_name || ' ' || l_emp.last_name);  end loop;  close emp_cur; end; /

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  in loop 语句 for 游标变量 in 游标 loop   end loop;用于静态游标中，不能用于动态游标,且不需要显示的打开、关闭、取数据、测试数据的存在、定义数据的变量等等。 举例：

游标FOR循环，简化游标操作my_dept_rec 不需要声明 declare begin  for my_dept_rec in ( select department_name, department_id from epartments)  loop   dbms_output.put_line(my_dept_rec.department_id || ' : ' || my_dept_rec.department_name);  end loop; end; /

  1.3静态游标常用属性： 显式游标属性：  %FOUND：变量最后从游标中获取记录的时候，在结果集中找到了记录。 %NOTFOUND：变量最后从游标中获取记录的时候，在结果集中没有找到记录。 %ROWCOUNT：当前时刻已经从游标中获取的记录数量。 %ISOPEN：是否打开。   隐式游标属性:      SQL%FOUND SQL%NOTFOUND 

在执行任何DML语句前SQL%FOUND和SQL%NOTFOUND的值都是NULL,在执行DML语句后，SQL%FOUND的属性值将是： 

. TRUE :INSERT 

. TRUE :DELETE和UPDATE，至少有一行被DELETE或UPDATE. 

. TRUE :SELECT INTO至少返回一行 

当SQL%FOUND为TRUE时,SQL%NOTFOUND为FALSE.  

SQL%ROWCOUNT 

   在执行任何DML语句之前，SQL%ROWCOUNT的值都是NULL,对于SELECT             INTO语句，如果执行成功，SQL%ROWCOUNT的值为1,如果没有成功，SQL%ROWCOUNT的值为0，同时产生一个异常NO_DATA_FOUND.

SQL%ISOPEN 

 SQL%ISOPEN是一个布尔值，如果游标打开，则为TRUE, 如果游标关闭，则为FALSE.对于隐式游标而言SQL%ISOPEN总是FALSE，这是因为隐式游标在DML语句执行时打开，结束时就立即关闭。

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;   Else if emps%notfound then    Exit;    End if;  End loop;    If emps%isopen then   Close emps;   /*  关闭游标   */  End if; End; /

  显式和隐式游标的区别：

尽量使用隐式游标，避免编写附加的游标控制代码（声明，打开，获取，关闭），也不需要声明变量来保存从游标中获取的数据。

 
2 、 REF CURSOR 游标

动态游标，在运行的时候才能确定游标使用的查询。可以分为：

<!--[if !supportLists]--> l         <!--[endif]--> 强类型（限制）（ Strong REF CURSOR ），规定返回类型

<!--[if !supportLists]--> l         <!--[endif]--> 弱类型（非限制）（ Weak REF CURSOR ），不规定返回类型，可以获取任何结果集。

定义格式： TYPE ref_cursor_name IS REF CURSOR [RETURN return_type]     cursor   ref_cursor_name    例如： open cursor for  select ......from (多个open for 同时用时 ，不需要有关闭游标的语句) Declare    Type refcur_t is ref cursor;  Type emp_refcur_t is ref cursor return employee%rowtype; Begin  Null; End; /   强类型举例：

declare  -- 声明记录类型  type emp_job_rec is record(   employee_id number,   employee_name varchar2(50),   job_title varchar2(30)  );  -- 声明 REF CURSOR ，返回值为该记录类型  type emp_job_refcur_type  is  ref  cursor  return emp_job_rec;  -- 定义 REF CURSOR 游标的变量  emp_refcur  emp_job_refcur_type;  emp_job  emp_job_rec; begin  /*  打开动态游标 */   open emp_refcur for   select e.employee_id, e.first_name || ' ' ||e.last_name "employee_name",     j.job_title   from employees e, jobs j   where e.job_id = j.job_id and rownum < 11 order by 1;  /*  取游标当前行   */  fetch emp_refcur into emp_job;  while emp_refcur%found loop   dbms_output.put_line(emp_job.employee_name || '''s job is ');   dbms_output.put_line(emp_job.job_title);   fetch emp_refcur into emp_job;  end loop; end; /

指定了retrun 类型，CURSOR变量的类型必须和return 类型一致。 例子：

CREATE OR REPLACE PACKAGE emp_data AS TYPE empcurtyp IS REF CURSOR RETURN emp%rowtype; -- 定义 Strong REF CURSOR PROCEDURE open_emp_cv(emp_cv IN OUT empcurtyp, choice INT); -- 根据不同的 choice 选择不同的 CURSOR PROCEDURE retrieve_data(choice INT); -- 通过调用 procedure open_emp_cv ，返回指定的结果集。 END emp_data;

 

CREATE OR REPLACE PACKAGE BODY emp_data AS   PROCEDURE open_emp_cv(emp_cv IN OUT empcurtyp, choice INT) IS --emp_cv 作为传入 / 传出的 CURSOR PARAMETER BEGIN IF choice = 1 THEN OPEN emp_cv FOR  SELECT * FROM emp WHERE empno < 7800; ELSIF choice = 2 THEN OPEN emp_cv FOR SELECT * FROM emp WHERE SAL < 1000; ELSIF choice = 3 THEN OPEN emp_cv  FOR SELECT * FROM emp WHERE ename like 'J%'; END IF; END;   PROCEDURE retrieve_data(choice INT) IS return_cv empcurtyp; -- 定义传入 open_emp_cv 的 CURSOR 变量 return_row emp%ROWTYPE; invalid_choice EXCEPTION; BEGIN --调用 procedure OPEN_EMP_CV open_emp_cv(return_cv, choice);   IF choice = 1 THEN DBMS_OUTPUT.PUT_LINE('EMPLOYEES with empno less t han7800'); ELSIF choice = 2 THEN DBMS_OUTPUT.PUT_LINE('EMPLOYEES with salary less than 1000'); ELSIF choice = 3 THEN DBMS_OUTPUT.PUT_LINE('EMPLOYEES with name starts with ''J'''); ELSE RAISE invalid_choice; END IF;   LOOP FETCH return_cv   INTO return_row; EXIT WHEN return_cv%NOTFOUND; DBMS_OUTPUT.PUT_LINE(return_row.empno || '--' || return_row.ename || '--' || return_row.sal); END LOOP;   EXCEPTION WHEN invalid_choice THEN DBMS_OUTPUT.PUT_LINE('The CHOICE should be in one of (1,2,3)!'); WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE('Errors in procedure RETRIEVE_DATA!'); END;   END emp_data;

  执行： SQL> EXEC emp_data.retrieve_data(1); SQL> EXEC emp_data.retrieve_data(2); SQL> EXEC emp_data.retrieve_data(3); SQL> EXEC emp_data.retrieve_data(34);   使用 Weak REF CURSOR 例子

create or replace procedure open_cv(choice IN INT, return_cv OUT SYS_REFCURSOR) is -- 参数 return_cv 为 weak REF CURSOR, 利用 SYS_CURSOR 来定义 /* 使用 SYS_REFCURSOR 可以使变量 any_cv 跟任何 weak REF CURSOR 类型匹配。   */ begin if choice = 1 then open return_cv for 'select * from emp'; elsif choice = 2 then open return_cv for 'select * from dept'; end if; end open_cv;

 

CREATE or replace procedure retrieve_data(choice IN INT) is emp_rec emp%rowtype; dept_rec dept%rowtype; return_cv SYS_REFCURSOR; invalid_choice exception;   BEGIN if choice=1 then dbms_output.put_line('employee information'); open_cv(1,return_cv); -- 调用 procedure open_cv; loop fetch return_cv into emp_rec; exit when return_cv%notfound; dbms_output.put_line(emp_rec.empno||'-'||emp_rec.ename||'-'||emp_rec.sal); end loop; elsif choice=2 then dbms_output.put_line('department information'); open_cv(2,return_cv);   loop fetch return_cv into dept_rec; exit when return_cv%notfound; dbms_output.put_line(dept_rec.deptno||'-'||dept_rec.dname||'-'||dept_rec.loc); end loop; else raise invalid_choice; end if;   exception when invalid_choice then dbms_output.put_line('The CHOICE should be one of 1 and 2!'); when others then dbms_output.put_line('Errors in procedure retrieve_data'); END retrieve_data;

  执行： SQL> exec retrieve_data(1); SQL> exec retrieve_data(2);     用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 typerc 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; /

<!--[if !supportLists]--> l         <!--[endif]--> rc根据逻辑动态打开；而游标c定义好了只有就无法修改了。

<!--[if !supportLists]--> l         <!--[endif]--> ref cursor可以返回给客户端，cursor则不行。

<!--[if !supportLists]--> l         <!--[endif]--> cursor可以是全局的 global ， ref cursor则必须定义在过程或函数中 。

<!--[if !supportLists]--> l         <!--[endif]--> ref cursor可以在子程序间传递 ， cursor则不行。

<!--[if !supportLists]--> l         <!--[endif]--> cursor中定义的静态sql比ref cursor 效率高，所以 ref cursor 通常用在：向客户端返回结果集。