一：普通游标
declare
--定义record类型变量
type v_record is record
(title labor.xland.title%type,state labor.xland.title%type);
--定义字符串类型变量
v_title labor.xland.title%type;
--定义一个游标
cursor c1 is
select title from labor.xland;
begin
open c1;--打开游标
loop
fetch c1 into v_title;--把游标中的数据存入变量，可以有多个变量
if c1%found then--如果找到数据,找不到数据为notfound
dbms_output.put_line(v_title);
else
dbms_output.put_line('已经处理完结果集');
exit;--退出循环
end if;
end loop;
close c1;--关闭游标
end;
输出结果
new xland 123 xland 123 xland 已经处理完结果集
二：有参游标
declare
--定义record类型变量
type v_record is record
(title labor.xland.title%type,state labor.xland.title%type);
--定义字符串类型变量
v_title labor.xland.title%type;
--定义有参数的游标
cursor c1(v_no number) is
select title from labor.xland where state > v_no;
begin
open c1(0);--打开游标，传递参数
loop
fetch c1 into v_title;--把游标中的数据存入变量，可以有多个变量
if c1%found then--如果找到数据,找不到数据为notfound
dbms_output.put_line(v_title);
else
dbms_output.put_line('已经处理完结果集');
exit;--退出循环
end if;
end loop;
close c1;--关闭游标
end;
输出结果
123 xland 123 xland 已经处理完结果集
三：有返回值的游标
declare --定义一个类型 type t_record is record (title labor.xland.title%type,state labor.xland.state%type); --定义v_record类型的变量 v_record t_record; --定义字符串类型变量 v_title labor.xland.title%type; --定义有返回值的游标 cursor c1(v_no number) return t_record is select title,state from labor.xland where state > v_no; begin open c1(v_no => 0);--打开游标，传递参数(参数的另一种传递方式) loop fetch c1 into v_record;--把游标中的数据存入变量，可以有多个变量 exit when c1%notfound; dbms_output.put_line(v_record.title||' '||to_char(v_record.state)); end loop; close c1;--关闭游标 end;
输出结果
123 3 xland 3 123 3 xland 3
四：运行过程中获取游标中的内容
declare --定义游标 cursor c1(v_no number) is select * from labor.xland where state > v_no; --定义变量为游标的行类型
v_record c1%rowtype; begin open c1(v_no => 0);--打开游标，传递参数(参数的另一种传递方式) loop fetch c1 into v_record;--把游标中的数据存入变量，可以有多个变量 exit when c1%notfound; dbms_output.put_line(v_record.title||' '||to_char(v_record.state)); end loop; close c1;--关闭游标 end;
输出结果
123 3 xland 3 123 3 xland 3
五：隐式游标
declare v_rows number; begin update labor.xland set xland.title = 'new xland' where xland.state>0; v_rows := sql%rowcount; dbms_output.put_line(to_char(v_rows)); end;
更多隐式游标属性请看此系列文章的附录：
常用函数
输出结果为受影响的行数
不能对隐式游标执行显示游标类似的操作，如：
open fetch close等
六：用for循环简化游标的操作
declare --定义游标 cursor c1(v_no number default 0) is--默认值为0 select * from labor.xland where state > v_no; --定义变量为游标的行类型 v_record c1%rowtype; begin for v_record in c1() loop dbms_output.put_line(v_record.title||' '||to_char(v_record.state)); end loop; end;
输出结果
new xland 3 new xland 3 new xland 3 new xland 3
注意此游标的参数有个默认值
for循环使得我们的程序不必再写 open fetch close等操作了
它已经给我们实现了
七：在游标中更新或删除数据
declare
--定义游标
cursor c1(v_no number) is
select * from labor.xland where state > v_no for update;--注意最后的for update
--定义变量为游标的行类型
v_record c1%rowtype;
begin
open c1(v_no => 0);--打开游标，传递参数(参数的另一种传递方式)
loop
fetch c1 into v_record;--把游标中的数据存入变量，可以有多个变量
exit when c1%notfound;
if v_record.state=3 then
update xland set state = 6 where current of c1;--注意where子句
dbms_output.put_line('更新了一条数据');
end if;
end loop;
commit;--提交更新
close c1;--关闭游标
end;
当使用for update打开游标后就可以用current of cursor_name来更新数据了
