oracle游标的使用（二）

逐行处理查询结果，以编程的方式访问数据

游标的类型：

1、隐式游标：在 PL/SQL 程序中执行DML SQL 语句时自动创建隐式游标，名字固定叫sql。

2、显式游标：显式游标用于处理返回多行的查询。
3、REF 游标：REF 游标用于处理运行时才能确定的动态 SQL 查询的结果
隐式游标：
在PL/SQL中使用DML语句时自动创建隐式游标，隐式游标自动声明、打开和关闭，其名为 SQL，通过检查隐式游标的属性可以获得最近执行的 DML 语句的信息，隐式游标的属性有： %FOUND – SQL 语句影响了一行或多行时为 TRUE，%NOTFOUND – SQL 语句没有影响任何行时为TRUE，%ROWCOUNT – SQL 语句影响的行数，%ISOPEN - 游标是否打开，始终为FALSE

[sql] view plain copy

1. BEGIN
2. UPDATE t_bjqk SET fBL = fBL - 2 WHERE fBJDM=‘1461‘;
3. IF SQL%FOUND THEN
4. dbms_output.put_line(‘这次更新了‘ || SQL%ROWCOUNT);
5. ELSE
6. dbms_output.put_line(‘一行也没有更新‘ );
7. END IF;
8. END;
9. --SELECT * FROM t_bjqk;

[sql] view plain copy

1. 在select中有两个中比较常见的异常： 1. NO_DATA_FOUND 2. TOO_MANY_ROWS
2. SQL> declare
3. 2  sname1 student.sname%TYPE;
4. 3  begin
5. 4    select sname into sname1 from student;
6. 5    if sql%found then
7. 6      dbms_output.put_line(sql%rowcount);
8. 7    else
9. 8      dbms_output.put_line(‘没有找到数据‘);
10. 9      end if;
11. 10      exception
12. 11        when too_many_rows then
13. 12          dbms_output.put_line(‘查找的行记录多于1行‘);
14. 13         when no_data_found then
15. 14            dbms_output.put_line(‘未找到匹配的行‘);
16. 15       end;
17. 16  /
18. 查找的行记录多于1行
19. PL/SQL procedure successfully completed
20. SQL>

显式游标：

sqlserver与oracle的不同之处在于： 最后sqlserver会deallocate 丢弃游标，而oracle只有前面四步： 声明游标、打开游标、使用游标读取记录、关闭游标。
显式游标的使用：

[sql] view plain copy

1. declare
2. sname varchar2( 20); --声明变量
3. cursor student_cursor is select sname from student ; --声明游标
4. begin
5. open student_cursor;                 --打开游标
6. fetch student_cursor into sname;     --让游标指针往下移动
7. while student_cursor%found           --判断游标指针是否指向某行记录
8. loop --遍历
9. dbms_output.put_line (‘学生姓名‘ ||sname );
10. fetch student_cursor into sname;
11. end loop;
12. close student_cursor;
13. end;
14. ------------------------------------有参数游标-------------------------------
15. declare
16. sname student.sname%type;
17. sno student.sno%type;
18. cursor student_cursor (input_sno number) is
19. select s.sname, s.sno from student s where s.sno > input_sno; --声明带参数的游标
20. begin
21. sno := &请输入学号;                     --要求从客户端输入参数值，"&"相当于占位符；
22. open student_cursor( sno);             --打开游标，并且传递参数
23. fetch student_cursor into sname, sno;  --移动游标
24. while student_cursor% found
25. loop
26. dbms_output.put_line (‘学号为：‘ ||sno ||‘姓名为：‘ ||sname );
27. fetch student_cursor into sname,sno;
28. end loop;
29. close student_cursor;
30. end;
31. ------------------------------------循环游标-------------------------------
32. -- Created on 18-1月-15 by 永文
33. declare
34. stu1 student%rowtype ;       --这里也不需要定义变量来接收fetch到的值
35. cursor student_cursor is select * from student ;
36. begin
37. open student_cursor;         --这里不需要开启游标
38. for stu1 in student_cursor
39. loop
40. dbms_output.put_line (‘学生学号：‘ ||stu1.sno ||‘学生姓名：‘ ||stu1.sname );
41. fetch student_cursor into stu1;   --也不需要fetch了
42. end loop;
43. close student_cursor;               --这里也不需要关闭游标
44. end;
45. ------------------------------------使用游标更新行-------------------------------
46. declare
47. stu1 student%rowtype ;
48. cursor student_cursor is select * from student s where s.sno in (2 ,3 ) for update;--创建更新游标
49. begin
50. open student_cursor;
51. fetch student_cursor into stu1;--移动游标
52. while student_cursor%found --遍历游标，判断是否指向某个值
53. loop
54. update student set sage = sage + 10 where current of student_cursor;--通过游标中的信息更新数据
55. fetch student_cursor into stu1;--移动游标
56. end loop;
57. close student_cursor;
58. end;
59. declare
60. stu1 student%rowtype ;
61. cursor student_cursor is select * from student s where s.sno in (2 ,3 ) for update;--创建更新游标
62. begin
63. open student_cursor;
64. -- fetch student_cursor into stu1;--移动游标
65. -- while student_cursor%found--遍历游标，判断是否指向某个值
66. loop
67. fetch student_cursor into stu1 ;--移动游标
68. exit when student_cursor %notfound ;
69. update student set sage = sage + 10 where current of student_cursor;--通过游标中的信息更新数据
70. end loop;
71. close student_cursor;
72. end;
73. ------------------------------------使用fetch ... bulk collect into-------------------------------
74. declare
75. cursor   my_cursor is select ename from emp where deptno= 10; --声明游标
76. type   ename_table_type is table of varchar2 (10 );--定义一种表类型，表中的属性列为varchar2类型
77. ename_table  ename_table_type;--通过上面定义的类型来定义变量
78. begin
79. open   my_cursor; --打开游标
80. fetch my_cursor bulk collect into   ename_table; --移动游标
81. for   i in 1 ..ename_table.count  loop
82. dbms_output.put_line(ename_table(i));
83. end   loop ;
84. close my_cursor;
85. end;
86. -----------------------------------显示游标题目--------------------------------------
87. SQL > select * from student ;
88. XH XM
89. ---------- ----------
90. 1 A
91. 2 B
92. 3 C
93. 4 D
94. SQL > select * from address ;
95. XH ZZ
96. ---------- ----------
97. 2 郑州
98. 1 开封
99. 3 洛阳
100. 4 新乡
101. 完成的任务 :给表student添加一列zz ,是varchar2 (10 )类型；
102. 再从address中，将zz字段的数值取出来，对应的插入到
103. student新增的zz列中。
104. 即：得到的结果：student表中，是：
105. XH XM         ZZ
106. -- ---------- ------
107. 1 A          开封
108. 2 B          郑州
109. 3 C          洛阳
110. 4 D          新乡
111. declare
112. stu1 student %rowtype ;
113. add1 address %rowtype ;
114. cursor student_cursor is select * from student for update; --声明更新游标
115. cursor address_cursor is select * from address ;           --声明游标
116. begin
117. open student_cursor ;                --打开游标
118. fetch student_cursor into stu1;      --移动游标
119. while student_cursor% found--判断游标是否指向某条记录
120. loop
121. open address_cursor ;              --打开另外一个游标
122. fetch address_cursor into add1 ;   --移动游标
123. while address_cursor %found--判断游标是否指向某条记录
124. loop
125. if add1.xh = stu1.xh then--判断两个游标所指向的记录中xh的值是否相等
126. update student s set s.zz = add1.zz where current of student_cursor; --假如相等就更新游标所指向的记录值
127. end if;
128. fetch address_cursor into add1 ; --移动游标
129. end loop;
130. close address_cursor ;             --关闭游标
131. fetch student_cursor into stu1 ;   --移动游标
132. end loop;
133. close student_cursor ;               --关闭游标
134. end;

REF游标也叫动态游标：
qREF 游标和游标变量用于处理运行时动态执行的 SQL 查询 q创建游标变量需要两个步骤： q声明 REF 游标类型 q声明 REF 游标类型的变量 q用于声明 REF 游标类型的语法为：
TYPE <ref_cursor_name> IS REF CURSOR
[RETURN <return_type>];

[sql] view plain copy

1. -----------------------------------ref游标---------------------------------
2. declare
3. type ref_cursor  is ref cursor; --声明一个ref游标类型
4. tab_cursor ref_cursor ;--声明一个ref游标
5. sname student.xm %type ;
6. sno student.xh %type ;
7. tab_name varchar2 (20 );
8. begin
9. tab_name := ‘&tab_name‘; --接收客户输入的表明
10. if tab_name = ‘student‘ then
11. open tab_cursor for select xh ,xm  from student ; --打开ref游标
12. fetch tab_cursor into sno ,sname ;--移动游标
13. while tab_cursor %found
14. loop
15. dbms_output.put_line (‘学号：‘ ||sno ||‘姓名：‘ ||sname );
16. fetch tab_cursor into sno ,sname ;
17. end loop;
18. close tab_cursor ;
19. else
20. dbms_output.put_line (‘没有找到你想要找的表数据信息‘ );
21. end if;
22. end;
23. -----------------------------------ref游标题目---------------------------------
24. SQL > select * from student ;
25. XH KC
26. ---------- ----------
27. 1 语文
28. 1 数学
29. 1 英语
30. 1 历史
31. 2 语文
32. 2 数学
33. 2 英语
34. 3 语文
35. 3 英语
36. 9 rows selected
37. SQL >
38. 完成的任务 :
39. 生成student2表 (xh number, kc  varchar2 (50 ))；
40. 对应于每一个学生，求出他的总的选课记录，把每个学生的选课记录插入到student2表中。
41. 即，student2中的结果如下：
42. XH KC
43. --- -------------------------------------------
44. 1 语文数学英语历史
45. 2 语文数学英语
46. 3 语文英语
47. create table student2 (xh number, kc varchar2 (50 ));
48. declare
49. kcs varchar2 (50 );
50. kc varchar2 (50 );
51. type ref_cursor is ref cursor; --声明一个ref游标类型
52. stu_cursor ref_cursor ;--定义一个ref游标类型的变量
53. type tab_type is table of number; --声明一个table类型
54. tab_xh tab_type ;--定义一个表类型的变量
55. cursor cursor_xh is select distinct( xh) from student; --声明一个游标
56. begin
57. open cursor_xh; --打开游标
58. fetch cursor_xh bulk collect into tab_xh; --提取数据到表中
59. for i in 1 .. tab_xh.count
60. loop
61. kcs :=‘‘ ;
62. open stu_cursor for select kc from student s where s.xh = tab_xh(i ); --打开ref游标
63. fetch stu_cursor into kc ; --移动游标
64. while stu_cursor %found
65. loop
66. kcs := kc ||kcs ; --连接字符串使用||而不是+
67. fetch stu_cursor into kc ; --移动游标
68. end loop;
69. insert into student2 (xh , kc ) values( i, kcs);
70. close stu_cursor ;
71. end loop;
72. close cursor_xh ;
73. end;