oracle中的游标的原理和使用详解

begin
update student s set s.sage = s.sage + 10 ;
if sql %FOUND   then
dbms_output.put_line('这次更新了' || sql% rowcount );
else
dbms_output.put_line ('一行也没有更新' );
end if;
end;

SQL> declare
2  sname1 student.sname%TYPE;
3  begin
4    select sname into sname1 from student;
5    if sql%found then
6      dbms_output.put_line(sql%rowcount);
7    else
8      dbms_output.put_line('没有找到数据');
9      end if;
10      exception
11        when too_many_rows then
12          dbms_output.put_line('查找的行记录多于1行');
13         when no_data_found then
14            dbms_output.put_line('未找到匹配的行');
15       end;
16  /
查找的行记录多于1行
PL/SQL procedure successfully completed

SQL>

------------------------------------无参数游标-------------------------------
declare
sname varchar2( 20); --声明变量
cursor student_cursor is select sname from student ; --声明游标
begin
open student_cursor;--打开游标
fetch student_cursor into sname ;--让游标指针往下移动
while student_cursor%found --判断游标指针是否指向某行记录
loop--遍历
dbms_output.put_line ('学生姓名' ||sname );
fetch student_cursor into sname;
end loop;
close student_cursor;
end;

------------------------------------有参数游标-------------------------------
declare
sname student.sname%type;
sno student.sno%type;
cursor student_cursor (input_sno number) is select s.sname, s.sno from student s where s.sno > input_sno; --声明带参数的游标
begin
sno := &请输入学号 ;--要求从客户端输入参数值，"&"相当于占位符；
open student_cursor( sno); --打开游标，并且传递参数
fetch student_cursor into sname, sno; --移动游标
while student_cursor% found
loop
dbms_output.put_line ('学号为：' ||sno ||'姓名为：' ||sname );
fetch student_cursor into sname,sno;
end loop;
close student_cursor;
end;
------------------------------------循环游标-------------------------------
-- Created on 18-1月-15 by 永文
declare
stu1 student%rowtype ;--这里也不需要定义变量来接收fetch到的值
cursor student_cursor is select * from student ;
begin
open student_cursor; --这里不需要开启游标
for stu1 in student_cursor
loop
dbms_output.put_line ('学生学号：' ||stu1.sno ||'学生姓名：' ||stu1.sname );
fetch student_cursor into stu1;--也不需要fetch了
end loop;
close student_cursor;  --这里也不需要关闭游标
end;

------------------------------------使用游标更新行-------------------------------
declare
stu1 student%rowtype ;
cursor student_cursor is select * from student s where s.sno in (2 ,3 ) for update;--创建更新游标
begin
open student_cursor;
fetch student_cursor into stu1;--移动游标
while student_cursor%found --遍历游标，判断是否指向某个值
loop
update student set sage = sage + 10 where current of student_cursor;--通过游标中的信息更新数据
fetch student_cursor into stu1;--移动游标
end loop;
close student_cursor;
end;

declare
stu1 student%rowtype ;
cursor student_cursor is select * from student s where s.sno in (2 ,3 ) for update;--创建更新游标
begin
open student_cursor;
-- fetch student_cursor into stu1;--移动游标
-- while student_cursor%found--遍历游标，判断是否指向某个值
loop
fetch student_cursor into stu1 ;--移动游标
exit when student_cursor %notfound ;
update student set sage = sage + 10 where current of student_cursor;--通过游标中的信息更新数据
end loop;
close student_cursor;
end;
------------------------------------使用fetch ... bulk collect into-------------------------------
declare
cursor   my_cursor is select ename from emp where deptno= 10; --声明游标
type   ename_table_type is table of varchar2 (10 );--定义一种表类型，表中的属性列为varchar2类型
ename_table  ename_table_type;--通过上面定义的类型来定义变量
begin
open   my_cursor; --打开游标
fetch my_cursor bulk collect into   ename_table; --移动游标
for   i in 1 ..ename_table.count  loop
dbms_output.put_line(ename_table(i));
end   loop ;
close my_cursor;
end;

-----------------------------------显示游标题目--------------------------------------

SQL > select * from student ;
XH XM
---------- ----------
1 A
2 B
3 C
4 D

SQL > select * from address ;
XH ZZ
---------- ----------
2 郑州
1 开封
3 洛阳
4 新乡

完成的任务 :给表student添加一列zz ,是varchar2 (10 )类型；
再从address中，将zz字段的数值取出来，对应的插入到
student新增的zz列中。
即：得到的结果：student表中，是：
XH XM         ZZ
-- ---------- ------
1 A          开封
2 B          郑州
3 C          洛阳
4 D          新乡

declare
stu1 student %rowtype ;
add1 address %rowtype ;
cursor student_cursor is select * from student for update;--声明更新游标
cursor address_cursor is select * from address ;--声明游标
begin
open student_cursor ;--打开游标
fetch student_cursor into stu1;--移动游标
while student_cursor% found--判断游标是否指向某条记录
loop
open address_cursor ;--打开另外一个游标
fetch address_cursor into add1 ;--移动游标
while address_cursor %found--判断游标是否指向某条记录
loop
if add1.xh = stu1.xh then--判断两个游标所指向的记录中xh的值是否相等
update student s set s.zz = add1.zz where current of student_cursor;--假如相等就更新游标所指向的记录值
end if;
fetch address_cursor into add1 ;--移动游标
end loop;
close address_cursor ;--关闭游标
fetch student_cursor into stu1 ;--移动游标
end loop;
close student_cursor ;--关闭游标
end;