动态游标

定义语法

--声明
$cursor_name$ sys_refcursor
--打开动态游标
open $cursor_name$ is 查询语句;
--关闭游标
close $cursor_name$;
--声明动态游标类型
type $type_name$ is ref cursor;
--声明一个动态游标变量
$v_cursor_name$ type_my_ref;

使用

动态游标可以获得不同的结果集，可以设置条件，返回不同的结果集,一般和过程一起使用

--创建过程list
create or replace procedure list(result_set in out sys_refcursor, which in number)
is   
begin
  --打开动态游标时在为它指定查询语句
  --1就是返回员工表，其他就返回部门表
  if which=1 then
    open result_set for select * from employee;
  else
    open result_set for select * from department;
  end if;
end;
/
--调用list过程，根据输入的数字输出某个表的全部信息
declare
   --声明一个动态游标类型
   type type_my_ref is ref cursor;
   --声明一个动态游标变量
   my_ref type_my_ref;
   emp employee%rowtype;
   dept department%rowtype;
   
   which number default &请输入;
begin
  --得到一个查询结果集
  list(my_ref, which);
 loop
   if which=1 then /* handle employee */
      fetch my_ref into emp;
      exit when my_ref%notfound;
      dbms_output.put_line(emp.empno||','||emp.ename||','||emp.job||','||emp.sal);
      
   else            /* handle department */
      fetch my_ref into dept;
      exit when my_ref%notfound;
      dbms_output.put_line(dept.deptno||','||dept.dname||','||dept.loc);
   end if;
 end loop;
 --close cursor
 close my_ref;
end;
/