加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 （https://www.lidatong.com.cn/）- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置： 首页 > 百科 > 正文

oracle游标

发布时间：2020-12-12 16:41:26 所属栏目：百科 来源：网络整理
导读：/* 游标：用于临时存储从数据库中提取的数据块。 一次提取一行数据，使用隐式游标 一次提取多行数据，使用显式游标 游标一旦打开，数据就从数据库中传送到游标变量中 隐式游标： DML操作和select语句会使用隐式游标 通过隐式游标的属性来了解操作的状态和结果
/*
游标：用于临时存储从数据库中提取的数据块。

一次提取一行数据，使用隐式游标
一次提取多行数据，使用显式游标

游标一旦打开，数据就从数据库中传送到游标变量中

隐式游标：
DML操作和select语句会使用隐式游标

通过隐式游标的属性来了解操作的状态和结果，进而控制程序的流程。
隐式游标可以使用名字sql来访问，通过sql游标名总是只能访问前一个dml操作或单行select操作的游标属性。

游标属性有4种：

隐式游标的属性 返回值类型 意义
SQL%ROWCOUNT 整型 代表dml语句成功执行的数据行数
SQL%FOUND 布尔型 值为TRUE代表插入、删除、更新或单行查询操作成功
SQL%NOTFOUND 布尔型 与SQL%FOUND属性返回值相反
SQL%ISOPEN 布尔型 dml执行过程中为真，结束为假

显式游标：
游标使用分4个步骤
1.声明游标
cursor 游标名 [(参数1，数据类型，参数2，数据类型...)]
is select 语句;
参数可选，所定义的参数出现在select语句的where子句中，如果定义了参数，必须在打开游标时传递响应的参数。
SELECT语句中可以使用在定义游标之前定义的变量，但不能使用into子句。

2.打开游标
open 游标名[(实参1，实参2...)]
打开游标时，select语句的查询结果就传送到了游标工作区

3.提取数据
fetch 游标名 into 变量1[,变量2...];
或
fetch 游标名 into 记录变量;

fetch语句一次返回指针所指的一行数据，要返回多行需重复执行，可使用循环语句来实现。控制循环可以通过判断游标的属性来进行。

第一种格式：变量是用来从游标中接收数据的变量，需事先定义，变量个数和类型与select查询的字段个数和类型一致
第二种格式：一次将一行的数据提取到记录变量中，需使用%ROWTYPE事先定义记录变量

记录变量定义格式：变量名 表名|游标名%ROWTYPE;

4.关闭游标
close 游标名;

显示游标属性：
游标的属性 返回值类型 意义
%ROWCOUNT 整型 获得fetch语句返回的数据行数
%FOUND 布尔型 最近的fetch语句返回一行数据则为真，否则为假
%NOTFOUND 布尔型 与%FOUND属性返回值相反
%ISOPEN 布尔型 游标已经打开时为真，否则为假

可按照以下形式取得游标的属性：

游标名%属性

动态游标：
变量声明部分定义的游标是静态的，不能在程序运行过程中修改。
虽然可以通过参数传递来取得不同的数据，但还是有很大的局限性。

通过采用动态游标，可以在程序运行阶段随时生成一个查询语句作为游标。
要使用动态游标需要先定义一个游标类型，然后声明一个游标变量，
游标对应的查询语句可以在程序的执行过程中动态地说明。

定义游标类型语句：
type 游标类型名 REF cursor;

声明游标变量语句：
游标变量名 游标类型名;

打开动态游标：
open 游标变量名 for 查询语句字符串;

异常处理：
位于程序的可执行部分之后，由when语句引导的多个分支构成
exception
when 错误1 then
语句序列1;
when 错误2 then
语句序列2;
when others
语句序列n;
end;

错误是在标准包中由系统预定义的标准错误，或是由用户在程序的说明部分自定义的错误。
语句序列是不同分支的错误处理分别。
如要在该分支中进一步判断错误种类，可以通过使用预定义函数SQLCODE( )和SQLERRM( )来获得系统错误号和错误信息。

如果在程序的子块中发生了错误，但子块没有错误处理部分，则错误会传递到主程序中。

预定义错误：
Oracle的系统错误很多，但只有一部分常见错误在标准包中予以定义。
定义的错误可以在EXCEPTION部分通过标准的错误名来进行判断，并进行异常处理。
常见的系统预定义异常如下所示。

错 误 名 称 错误代码 错 误 含 义
CURSOR_ALREADY_OPEN ORA_06511 试图打开已经打开的游标
INVALID_CURSOR ORA_01001 试图使用没有打开的游标
DUP_VAL_ON_INDEX ORA_00001 保存重复值到惟一索引约束的列中
ZERO_DIVIDE ORA_01476 发生除数为零的除法错误
INVALID_NUMBER ORA_01722 试图对无效字符进行数值转换
ROWTYPE_MISMATCH ORA_06504 主变量和游标的类型不兼容
VALUE_ERROR ORA_06502 转换、截断或算术运算发生错误
TOO_MANY_ROWS ORA_01422 SELECT…INTO…语句返回多于一行的数据
NO_DATA_FOUND ORA_01403 SELECT…INTO…语句没有数据返回
TIMEOUT_ON_RESOURCE ORA_00051 等待资源时发生超时错误
TRANSACTION_BACKED_OUT ORA_00060 由于死锁，提交失败
STORAGE_ERROR ORA_06500 发生内存错误
PROGRAM_ERROR ORA_06501 发生PL/SQL内部错误
NOT_LOGGED_ON ORA_01012 试图操作未连接的数据库
LOGIN_DENIED ORA_01017 在连接时提供了无效用户名或口令

自定义异常：
可以在声明部分定义新的异常类型，定义的语法是：
错误名 EXCEPTION;
用户定义的错误不能由系统触发，必须由程序显式触发，触发的语法是：
raise 错误名;

raise也可以用来引发模拟系统错误，比如：raise ZERO_DIVEDE引发模拟的除零错误.
使用RAISE_APPLICATION_ERROR函数也可以引发异常。该函数要传递两个参数，
第一个是用户自定义的错误编号，第二个参数是用户自定义的错误信息。使用该函数引发的异常的编号应该在20000和20999之间选择。


*/

1.使用隐式游标的属性，判断对雇员的工资修改是否成功
    begin
      update luffy.student_test a set a.tot_cred = a.tot_cred + 1 where a.id = 40116;
      if SQL%FOUND then
        DBMS_OUTPUT.put_line('修改学生学分成功'); 
      commit;
      else
        DBMS_OUTPUT.put_line('修改学生学分失败');
       end if;
     end;
<pre name="code" class="sql">--2.显示游标
 

declare
v_name varchar2(20);
v_cred number(3);
cursor stu_cursor is
select a.name,a.tot_cred from luffy.student_test a where a.id = 40116;

begin
open stu_cursor;
fetch stu_cursor
into v_name,v_cred;
dbms_output.put_line(v_name || ',' || v_cred);
close stu_cursor;
end;    
 

--3.显示游标 使用记录变量
 

 

declare
    cursor stu_cursor is select a.name,a.tot_cred,a.dept_name from luffy.student_test a where a.id = 40116;
    stu_record stu_cursor%ROWTYPE; --记录变量
    
begin
  open stu_cursor;
  fetch stu_cursor into stu_record;
       dbms_output.put_line(stu_record.name || ',' || stu_record.tot_cred || ',' || stu_record.dept_name);
  close stu_cursor;
end;
 

 

 

 --4显示游标 显示学分最高的3位学生的姓名和学分 

 

--该程序在游标定义中使用了ORDER BY子句进行排序，并使用循环语句来提取多行数据。 
declare
v_name varchar2(20);
v_cred number(3);
cursor stu_cursor is
select a.name,a.tot_cred from luffy.student_test a order by a.tot_cred desc;
begin
open stu_cursor;
for I in 1..10 loop
fetch stu_cursor
into v_name,' || v_cred);
end loop;
close stu_cursor;
end;
 

 

 

 --5.使用特殊的for循环显示 前100条学生信息 

 

--可以看到该循环形式非常简单，隐含了记录变量的定义、游标的打开、提取和关闭过程。
--stu_record为隐含定义的记录变量，循环的执行次数与游标取得的数据的行数相一致。 
declare
 cursor stu_cursor is 
      select a.name,a.dept_name,a.tot_cred from luffy.student_test a where rownum <= 100;
 begin
for stu_record in stu_cursor loop
dbms_output.put_line(stu_record.name || ',' || stu_record.dept_name || ',' ||
stu_record.tot_cred);
end loop;
 end;  
 

 --6.使用游标的属性练习 

 

 declare
v_name varchar2(20);
v_cred number(3);
cursor stu_cursor is
select a.name,a.tot_cred from luffy.student_test a where rownum <= 4;

begin
open stu_cursor;
if stu_cursor%ISOPEN then
loop
fetch stu_cursor
into v_name,v_cred;
exit when stu_cursor%NOTFOUND;
dbms_output.put_line(v_name || ',' || v_cred);
end loop;
    dbms_output.put_line('查找数量：' || stu_cursor%ROWCOUNT);
else
dbms_output.put_line('没有打开游标');
end if;
close stu_cursor;
end;    
 

 --7.动态select语句和动态游标的用法 

 

 --对于查询结果为一行的SELECT语句，可以用动态生成查询语句字符串的方法
 --execute immediate 查询语句字符串 into 变量1[,变量2...]; 
 declare 
 v_name varchar2(100);
 v_cred number(3);
 str varchar2(150);
 begin
   str :='select name,tot_cred from luffy.student_test a where a.id = 40116';
   execute immediate str into v_name,v_cred;
   dbms_output.put_line(v_name || ',' || v_cred);
 end;
 

 --8.按名字中包含的字母顺序分组显示学生信息。 

 

--使用了二重循环，在外循环体中，动态生成游标的SELECT语句，然后打开。
--通过语句letter:=chr(ascii(letter)+1)可获得字母表中的下一个字母。 
declare
     type cur_type is ref cursor;
     cur cur_type;
     rec luffy.student_test%rowtype;--
     str varchar2(100);--动态sql
     letter char := '';
  begin
    loop
      str := 'select name from luffy.student_test a where a.name like ''%' || letter || '%''';
      open cur for str;
      dbms_output.put_line('包含字母'||letter||'的名字： ');
       loop
         fetch cur into rec.name;
         exit when cur%notfound;
         dbms_output.put_line(rec.name);
        end loop;
        exit when letter='Z';
        letter := chr(ascii(letter)+1);
    end loop;
  end;
 

 --9.异常处理 

 

--“NO_DATA_FOUND”是系统预定义的错误类型
 declare
v_name varchar2(20);
 begin
select name into v_name from luffy.student_test a where a.id = 1234;
dbms_output.put_line('该学生名字为：' || v_name);
 exception
when no_data_found then
dbms_output.put_line('id错误，没有找到对应的学生。');
when others then
dbms_output.put_line('发生其他错误！');
 end;  
 

 --10.由程序代码显示系统错误  

 

DECLARE
v_temp NUMBER(5) := 1;
BEGIN
v_temp := v_temp / 0;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('发生系统错误！');
DBMS_OUTPUT.PUT_LINE('错误代码：' || SQLCODE());
DBMS_OUTPUT.PUT_LINE('错误信息：' || SQLERRM());
END;     
 

 --11.定义新的错误类型 

 

--说明：NULL_INSERT_ERROR是自定义异常，同系统错误1400相关联。 
DECLARE
V_ENAME VARCHAR2(10);
NULL_INSERT_ERROR EXCEPTION;
PRAGMA EXCEPTION_INIT(NULL_INSERT_ERROR,-1400);
BEGIN
INSERT INTO luffy.student_test (name) VALUES (NULL);
EXCEPTION
WHEN NULL_INSERT_ERROR THEN
DBMS_OUTPUT.PUT_LINE('无法插入NULL值！');
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('发生其他系统错误！');
END;    
 

 --12.自定义异常 

 

--插入新学生信息，限定插入id的编号在80000～90000之间
declare
new_id number(5);
new_excp1 exception;
new_excp2 exception;

begin
new_id := 70000;
insert into luffy.student_test (id,name,dept_name,tot_cred)
values (new_id,'luffysan','haizei',5);

if new_id < 80000 then
raise new_excp1;
end if;
if new_id > 90000 then
raise new_excp2;
end if;
commit;
exception
when new_excp1 then
rollback;
dbms_output.put_line('学生id号小于80000！');
when new_excp2 then
rollback;
dbms_output.put_line('学生id号大于90000！');
end;  
 

 --13. 使用RAISE_APPLICATION_ERROR函数引发系统异常。 

 

declare 
   new_id := 22222;
    insert into luffy.student_test (id,tot_cred)
  values (new_id,5);
    if new_id < 80000 then
      rollback;
      raise_application_error();
    end if;
 

 --14.通过指定编号将学生从一个表负责到另一个表 

 

--说明：stu_rec变量是根据student_test表定义的记录变量，SELECT...INTO...语句将整个记录传给该变量。
--INSERT语句将整个记录变量插入student_test2表，如果插入成功(SQL%FOUND为真)，则提交事务，否则回滚撤销事务
 declare 
 v_id number(5) := 33546;
 stu_rec student_test%rowtype;
 begin
   select * into stu_rec from luffy.student_test a where id = v_id;
   insert into luffy.student_test2 values stu_rec;
   if sql%found then
     commit;
     dbms_output.put_line('复制成功！');
     else
       rollback;
     dbms_output.put_line('复制失败');
    end if;
  end;
 

 --15.输出学生学分，学分用不同高度的*表示 

 

 --第一个rpad函数产生对齐效果，第二个rpad函数根据学分产生不同数目的*。
 --该程序采用了隐式的简略游标循环形式。 
 begin
for re in (select name,tot_cred
from luffy.student_test a
where rownum <= 1000) loop
dbms_output.put_line(rpad(re.name,12,' ') ||
rpad('*',re.tot_cred/2,'*'));
end loop;
 end;        
   

 --16. 格式化输出学院信息 

 

declare
 v_count number := 0;
 cursor dept_cursor is select * from luffy.department a;
 begin
    dbms_output.put_line('学院信息');   
    dbms_output.put_line('-----------------------------------');  
    for dept_record in dept_cursor loop
      dbms_output.put_line('学院名称：' || dept_record.DEPT_NAME);
      dbms_output.put_line('学院建筑楼：' || dept_record.BUILDING);
      dbms_output.put_line('学院经费：' || dept_record.BUDGET);
    dbms_output.put_line('-----------------------------------'); 
     v_count := v_count + 1;
     end loop;
     dbms_output.put_line('共有' || to_char(v_count) || '个学院！');
  end;
 

 --17.输出学院名称、学院总人数、总学分 

 

declare
 v_count number(5);
 v_sum   number(5);
 v_dname varchar2(50);
 
 cursor list_cursor is
      select a.dept_name,count(*),sum(a.tot_cred) from luffy.student_test a group by a.dept_name;
 begin
   open list_cursor;
   dbms_output.put_line('--------------------学院统计-----------------');
   dbms_output.put_line('学院名称    总人数      总学分  ');    
   fetch list_cursor into  v_dname,v_count,v_sum;
   while list_cursor%found loop
     select a.dept_name into v_dname from luffy.department a
     where a.dept_name = v_dname;
     
     dbms_output.put_line(rpad(v_dname,15) || rpad(to_char(v_count),8) 
                                           || rpad(to_char(v_sum),10));
                          
     fetch list_cursor into v_dname,v_sum;
     end loop;
     dbms_output.put_line('---------------------------------------------');
  close list_cursor;
  end; 
 


 
 

--18.修改学分
 
 

--为学生增加学分
declare
  v_name varchar2(20);
  v_cred number(3);  
  v_addcred number(2) := 10;--增加的学分
  v_num number(4) := 0; --增加学分的人数
  cursor stu_cursor is
  select a.name,a.tot_cred from luffy.student_test a order by a.tot_cred asc;
  begin
    open stu_cursor;
    dbms_output.put_line('------------------------');
    loop
      fetch stu_cursor into v_name,v_cred ;
      exit when stu_cursor%notfound;
      if v_cred < 50 then
        v_cred := v_cred + v_addcred;
        v_num := v_num + 1;
       dbms_output.put_line(v_name || to_char(v_cred,'9999') || to_char(v_cred + v_addcred,'9999') );
       update luffy.student_test 
       set tot_cred = tot_cred + v_addcred
       where name = v_name;
      else
       dbms_output.put_line(v_name || to_char(v_cred,'9999') ||  to_char(v_cred,'9999'));
      end if;
     end loop;
     dbms_output.put_line('----------------------------');
     dbms_output.put_line('增加学分的人数：' || v_num);
     close stu_cursor;
    -- commit;
end;
                        
（编辑：李大同）


【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

                    		
                  

                

            

            
    
            
    
            
    
            	
    相关内容
    

      

            
      
        
      
    
      
    
      
    	
      
        
      推荐文章
      
            
        
        
        
    	
        
        
        站长推荐
        
            
        
        
        
        
        
    	
        
        
        热点阅读
        
            
          
        
          
        
          
        
          
	
          

          

          

          

          【免责声明】本站内容转载自互联网，其发布内容言论不代表本站观点，如果其链接、内容的侵犯您的权益，烦请提交相关链接至邮箱bqsm@foxmail.com我们将及时予以处理。
          

          建议您使用1920×1080分辨率、谷歌浏览器Google Chrome、Microsoft Edge以获得本站的最佳浏览效果
          

          Copygight © 2008-2022 https://www.lidatong.com.cn/ All Rights Reserved. 李大同