关闭

oracle游标

标签: 游标
625人阅读 评论(0) 收藏 举报
分类:
/*
游标:用于临时存储从数据库中提取的数据块。

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

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

隐式游标:
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;
dbms_output.put_line(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, name, dept_name, tot_cred)
  values (new_id, 'luffysan', 'haizei', 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_count,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;


0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:28387次
    • 积分:695
    • 等级:
    • 排名:千里之外
    • 原创:36篇
    • 转载:41篇
    • 译文:0篇
    • 评论:0条
    文章分类