| ------------------------------------无参数游标------------------------------- 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; |
