oracle 经典习题 -游标

oralce 经典习题系列

oracle 游标（cursor）

The problem

1 游标的含义及分类？
2 使用游标的基本操作步骤都有哪些？
3 打开pet表，使用游标查看pet表的记录

The answer

以pet表为例

name	owner	Species	sex	birth	death
fluffy	Horold	cat	f	2003-10-12	2010-08-12
Claws	Gwen	cat	m	2004-08-10	null
Buffy	null	dog	f	2009-08-11	null
Fang	Benny	dog	m	2000-05-15	null
Bowser	Diane	dog	m	2003-04-16	2009-11-12
Chirpy	null	bird	f	2008-05-19	null

---

代码实现：

--1  游标的含义及分类？如同指针指向一个结果集的头部，通过它可以操作行数据。
---Oracle游标可以分为显式游标和隐式游标两种之分。
--2  使用游标的基本操作步骤都有哪些？
/*1 声明游标
declare cursor cursor_name(游标名)
is select＿statement(查询语句);
2 打开游标，
open cursor_name;
3操作数据 
fetch cursor_name into record变量
4关闭游标
close cursor_name;
*/
--3  打开pet表，使用游标查看pet表中specis ='dog'记录
select * from pet;

set SERVEROUTPUT ON;
declare
--声明游标
  cursor cur_pet is select * from pet where species ='dog';
  r_pet pet%rowtype;
begin
--打开游标
  open cur_pet;
  loop
--取出数据
    fetch cur_pet into r_pet;
    dbms_output.put_line(r_pet.name||'  '||r_pet.owner||'  '||r_pet.sex||' ');
  EXIT WHEN  cur_pet%NOTFOUND;
  end loop; 
--关闭游标
  close cur_pet;
end;
/*系统游标 sysrefcursor
1.声明 ：delare cur_name sysrefcursor
2.打开：open cur_name for select ..... 在打开时候指定结果集
3.fetch  cur_name  into record变量
4. 关闭游标 close cur_name
*/

create or replace procedure sql_pet(curs_pet out sys_refcursor)
is
rec_pet pet%rowtype;
begin
  open curs_pet for select * from pet;
  LOOP
    fetch curs_pet into rec_pet;
    dbms_output.put_line(REC_pet.name||'  '||rEC_pet.owner||'  '||rEC_pet.sex||' ');
    exit when curs_pet%NOTFOUND;
  END LOOP;
  close curs_pet;
end;
set SERVEROUTPUT ON  ;
declare record_pet sys_refcursor;
begin
sql_pet(record_pet);
end;