快捷導航

Oracle基本PLSQL的使用實例詳解

更新時間：2017年05月15日 10:56:58 作者：sky凌亂的微笑

這篇文章主要介紹了Oracle基本PLSQL的使用實例詳解的相關(guān)資料,需要的朋友可以參考下

Oracle基本PLSQL的使用實例詳解

PL/SQL 塊是在 SQL 語言之上發(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;

注意：輸出字符串應該使用單引號''。

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)導的姓名和所在的部門，進行顯示。

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í)行對應的跳轉(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;

感謝閱讀，希望能幫助到大家，謝謝大家對本站的支持！

您可能感興趣的文章: