oracle游标的使用（二）

 

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

oracle游标的使用（二）

标签：input   copy   显式游标   程序   郑州   current   加一列   when   arc