【文章內(nèi)容簡介】 OOP。 15. END。 Sql代碼 1. SETSERVEROUTPUTON2. DECLARE3. V_empnoNUMBER(5)。 4. V_enameVARCHAR2(10)。 5. CURSORemp_cursor(p_deptnoNUMBER,p_jobVARCHAR2)IS6. SELECTempno,enameFROMemp 7. WHEREdeptno=p_deptnoANDjob=p_job。 8. BEGIN9. OPENemp_cursor(10,39。CLERK39。)。 10. LOOP 11. FETCHemp_cursorINTOv_empno,v_ename。 12. EXITWHENemp_cursor%NOTFOUND。 13. (v_empno||39。,39。||v_ename)。 14. ENDLOOP。 15. END。SET SERVEROUTPUT ON DECLARE V_empno NUMBER(5)。 V_ename VARCHAR2(10)。 CURSOR emp_cursor(p_deptno NUMBER, p_job VARCHAR2) IS SELECT empno, ename FROM emp WHERE deptno = p_deptno AND job = p_job。BEGIN OPEN emp_cursor(10, 39。CLERK39。)。 LOOP FETCH emp_cursor INTO v_empno,v_ename。 EXIT WHEN emp_cursor%NOTFOUND。 (v_empno||39。,39。||v_ename)。 END LOOP。 END。執(zhí)行結(jié)果為：Sql代碼 1. 7934,MILLER 2. PL/SQL過程已成功完成。 Sql代碼 1. 7934,MILLER 2. PL/SQL過程已成功完成。7934,MILLER PL/SQL 過程已成功完成。說明：游標(biāo)emp_cursor定義了兩個(gè)參數(shù)：p_deptno代表部門編號(hào)，p_job代表職務(wù)。語句OPEN emp_cursor(10, 39。CLERK39。)傳遞了兩個(gè)參數(shù)值給游標(biāo)，即部門為職務(wù)為CLERK，所以游標(biāo)查詢的內(nèi)容是部門10的職務(wù)為CLERK的雇員。循環(huán)部分用于顯示查詢的內(nèi)容。 【練習(xí)1】修改Open語句的參數(shù)：部門號(hào)為職務(wù)為ANALYST，并重新執(zhí)行。 也可以通過變量向游標(biāo)傳遞參數(shù)，但變量需要先于游標(biāo)定義，并在游標(biāo)打開之前賦值。對(duì)以上例子重新改動(dòng)如下： 【訓(xùn)練2】 通過變量傳遞參數(shù)給游標(biāo)。Sql代碼 1. SETSERVEROUTPUTON 2. DECLARE 3. v_empnoNUMBER(5)。 4. v_enameVARCHAR2(10)。 5. v_deptnoNUMBER(5)。 6. v_jobVARCHAR2(10)。 7. CURSORemp_cursorIS 8. SELECTempno,enameFROMemp 9. WHEREdeptno=v_deptnoANDjob=v_job。 10. BEGIN 11. v_deptno:=10。 12. v_job:=39。CLERK39。 13. OPENemp_cursor。 14. LOOP 15. FETCHemp_cursorINTOv_empno,v_ename。 16. EXITWHENemp_cursor%NOTFOUND。 17. (v_empno||39。,39。||v_ename)。 18. ENDLOOP。 19. END。 Sql代碼 1. SETSERVEROUTPUTON2. DECLARE3. v_empnoNUMBER(5)。 4. v_enameVARCHAR2(10)。 5. v_deptnoNUMBER(5)。 6. v_jobVARCHAR2(10)。 7. CURSORemp_cursorIS8. SELECTempno,enameFROMemp 9. WHEREdeptno=v_deptnoANDjob=v_job。 10. BEGIN11. v_deptno:=10。 12. v_job:=39。CLERK39。 13. OPENemp_cursor。 14. LOOP 15. FETCHemp_cursorINTOv_empno,v_ename。 16. EXITWHENemp_cursor%NOTFOUND。 17. (v_empno||39。,39。||v_ename)。 18. ENDLOOP。 19. END。SET SERVEROUTPUT ON DECLARE v_empno NUMBER(5)。 v_ename VARCHAR2(10)。 v_deptno NUMBER(5)。v_job VARCHAR2(10)。 CURSOR emp_cursor IS SELECT empno, ename FROM emp WHERE deptno = v_deptno AND job = v_job。 BEGIN v_deptno:=10。 v_job:=39。CLERK39。 OPEN emp_cursor。 LOOP FETCH emp_cursor INTO v_empno,v_ename。 EXIT WHEN emp_cursor%NOTFOUND。(v_empno||39。,39。||v_ename)。 END LOOP。 END。執(zhí)行結(jié)果為：Sql代碼 1. 7934,MILLER 2. PL/SQL過程已成功完成。 Sql代碼 1. 7934,MILLER 2. PL/SQL過程已成功完成。7934,MILLER PL/SQL 過程已成功完成。說明：該程序與前一程序?qū)崿F(xiàn)相同的功能。 動(dòng)態(tài)SELECT語句和動(dòng)態(tài)游標(biāo)的用法 Oracle支持動(dòng)態(tài)SELECT語句和動(dòng)態(tài)游標(biāo)，動(dòng)態(tài)的方法大大擴(kuò)展了程序設(shè)計(jì)的能力。 對(duì)于查詢結(jié)果為一行的SELECT語句，可以用動(dòng)態(tài)生成查詢語句字符串的方法，在程序執(zhí)行階段臨時(shí)地生成并執(zhí)行，語法是： execute immediate 查詢語句字符串 into 變量1[,變量2...]。 以下是一個(gè)動(dòng)態(tài)生成SELECT語句的例子。 【訓(xùn)練1】 動(dòng)態(tài)SELECT查詢。Sql代碼 1. SETSERVEROUTPUTON 2. DECLARE 3. strvarchar2(100)。 4. v_enamevarchar2(10)。 5. begin 6. str:=39。selectenamefromwhereempno=778839。 7. executeimmediatestrintov_ename。 8. (v_ename)。 9. END。 Sql代碼 1. SETSERVEROUTPUTON 2. DECLARE 3. strvarchar2(100)。 4. v_enamevarchar2(10)。 5. begin6. str:=39。selectenamefromwhereempno=778839。 7. executeimmediatestrintov_ename。 8. (v_ename)。 9. END。SET SERVEROUTPUT ON DECLARE str varchar2(100)。 v_ename varchar2(10)。 begin str:=39。select ename from where empno=778839。 execute immediate str into v_ename。 (v_ename)。 END。 執(zhí)行結(jié)果為：Sql代碼 1. SCOTT 2. PL/SQL過程已成功完成。 Sql代碼 1. SCOTT 2. PL/SQL過程已成功完成。SCOTT PL/SQL 過程已成功完成。說明：SELECT...INTO...語句存放在STR字符串中，通過EXECUTE語句執(zhí)行。 在變量聲明部分定義的游標(biāo)是靜態(tài)的，不能在程序運(yùn)行過程中修改。雖然可以通過參數(shù)傳遞來取得不同的數(shù)據(jù)，但還是有很大的局限性。通過采用動(dòng)態(tài)游標(biāo)，可以在程序運(yùn)行階段隨時(shí)生成一個(gè)查詢語句作為游標(biāo)。要使用動(dòng)態(tài)游標(biāo)需要先定義一個(gè)游標(biāo)類型，然后聲明一個(gè)游標(biāo)變量，游標(biāo)對(duì)應(yīng)的查詢語句可以在程序的執(zhí)行過程中動(dòng)態(tài)地說明。 定義游標(biāo)類型的語句如下： TYPE 游標(biāo)類型名 REF CURSOR。 聲明游標(biāo)變量的語句如下： 游標(biāo)變量名 游標(biāo)類型名。 在可執(zhí)行部分可以如下形式打開一個(gè)動(dòng)態(tài)游標(biāo)： OPEN 游標(biāo)變量名 FOR 查詢語句字符串。 【訓(xùn)練2】 按名字中包含的字母順序分組顯示雇員信息。 輸入并運(yùn)行以下程序：Sql代碼 1. declare 2. typecur_typeisrefcursor。 3. curcur_type。 4. rec%rowtype。 5. strvarchar2(50)。 6. letterchar:=39。A39。 7. begin 8. loop 9. str:=39。selectenamefromempwhereenamelike39。39。%39。||letter||39。%39。39。39。 10. opencurforstr。 11. (39。包含字母39。||letter||39。的名字：39。)。 12. loop 13. fetchcurinto 14. exitwhencur%notfound。 15. ()。 16. endloop。 17. exitwhenletter=39。Z39。 18. letter:=chr(ascii(letter)+1)。 19. endloop。 20. end。 Sql代碼 1. declare 2. typecur_typeisrefcursor。 3. curcur_type。 4. rec%rowtype。 5. strvarchar2(50)。 6. letterchar:=39。A39。 7. begin8. loop 16