游标（Cursor）：用来查询数据库，获取记录集合（结果集）的指针，可以让开发者一次访问一行结果集，在每条结果集上作操作。
游标可分为：
l 静态游标：分为显式（explicit）游标和隐式（implicit）游标。
l REF游标：是一种引用类型，类似于指针。
1、静态游标
1.1显式游标
定义格式：
CURSOR 游标名 ( 参数 ) [返回值类型] IS
Select 语句
例子
|
set serveroutput on declare cursor emp_cur ( p_deptid in number) is 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); end loop; close emp_cur; 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 loop 语句
举例：
|
declare begin for my_dept_rec in ( select department_name, department_id from departments) loop dbms_output.put_line(my_dept_rec.department_id || ' : ' || my_dept_rec.department_name); end loop; end; / |
1.3游标常用属性：
%FOUND：变量最后从游标中获取记录的时候，在结果集中找到了记录。
%NOTFOUND：变量最后从游标中获取记录的时候，在结果集中没有找到记录。
%ROWCOUNT：当前时刻已经从游标中获取的记录数量。
%ISOPEN：是否打开。
|
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; Elsif emps%notfound then Exit; End if; End loop; If emps%isopen then Close emps; /* 关闭游标 */ End if; End; / |
显式和隐式游标的区别：
尽量使用隐式游标，避免编写附加的游标控制代码（声明，打开，获取，关闭），也不需要声明变量来保存从游标中获取的数据。
2、REF CURSOR游标
动态游标，在运行的时候才能确定游标使用的查询。可以分为：
l 强类型（限制）（Strong REF CURSOR），规定返回类型
l 弱类型（非限制）（Weak REF CURSOR），不规定返回类型，可以获取任何结果集。
定义格式：
TYPE ref_cursor_name IS REF CURSOR [RETURN return_type]
例如：
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(retu rn_cv, choice); IF choice = 1 THEN DBMS_OUTPUT.PUT_LINE('EMPLOYEES with empno less than 7800'); 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 type rc 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; / |
l rc根据逻辑动态打开；而游标c定义好了只有就无法修改了。
l ref cursor可以返回给客户端，cursor则不行。
l cursor可以是全局的global ，ref cursor则必须定义在过程或函数中。
l ref cursor可以在子程序间传递，cursor则不行。
l cursor中定义的静态sql比ref cursor效率高，所以ref cursor通常用在：向客户端返回结果集。