_实验6 游标与异常处理

第 1 页 共 13 页 实验6 游标与异常处理 姓名： 学号： 专业： 班级： 同组人： 实验日期：

【实验目的与要求】  掌握Oracle游标的处理机制和方法  掌握异常处理方法 【实验内容与步骤】

6.1. 游标的使用: 1．隐式游标： （0）创建测试表和加入测试数据

drop table emp_Examloyees; create table emp_Examloyees( EMP_EXAMLOYEE_ID NUMBER(6) primary key, FIRST_NAME VARCHAR2(20), LAST_NAME VARCHAR2(25), EMAIL VARCHAR2(25), PHONE_NUMBER VARCHAR2(20), HIRE_DATE DATE, JOB_ID VARCHAR2(10), SALARY NUMBER(8,2), COMMISSION_PCT NUMBER(2,2), DEPARTMENT_ID NUMBER(4) );

insert into emp_Examloyees(EMP_EXAMLOYEE_ID,FIRST_NAME,LAST_NAME,SALARY,DEPARTMENT_ID) values(1,'JIA','JENNY',3000,1); insert into emp_Examloyees(EMP_EXAMLOYEE_ID,FIRST_NAME,LAST_NAME,SALARY,DEPARTMENT_ID) values(2,'guan','rose',4000,3); insert into emp_Examloyees(EMP_EXAMLOYEE_ID,FIRST_NAME,LAST_NAME,SALARY,DEPARTMENT_ID) values(3,'xu','mike',2000,2); insert into emp_Examloyees(EMP_EXAMLOYEE_ID,FIRST_NAME,LAST_NAME,SALARY,DEPARTMENT_ID) values(4,'zhang','billy',1000,2); insert into emp_Examloyees(EMP_EXAMLOYEE_ID,FIRST_NAME,LAST_NAME,SALARY,DEPARTMENT_ID) values(5,'jin1','dede',5000,1); insert into emp_Examloyees(EMP_EXAMLOYEE_ID,FIRST_NAME,LAST_NAME,SALARY,DEPARTMENT_ID) values(6,'jin2','dede',5000,2); insert into emp_Examloyees(EMP_EXAMLOYEE_ID,FIRST_NAME,LAST_NAME,SALARY,DEPARTMENT_ID) values(7,'jin3','dede',5000,1); insert into emp_Examloyees(EMP_EXAMLOYEE_ID,FIRST_NAME,LAST_NAME,SALARY,DEPARTMENT_ID) values(8,'jin4','dede',5000,3); COMMIT; 第 2 页 共 13 页

（1） 使用隐式游标： 以下程序段以sql%rowcount为例展示的是隐式游标的使用方法，请阅读并理解程序，给出测试结果。 set serveroutput on; declare v_delete_count number(3); begin delete from emp_Examloyees e where e.DEPARTMENT_ID = 1; v_delete_count := sql%rowcount; commit; dbms_output.put_line('总共删除数据:' || v_delete_count || '条' ); end; / 给出运行结果：

2．显式游标： （1）用显式游标： --此处没有用循环，只能取出由标指针指向的第一条纪录 drop table emp_Exam; create table emp_Exam( id number(3), name varchar2(20), sal number(8,2) );

insert into emp_Exam values(1,'a',3000); insert into emp_Exam values(2,'b',3000); insert into emp_Exam values(3,'c',3000); insert into emp_Exam values(4,'d',3000); 第 3 页 共 13 页

commit; set serveroutput on; declare cursor c is select * from emp_Exam; v_all_emp_Examl emp_Exam%rowtype; begin open c; fetch c into v_all_emp_Examl; dbms_output.put_line(v_all_emp_Examl.id || '--' || v_all_emp_Examl.name ||'--' || v_all_emp_Examl.sal); close c; end; /

请给出执行结果：

（2）用显式游标循环取值： --显示游标循环取值： declare cursor c is select * from emp_Exam; v_all_emp_Examl emp_Exam%rowtype; begin open c; loop fetch c into v_all_emp_Examl; exit when c%notfound; dbms_output.put_line(v_all_emp_Examl.id || '--' || v_all_emp_Examl.name ||'--' || v_all_emp_Examl.sal); end loop; close c; end; / 给出运行结果：

3．游标功能使用综合： --游标的功能展示，这里展示了%isopen,%found,% 第 4 页 共 13 页

Declare temp_Examsal scott.emp_Exam.sal%Type; Cursor mycursor Is Select * From scott.emp_Exam e Where e.sal=temp_Examsal; currentrecord mycursor%Rowtype; Begin temp_Examsal:=3000; temp_Examsal:=800; --打开游标 If mycursor%Isopen Then dbms_output.put_line('该游标已经打开了，正在关闭！'); Close mycursor; Open mycursor; Else dbms_output.put_line('游标关闭，正在打开！'); Open mycursor; End If; --读取数据 Fetch mycursor Into currentrecord; If mycursor%Found Then dbms_output.put_line('游标已经取到数据,查询结果是：'); dbms_output.put_line(to_char(currentrecord.ename)); Else dbms_output.put_line('没有要查询的结果！'); End If; --读取记录总条数 Loop Fetch mycursor Into currentrecord; Exit When mycursor%Notfound; End Loop; dbms_output.put_line('查结果总共有：'||mycursor%Rowcount); --关闭游标 If mycursor%Isopen Then dbms_output.put_line('正在关闭游标，程序正常结束！'); Close mycursor; End If; End; 给出运行结果： 第 5 页 共 13 页 6.2.异常处理

阅读并理解以下程序，掌握异常处理的一般形式，给出运行结果。 0．准备测试表和数据： drop table sm_emp_Exam; CREATE TABLE sm_emp_Exam( no char(4), name char(10), salary number(6,2), phone char(8) );

--insert TOM INSERT INTO sm_emp_Exam VALUES ('001','TOM',999.99,'62543678'); commit;

--insert TOM again INSERT INTO sm_emp_Exam VALUES ('002','TOM',999.99,'62543678'); commit;