PL/SQL結(jié)構(gòu)分為三塊：declare、begin、exception。其中begin必不可少。

塊一：

declare的作用是申明變量，包括變量的名稱及其相關(guān)屬性和是否定義初始值。

其相關(guān)屬性包括數(shù)據(jù)類型，長度。 其初始值定義時可以用:=也可以用default，當(dāng)用constant對數(shù)據(jù)類型進(jìn)行修飾之后，必須賦予初始值。

其次，對于變量的類型也可以定義為記錄型：%rowtype ；也可以定義成與某個字段類型相同，如%type。

實例：

1.%type

declare
V_ename emp.ename%type ;
begin
? select ename into V_ename from emp where empno = 7788 ;
? dbms_output.put_line('員工姓名為：'||V_ename) ;
end ;
/

2.%rowtype

declare
V_empRecord emp%rowtype ;
begin
? select * into V_empRecord from emp where empno = 7788 ;
? dbms_output.put_line('員工姓名：'||V_empRecord.ename) ;
? dbms_output.put_line('員工職位：'||V_empRecord.job) ;
? dbms_output.put_line('部門編號：'||V_empRecord.deptno) ;
? dbms_output.put_line('薪水：'||V_empRecord.sal) ;
? end ;
? /

塊二：

begin的作用是程序控制，它的內(nèi)容包含SQL語句和邏輯語句。如，條件分支結(jié)構(gòu)，循環(huán)結(jié)構(gòu)。

條件分支結(jié)構(gòu)：

結(jié)構(gòu)，

1）if 條件 then

　　　　statement1 ;

　　end if ;

?2)if 條件 then

　　　　statement1 ;

　　else

　　　　statement2 ;

　　end if ;

3)if 條件 then

　　　　statement1 ;

　　elsif

　　　　statement2 ;

　　else

　　　　statement3 ;

　　end if ;

實例：

1.?
declare
V_empno emp.empno%type:=7788 ;
V_sal emp.sal%type ;
begin
?select sal into V_sal from emp where V_empno = empno ;
?if V_sal < 1500 then
?update emp set sal = sal + 100 where empno = V_empno ;
?end if ;
?end ;
? /?

循環(huán)結(jié)構(gòu)：

結(jié)構(gòu)，

1）基本循環(huán)，

LOOP

　　語句序列

　　EXIT WHEN 布爾型表達(dá)式（為真） ;

END LOOP ;

實例：

1.
--向部門表中插入10條數(shù)據(jù)，部門編號從41到50
declare
??? V_counter binary_integer:=41 ; --pl/sql整型數(shù)據(jù)類型 binary_integer????????????????????????????
??? begin
????? LOOP
????? insert into dept(deptno,dname) values(V_counter,'loop') ;--語句序列
????? V_counter:=V_counter + 1 ;
????? EXIT WHEN V_counter > 50 ;--布爾表達(dá)式（為真）
????? END LOOP ;
????? commit ;
????? end ;
????? /

2）WHILE_LOOP循環(huán)，

WHILE 條件 LOOP

　　語句序列

END LOOP ;

實例：

1.
--向部門表中插入10條數(shù)據(jù)，部門編號從51到60
declare
V_counter binary_integer:=51 ;
begin
? WHILE V_counter <= 60 LOOP? --條件
? insert into dept(deptno,dname) values (V_counter,'while loop') ; --語句序列
? V_counter := V_counter + 1 ;
END LOOP ;
commit ;
end;
/

3）數(shù)值for_LOOP循環(huán)，

FOR 計數(shù)器 IN 低界...高界 LOOP

　　語句序列

END LOOP ;

?實例：

--向部門表中插入5條數(shù)據(jù)，部門編號從61到65
declare
? V_counter binary_integer ;
begin
? FOR V_counter IN 61..65? LOOP? --FOR 計數(shù)器 IN [REVERES]低界..高界? LOOP
? insert into dept(deptno,dname) values (V_counter,'for loop') ;--語句序列
END LOOP ;
commit ;
end ;
/

塊三：異常處理exception

結(jié)構(gòu)，

exception

　　WHEN first_exception THEN <code to handle first exception>

　　WHEN second_exception THEN <code to handle second exception>

　　WHEN others THEN <code to handle others exception>

實例：

--EXCEPTION 實例
declare
V_job emp.job%type := 'ANALYST' ;
V_sal emp.sal%type ;
begin
? select sal into V_sal from emp where job = V_job ;
? if V_sal <= 1500 then? --condition
?update emp set sal = sal + 100 WHERE job = V_job ;? --statement1
? end if ;
exception
? WHEN NO_DATA_FOUND THEN
??? DBMS_OUTPUT.put_line('數(shù)據(jù)庫中沒有編碼為'||V_job||'的員工') ;
? WHEN TOO_MANY_ROWS THEN
??? DBMS_OUTPUT.put_line('程序運(yùn)行錯誤！請使用游標(biāo)') ;?
? WHEN OTHERS THEN
??? DBMS_OUTPUT.put_line('發(fā)生其它錯誤！') ;
end ;
/ --由于有多個記錄的job是‘ANALYST’，因此在執(zhí)行程序的過程中無法給未指明的記錄進(jìn)行更新因而報錯。如果沒有異常處理，程序?qū)o法執(zhí)行而停止。而異常處理使得程序執(zhí)行完畢，不影響之后的程序。

PL/SQL結(jié)構(gòu)學(xué)習(xí)