SQL> set severoutput on;
SP2-0735: unknown SET option beginning "severoutpu..."
SQL> set serveroutput on;
SQL> REMARK 引用游标
SQL> REMARK
SQL> REMARK .........
SQL> REMARK 引用游标:无法在游标声明的时候就确定游标的查询语句,需要根据业务逻辑过程确定查询,引用游标就是拥有这个灵活性;
SQL> REMARK 弱类型引用游标的案例:
SQL> DECLARE
2 TYPE CUREMPTYPE IS REF CURSOR;
3 CUREMP_REF CUREMPTYPE;
4 COMMAND CHAR(1);
5 CURROW EMP%ROWTYPE;
6 THEENAME EMP.ENAME%TYPE;
7 BEGIN
8 DBMS_OUTPUT.PUT_LINE('请输入操作命令('||'1-查找DEPTNO=30员工的姓名,'||'其它查找job=manager的员工信息');
9 COMMAND:=&m命令;
10 IF COMMAND='1' THEN
11 DBMS_OUTPUT.PUT_LINE('输入命令1----');
12 OPEN CUREMP_REF FOR SELECT EMPNO FROM EMP WHERE DEPTNO=30;
13 LOOP
14 FETCH CUREMP_REF INTO THEENAME;
15 EXIT WHEN CUREMP_REF%NOTFOUND;
16 DBMS_OUTPUT.PUT_LINE(THEENAME);
17 END LOOP;
18 CLOSE CUREMP_REF;
19 ELSE
20 DBMS_OUTPUT.PUT_LINE('输入的命令是:2...');
21 OPEN CUREMP_REF FOR SELECT * FROM EMP WHERE JOB='MANAGER';
22 LOOP
23 FETCH CUREMP_REF INTO CURROW;
24 EXIT WHEN CUREMP_REF%NOTFOUND;
25 DBMS_OUTPUT.PUT_LINE('编号:'||CURROW.EMPNO);
26 END LOOP;
27 END IF;
28 END;
29 /
Enter value for m命令: 2
old 9: COMMAND:=&m命令;
new 9: COMMAND:=2;
请输入操作命令1-查找DEPTNO=30员工的姓名,其它查找job=manager的员工信息
输入的命令是:2...
编号:7698
编号:7782
PL/SQL procedure successfully completed.
SQL> REMARK 强类型游标的定义
SQL> DECLARE
2 TYPE CUREMPTYPE IS REF CURSOR RETURN EMP%ROWTYPE;
3 CUREMP_REF CUREMPTYPE;
4 COMMAND CHAR(1);
5 CURROW EMP%ROWTYPE;
6 BEGIN
7 DBMS_OUTPUT.PUT_LINE('请输入操作指令:1 和 2');
8 COMMAND :=&命令;
9 IF COMMAND='1' THEN
10 DBMS_OUTPUT.PUT_LINE('1.....');
11 OPEN CUREMP_REF FOR SELECT * FROM EMP WHERE DEPTNO=30;
12 LOOP
13 FETCH CUREMP_REF INTO CURROW;
14 EXIT WHEN CUREMP_REF%NOTFOUND;
15 DBMS_OUTPUT.PUT_LINE('编号:'||CURROW.EMPNO||'姓名:'||CURROW.ENAME);
16 END LOOP;
17 CLOSE CUREMP_REF;
18 ELSE
19 DBMS_OUTPUT.PUT_LINE('2...');
20 OPEN CUREMP_REF FOR SELECT * FROM EMP WHERE JOB ='MANAGER';
21 LOOP
22 FETCH CUREMP_REF INTO CURROW;
23 EXIT WHEN CUREMP_REF%NOTFOUND;
24 DBMS_OUTPUT.PUT_LINE('编号:'||CURROW.EMPNO||'姓名:'||CURROW.ENAME);
25 END LOOP;
26 CLOSE CUREMP_REF;
27 END IF;
28 END;
29 /
Enter value for 命令: 1
old 8: COMMAND :=&命令;
new 8: COMMAND :=1;
请输入操作指令:1 和 2
1.....
编号:7499姓名:ALLEN
编号:7521姓名:WARD
编号:7654姓名:MARTIN
编号:7698姓名:BLAKE
编号:7844姓名:TURNER
编号:7900姓名:JAMES
PL/SQL procedure successfully completed.
SQL> SPOOL OFF;
[color=olive][/color][size=medium][/size]
Oracle 游标-引用游标
猜你喜欢
转载自sunzone.iteye.com/blog/1826404
今日推荐
周排行