oracle--游标--bai

--复制表
create table emp as(select * from scott.emp);
select * from emp;
--(1) 最简单的游标
declare --声明并初始化游标
cursor v_cur is
select empno,ename from emp order by empno;
v_empno emp.empno%type;
v_ename emp.ename%type;
begin
if(not v_cur%isopen) then  --打开游标
open v_cur;
end if;
loop  --提取记录
fetch v_cur into v_empno,v_ename;
if(v_cur%notfound) then --到达末尾，则退出循环
exit;
end if;
dbms_output.put_line('第'||v_cur%rowcount||'条记录:'||v_empno||','||v_ename);
end loop;
close v_cur; --关闭游标
end;
--(2) 带参数的游标
  --查找指定部门的所有员工
cursor v_cur(v_deptno number) is
select empno,ename from scott.emp where deptno = v_deptno order by empno ;
v_empno scott.emp.empno%type;
v_ename scott.emp.ename%type;
v_dno scott.emp.deptno%type;
begin
v_dno:='&请输入部门编号：';
if(not v_cur%isopen) then
open v_cur(v_dno);
end if;
dbms_output.put_line('部门号'||v_dno||'的员工如下:');
loop
fetch v_cur into v_empno,v_ename;
if(v_cur%notfound) then  --到达末尾，则退出循环
exit ;
end if;
dbms_output.put_line('第'||v_cur%rowcount||'条记录:'||v_empno||','||v_ename);
end loop;
 --关闭游标
  close v_cur;
  exception
  when others then
  dbms_output.put_line('提取出错');
end;
 
--(3) 可写游标。让每每个员工工资增加1000元
declare
  --声明并初始化游标
  cursor v_cur is
  select 1 from scott.emp order by empno
  for update of sal nowait ;
  --v_sal scott.emp.sal%type;
  i number;
begin
  --打开游标
  if(not v_cur%isopen) then
   open v_cur;
   end if;
  --提取记录
  loop
    fetch v_cur into i;
     if(v_cur%notfound) then  --到达末尾，则退出循环
      exit ;
     end if;
     --update scott.emp set sal = sal+10000 where empno = v_empno;
     update scott.emp set sal = sal+10000 where current of v_cur;
  end loop;
    dbms_output.put_line('成功修改了'||v_cur%rowcount||'人的工资');
  --关闭游标
  close v_cur;
end;
 
--(4)  简化方式1
declare
  --声明并初始化游标
  cursor v_cur is
  select empno,ename from scott.emp order by empno;
begin
  --提取记录
  for rec in v_cur loop
    dbms_output.put_line('第'||v_cur%rowcount||'条记录:'||rec.empno
    ||','||rec.ename);
  end loop;  
 
end;
 
--(5)  简化方式2
declare
  --声明并初始化游标
begin
  --提取记录
  for rec in (select empno,ename from scott.emp order by empno)
  loop
    dbms_output.put_line(rec.empno
    ||','||rec.ename);
  end loop;  
 
end;
 
--(6) 返回游标的函数
 --返回周三入职的员工
  select * from scott.emp where to_char(hiredate,'day')='星期五';
 
create or replace function get_emps_hired_oneday
 (
    v_day varchar2
 )return sys_refcursor
 as
  v_cur sys_refcursor;--声明1个局部变量游标，用于返回
 begin
   --打开指定结果集的游标.
   open v_cur for
     select ename,hiredate from scott.emp
     where to_char(hiredate,'day')=v_day;
   return v_cur; --将该记录集的游标返回
 end;
 
 --调用函数，浏览全部的记录。
 
 declare
  v_cur sys_refcursor;
  v_ename varchar2(20);
  v_hiredate date;
 begin
 
  --调用别人写好函数。
  v_cur:= get_emps_hired_oneday('星期五');
 
    --提取记录
  loop
    fetch v_cur into v_ename,v_hiredate;
     if(v_cur%notfound) then  --到达末尾，则退出循环
      exit ;
     end if;
    dbms_output.put_line('第'||v_cur%rowcount||'条记录:'||v_ename||','
    ||to_char(v_hiredate,'yyyy-mm-dd day'));
  end loop;
  --关闭游标
  close v_cur;
 
 end;