标签：into 弱类型 其他 exit exp not 开关 tput tab
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;
标签：into 弱类型 其他 exit exp not 开关 tput tab
原文地址：http://www.cnblogs.com/CandiceW/p/6698361.html
