Oracle REF CURSOR-2-优快云博客

本文深入探讨了Oracle中REF CURSOR的使用方法，包括声明、返回不同类型、将游标变量作为参数传递等高级技巧，提供了丰富的示例代码，帮助读者理解和掌握REF CURSOR在实际编程中的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

游标变量返回％ROWTYPE

-------------------------------------------------- ---------


DECLARE
TYPE TmpCurTyp IS REF CURSOR RETURN emp%ROWTYPE;
tmp_cv TmpCurTyp;TYPE EmpCurTyp IS REF CURSOR RETURN tmp_cv%ROWTYPE;
emp_cv EmpCurTyp;
BEGIN
NULL;
END;

游标变量返回％TYPE

-------------------------------------------------- --


DECLARE
dept_rec dept%ROWTYPE;
TYPE DeptCurTyp IS REF CURSOR RETURN dept_rec%TYPE;
dept_cv DeptCurTyp;
BEGIN
NULL;
END;

游标变量返回记录类型

-------------------------------------------------- ---------


DECLARE
TYPE EmpRecTyp IS RECORD (
employee_id NUMBER,
last_name VARCHAR2(30),
salary NUMBER(7,2));
TYPE EmpCurTyp IS REF CURSOR RETURN EmpRecTyp;
emp_cv EmpCurTyp;
BEGIN
NULL;
END;

将游标变量作为参数传递

-------------------------------------------------- ------------


DECLARE
TYPE EmpCurTyp IS REF CURSOR RETURN emp%ROWTYPE;
ct EmpCurTyp;
PROCEDURE process_emp_cv (emp_cv IN EmpCurTyp) IS
person emp%ROWTYPE;
BEGIN
dbms_output.put_line('-----');
dbms_output.put_line('Here are the names from the result set:');
LOOP
FETCH emp_cv INTO person;
EXIT WHEN emp_cv%NOTFOUND;
dbms_output.put_line('Name = ' || person.ename ||' ' || person.job);
END LOOP;
END;
BEGIN
OPEN ct FOR SELECT * FROM emp WHERE ROWNUM < 11;
process_emp_cv(ct);
CLOSE ct;
OPEN ct FOR SELECT * FROM emp WHERE ename LIKE 'A%';
process_emp_cv(ct);
CLOSE ct;
END;

另一个示例代码

================


DECLARE
TYPE EmpCurTyp IS REF CURSOR RETURN emp%ROWTYPE;
emp_cv EmpCurTyp;
rr emp%rowtype;
BEGIN
IF NOT emp_cv%ISOPEN THEN
OPEN emp_cv FOR SELECT * FROM emp;
END IF;
loop
fetch emp_cv into rr;
dbms_output.put_line(rr.ename||' '||rr.job);
exit when emp_cv%notfound;
end loop;
CLOSE emp_cv;
END;

显示从游标变量到记录中的示例程序

================================================== =====


DECLARE
TYPE EmpCurTyp IS REF CURSOR RETURN emp%ROWTYPE;
emp_cv EmpCurTyp;
emp_rec emp%ROWTYPE;
BEGIN
OPEN emp_cv FOR SELECT * FROM emp WHERE sal < 3000;
LOOp
FETCH emp_cv INTO emp_rec;
dbms_output.put_line('Name = ' || emp_rec.ename || ' ' ||emp_rec.job);
EXIT WHEN emp_cv%NOTFOUND;
END LOOP;
CLOSE emp_cv;
END;

还要检查Oracle REF CURSOR-3

From: https://bytes.com/topic/oracle/insights/743241-oracle-ref-cursor-2-a