Oracle基本PLSQL的使用實例詳解
PL/SQL 塊是在 SQL 語言之上發(fā)展起來的一種應(yīng)用，可以集中的處理各種復(fù)雜的 SQL 操 作。
組成：
DECLARE： 聲明部分 BEGIN 編寫主題 EXCEPTION 捕獲異常 END;
1.一個簡單的PL/SQL塊
DECLARE i number; BEGIN I:=30; DBMS_OUTPUT.put_line('I的內(nèi)容為:'||i); END; 此時，直接執(zhí)行程序即可。
執(zhí)行之后發(fā)現(xiàn)沒有任何的輸出。因為 Oracle 在系統(tǒng)設(shè)置中默認設(shè)置了輸出不顯示，如果要 顯示的話，輸入以下命令：
set serveroutput on;如果是使用Toad，則可以在Desktop中選擇PLSQL，并打開DBMS OUTPUT。
帶異常的語句塊
DECLARE i number; BEGIN i:=1/0; EXCEPTION when ZERO_DIVIDE then DBMS_OUTPUT.put_line("There is a Exception"); END; 注意：輸出字符串應(yīng)該使用單引號''。
2.PL/SQL塊還可以接收用戶的輸入信息，例如：現(xiàn)在要求用戶輸入一個雇員編號，之后根據(jù)輸入的內(nèi)容進行查詢，查詢雇員的姓名。
用戶的輸入信息使用“&”完成
DECLARE eno number; en varchar(20); BEGIN --輸入的信息保存在eno里 eno:=&no; --之后根據(jù)eno的值，對數(shù)據(jù)庫進行查詢操作。 select ename into en from emp where empno = eno; DBMS_OUTPUT.put_line('編號為:'||eno||'雇員的姓名為:'||en); EXCEPTION WHEN no_data_found THEN DBMS_OUTPUT.put_line('沒有此雇員'); END; 3.在以上的查詢中再進一步：可以根據(jù)雇員的編號查出姓名及其領(lǐng)導(dǎo)的姓名和所在的部門， 進行顯示。
DECLARE eno emp.empno%TYPE ; en emp.ename%TYPE ; mn emp.ename%TYPE ; dn dept.dname%TYPE ; dept dept %rowtype ; BEGIN -- 輸入的信息保存在 eno 里 eno := &no ; -- 之后根據(jù) eno 的值，對數(shù)據(jù)庫進行查詢操作 SELECT e.ename,m.ename,d.dname INTO en,mn,dn FROM emp e,dept d,emp m WHERE e.empno=7369 AND e.mgr=m.empno AND e.deptno=d.deptno ; DBMS_OUTPUT.put_line('編號為：'||eno||'雇員的姓名為：'||en) ; DBMS_OUTPUT.put_line('編號為：'||eno||'雇員的上級姓名為：'||mn) ; DBMS_OUTPUT.put_line('編號為：'||eno||'雇員所在的部門：'||dn) ; DBMS_OUTPUT.put_line(dept.deptno) ; EXCEPTION WHEN no_data_found THEN DBMS_OUTPUT.put_line('沒有此雇員') ; END ; 說明：
• no_data_found 一種異常類型：沒有發(fā)現(xiàn)數(shù)據(jù)
• emp.empno%TYPE ; ：表示以 emp 表中的 empno 字段的類型定義變量
• e.ename,m.ename,d.dname INTO en,mn,dn：一次可以同時放進去多個值
dept dept %rowtype ; 表示 dept 是一行數(shù)據(jù)
PL/SQL 之中也包含了：循環(huán)、分支等條件控制語句
4.Loop 循環(huán)（類似do…while）
格式：
LOOP 循環(huán)的語句 ; EXIT WHEN 終止條件 ; 循環(huán)條件必須更改 ; END LOOP ;
例如：循環(huán)輸出 1~10。
DECLARE countNum NUMBER ; BEGIN --必須賦初值 countNum := 1 ; LOOP DBMS_OUTPUT.put_line('countNum = '||countNum) ; EXIT WHEN countNum>10 ; countNum := countNum + 1 ; END LOOP ; END ; 注意：count關(guān)鍵字只能在sql語句中使用
此循環(huán)是先執(zhí)行一次之后再進行判斷，執(zhí)行結(jié)果到11結(jié)束循環(huán)
5.while 循環(huán)
格式：
WHILE(判斷循環(huán)的條件) LOOP 循環(huán)的語句 ; 循環(huán)條件的改變 ; END LOOP ;
使用此語句修改上面的程序：
DECLARE countNum NUMBER ; BEGIN --必須賦初值 countNum := 1 ; WHILE(countNum<10) LOOP DBMS_OUTPUT.put_line('countNum = '||countNum) ; countNum := countNum + 1 ; END LOOP ; END ; 此語句，是先判斷，如果滿足條件則繼續(xù)執(zhí)行循環(huán)體，執(zhí)行結(jié)果到9結(jié)束循環(huán)
6.for 循環(huán)
格式： FOR 變量名稱 in 變量的初始值..結(jié)束值 LOOP 循環(huán)語句 ; END LOOP ; 修改上例： DECLARE countNum NUMBER ; BEGIN FOR countNum IN 1..10 LOOP DBMS_OUTPUT.put_line('countNum = '||countNum) ; END LOOP ; END ; 此語句countNum大于等于1小于等于10，最后輸出1-10
7.if語句
條件判斷
格式：
IF 條件 THEN 滿足條件時，執(zhí)行此語句 END IF ;
例：
DECLARE countNum NUMBER ; BEGIN countNum := 11 ; IF countNum>10 THEN DBMS_OUTPUT.put_line('countNum = '||countNum) ; END IF ; END ; 條件語句，滿足條件，執(zhí)行一次
8.IF…ELSE 語句
如果 IF 滿足了，則執(zhí)行，否則執(zhí)行 ELSE
例：
DECLARE countNum NUMBER ; BEGIN countNum := 1 ; IF countNum>10 THEN DBMS_OUTPUT.put_line('countNum = '||countNum) ; ELSE DBMS_OUTPUT.put_line('條件不不成立') ; END IF ; END ; 條件不滿足執(zhí)行else后面的語句
9.if…elsif…else 語句
例：
DECLARE countNum NUMBER ; BEGIN countNum := 1 ; IF countNum>10 THEN DBMS_OUTPUT.put_line('countNum = '||countNum); ELSIF countNum<5 THEN DBMS_OUTPUT.put_line('值小于 5'); ELSE DBMS_OUTPUT.put_line('條件不滿足'); END IF ; END ; 多重判斷語句，滿足條件執(zhí)行對應(yīng)的跳轉(zhuǎn)
10.goto語句
無條件跳轉(zhuǎn)語句
用于程序控制非條件跳至指定標簽<<???>>。不易控制和維護，慎用！
DECLARE eno emp.empno%TYPE ; sal emp.sal%TYPE ; BEGIN eno := &en ; SELECT sal INTO sal FROM emp WHERE empno=eno ; IF sal>3500 THEN goto po1 ; ELSIF sal>2000 THEN goto po2 ; ELSE goto po3 ; END IF; --標簽 <<po1>> DBMS_OUTPUT.put_line('高工資。。。') ; <<po2>> DBMS_OUTPUT.put_line('中等工資。。') ; <<po3>> DBMS_OUTPUT.put_line('低工資。。。') ; END; 感謝閱讀，希望能幫助到大家，謝謝大家對本站的支持！
新聞熱點
疑難解答
圖片精選
