给出运行结果：
4.7. 循环语句的使用
阅读并理解以下程序，调试并给出运行结果。 0．建立一个临时表
--建立一个临时表，用于测试 DROP TABLE temp_table; CREATE TABLE temp_table ( num_col NUMBER, char_col VARCHAR2(60) );
1．LOOP语句
--LOOP语句 DECLARE
v_Counter NUMBER := 1; BEGIN LOOP
-- 以loop counter向temp_table Insert纪录 -- .
INSERT INTO temp_table
VALUES (v_Counter, 'Loop index'); v_Counter := v_Counter + 1;
-- 循环终止条件 - when the loop counter > 50 -- 跳出循环.
IF v_Counter > 10 THEN EXIT; END IF; END LOOP; END;
给出运行结果：
第 16 页 共 31 页
2．FOR LOOP语句
--FOR LOOP语句 BEGIN
FOR v_Counter IN 1..10 LOOP
dbms_output.put_line('v_Counter is ' || v_Counter); END LOOP;
--DBMS_OUTPUT.PUT_LINE(v_Counter); --在for循环外不可以访问循环变量 END;
给出运行结果：
3．while LOOP语句
--while LOOP语句 DECLARE
v_Counter NUMBER := 1; BEGIN
--v_Counter <= 10--循环. WHILE v_Counter <= 50 LOOP
dbms_output.put_line('v_Counter is ' || v_Counter); v_Counter := v_Counter + 1; END LOOP; END;
给出运行结果：
第 17 页 共 31 页
4．while语句
--WHILE语句 DECLARE
v_Counter NUMBER := 1; BEGIN
WHILE v_Counter <= 10 LOOP
-- 以loop counter向temp_table Insert纪录 -- .
INSERT INTO temp_table
VALUES (v_Counter, 'Loop index');
v_Counter := v_Counter + 1;
-- 循环终止条件 - when the loop counter > 50 -- 跳出循环.
END LOOP; END;
给出运行结果：
4.8.游标的使用:
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),
第 18 页 共 31 页
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;
（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)
第 19 页 共 31 页
);
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); 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,%
Declare
temp_Examsal scott.emp_Exam.sal%Type; Cursor mycursor Is
Select * From scott.emp_Exam e Where e.sal=temp_Examsal;
第 20 页 共 31 页