oracle游标

大佬教程收集整理的这篇文章主要介绍了oracle游标，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

/*
游标：用于临时存储从数据库中提取的数据块。

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

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

隐式游标：
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. 格式化输出学院信息
@H_344_197@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;

大佬总结

以上是大佬教程为你收集整理的oracle游标全部内容，希望文章能够帮你解决oracle游标所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。