plsql編程及案例

plsql語(yǔ)句塊：

set serveroutput on; //打開(kāi)控制臺(tái)輸出的命令

語(yǔ)法：

declare

聲明部分

begin

//執(zhí)行部分

異常，事物，語(yǔ)句塊等

end;

變量的類型

oracle變量類型，oracle數(shù)據(jù)類型：integer varchar2等

自定義數(shù)據(jù)類型

1. 定義和列的類型保持一致

v_sal emp.sal%type;-- 和emp表sal列的類型保持一致

2. 定義和表達(dá)類型保持一致

v_emp emp%rowtype; -- 和emp表的結(jié)構(gòu)一致

3. 定義自己的封裝類（對(duì)象）

--聲明的是類型

type type_emp_name_sal is record(v_empname EMP.ENAME%type,v_empsal EMP.SAL%type);

--變量名是v_name_sal 類型是type_emp_name_sal

v_name_sal type_emp_name_sal;

4. 數(shù)組

--聲明數(shù)組類型

type int_array is table of integer index by BINARY_integer;

--int類型數(shù)組的變量

v_numbers int_array;

流程控制語(yǔ)句

1. if語(yǔ)句

if v_id = 1 then

dbms_output.put_line(v_id);

elsif v_id = 2 then

dbms_output.put_line('elsif');

else

dbms_output.put_line(v_id);

end if;

?

2. switch語(yǔ)句? case 語(yǔ)句

?

case

when v_id = 1 then

dbms_output.put_line(v_id);

when? v_id = 2 then

dbms_output.put_line('elsif');

else

dbms_output.put_line(v_id);

end case;

3. 循環(huán)語(yǔ)句

1. for循環(huán)

-- for循環(huán)

for v_i in reverse 1..10 loop

SYS.DBMS_OUTPUT.PUT_LINE(v_i);

end loop;

?

2. while循環(huán)

--while循環(huán)

while v_id < 10 loop

SYS.DBMS_OUTPUT.PUT_LINE(v_id);

--條件的改變

v_id := v_id + 1;

end loop;

3. loop循環(huán)

loop

SYS.DBMS_OUTPUT.PUT_LINE(v_id);

--條件的改變

v_id := v_id + 1;

exit when v_id = 10;

end loop;

4. 通過(guò)goto語(yǔ)句完成循環(huán)

<>

SYS.DBMS_OUTPUT.PUT_LINE(v_id);

v_id := v_id + 1;

if v_id < 10 then

goto a;

end if;

輸出菱形星號(hào)

*

***

*****

***

*

代碼：

declare

kong integer := 0;

xing integer :=0;

begin

for i in 1..5 loop

--每行由空格和星號(hào)組成

if i < 4 then

-- 1. 上半

kong := 3 - i;

xing := 2 * i - 1;

else

-- 2.下半

kong := i - 3;

xing := -2 * i + 11;

end if;

--輸出空格

for k in 1..kong loop

dbms_output.put(' ');

end loop;

--輸出星號(hào)

for k in 1..xing loop

dbms_output.put('*');

end loop;

--換行

dbms_output.new_line();

end loop;

end;

10個(gè)人圍成圈，數(shù)到3退出圈，問(wèn)最后退出的是誰(shuí)

//數(shù)數(shù)問(wèn)題

declare

v_personNumber integer := 10;--人數(shù)

v_number integer := 3;--數(shù)的數(shù)

--int 類型的數(shù)組

type int_array is table of integer index by BINARY_integer;

v_data int_array;

fang integer := 0;--放數(shù)據(jù)的下標(biāo)

qu? integer := 0;--取數(shù)據(jù)的下標(biāo)

numbers integer := 0;--存放數(shù)據(jù)的個(gè)數(shù)

v_length integer := v_personNumber;--隊(duì)列的大小

v_count integer := 0;--計(jì)數(shù)器

v_person integer := 0;--臨時(shí)存放出隊(duì)列的人

begin

-- 把人放入數(shù)組中

for i in 1..v_personNumber loop

v_data(fang) := i;

fang := fang + 1;

numbers := numbers + 1;

end loop;

-- 循環(huán)取數(shù)據(jù)判斷

while numbers <> 1 loop

--超過(guò)1個(gè)人，沒(méi)有退出圈

--出隊(duì)列

v_person := v_data(mod(qu,v_length));

qu := qu + 1;

numbers := numbers - 1;

--計(jì)數(shù)器加加

v_count := v_count + 1;

--判斷是否是v_number倍數(shù)

if mod(v_count,v_number) <> 0 then

--不是，添加到隊(duì)列

v_data(mod(fang,v_length)) := v_person;

fang := fang+1;

numbers := numbers + 1;

end if;

end loop;

--輸出結(jié)果

dbms_output.put_line(v_data(mod(qu,v_length)));

end;

plsql操作數(shù)據(jù)

分析： 對(duì)emp集體漲工資，漲幅不一致， 1000以內(nèi) 40%? 1000-2000 30% 2000-3000 20 3000 10%

declare

-- 數(shù)據(jù)全部取出

--數(shù)組存放數(shù)據(jù)（相當(dāng)于jdbc中的結(jié)果集封裝）

--員工編號(hào)和員工的薪水

type type_empno_sal is record (v_empno EMP.empno%type,v_sal EMP.SAL%type);

--定義員工數(shù)組

type type_emps_list is table of type_empno_sal index by binary_integer;

--定義保存員工信息的容器

v_emps_no_sals type_emps_list;

v_rows integer;--存放多少條數(shù)據(jù)

begin

select count(1) into v_rows from emp;

--去員工表每行信息，存儲(chǔ)到容器中

for r in 1..v_rows loop

select empno,sal into v_emps_no_sals(r - 1) from (select rownum num,emp.* from emp) e where? e.num = r;

end loop;

for r in 1..v_rows loop

case

when v_emps_no_sals(r-1).v_sal <= 1000 then

update emp set sal = sal * 1.4 where empno = v_emps_no_sals(r-1).v_empno;

when v_emps_no_sals(r-1).v_sal > 1000 and? v_emps_no_sals(r-1).v_sal <= 2000 then

update emp set sal = sal * 1.3 where empno = v_emps_no_sals(r-1).v_empno;

when v_emps_no_sals(r-1).v_sal > 2000 and? v_emps_no_sals(r-1).v_sal <= 3000 then

update emp set sal = sal * 1.2 where empno = v_emps_no_sals(r-1).v_empno;

else

update emp set sal = sal * 1.1 where empno = v_emps_no_sals(r-1).v_empno;

end case;

end loop;

commit;

end;

游標(biāo)

1.聲明游標(biāo)

2.打開(kāi)游標(biāo)

3.循環(huán)提前游標(biāo)

4.關(guān)閉游標(biāo)（釋放游標(biāo)占用的空間）

案例： 游標(biāo)實(shí)現(xiàn)降薪處理

declare

--聲明游標(biāo)

cursor v_emp_cur is select empno,sal from emp;

--信息封裝

type type_empno_sal is record (v_empno EMP.empno%type,v_sal EMP.SAL%type);

v_temp_empno_sal type_empno_sal;

begin

-- 打卡游標(biāo)

open v_emp_cur;

-- 循環(huán)提取游標(biāo)

loop

--去當(dāng)前游標(biāo)所在行的數(shù)據(jù)

fetch v_emp_cur into v_temp_empno_sal;

--判斷提取成功或失敗

if v_emp_cur%found then

--游標(biāo)有數(shù)據(jù)

-- SYS.DBMS_OUTPUT.PUT_LINE(v_temp_empno_sal.v_empno||'<>'||v_temp_empno_sal.v_sal);

case

when v_temp_empno_sal.v_sal > 3000 then

update emp set sal = sal * 0.6 where empno = v_temp_empno_sal.v_empno;

when v_temp_empno_sal.v_sal > 2000 and v_temp_empno_sal.v_sal<= 3000 then

update emp set sal = sal * 0.7 where empno = v_temp_empno_sal.v_empno;

when v_temp_empno_sal.v_sal > 1500 and? v_temp_empno_sal.v_sal <= 2000 then

update emp set sal = sal * 0.8 where empno = v_temp_empno_sal.v_empno;

else

update emp set sal = sal * 0.99 where empno = v_temp_empno_sal.v_empno;

end case;

else

--游標(biāo)提取完畢

exit;

end if;

commit;

end loop;

--關(guān)閉游標(biāo)

close v_emp_cur;

end;

案例2： for循環(huán)與游標(biāo)

declare

--聲明游標(biāo)

cursor cur_emp_no_sal(v_deptno emp.deptno%type) is select empno,sal from emp where deptno= v_deptno;

begin

--for循環(huán)提取游標(biāo)

for v_empno_sal in cur_emp_no_sal(10) loop

SYS.DBMS_OUTPUT.PUT_LINE(v_empno_sal.empno||'<>'||v_empno_sal.sal);

end loop;

end;

異常處理

根據(jù)異常名字exceptionwhen Too_many_rows then

SYS.DBMS_OUTPUT.PUT_LINE('Too_many_rows');

when others then

注意： others只能寫(xiě)在最后面

根據(jù)錯(cuò)誤代號(hào)exceptionwhen others then

case

when sqlcode=-1476 then

DBMS_OUTPUT.PUT_LINE('被0整除異常');

when sqlcode = -1422 then

DBMS_OUTPUT.PUT_LINE('返回多條記錄賦值');

else

DBMS_OUTPUT.PUT_LINE('其他異常');

end case;

--? SYS.DBMS_OUTPUT.PUT_LINE('出現(xiàn)異常了'||sqlcode||'<>'||sqlerrm);--? rollback;

自定義異常

declaremy_exec exception;my_exec2 exception;--把自定義異常和錯(cuò)誤代號(hào)綁定pragma EXCEPTION_INIT (my_exec2, -9527);beginif 3 > 2 then

--拋出異常 throw new 對(duì)象

raise my_exec2;

end if;

exception

when my_exec then

SYS.DBMS_OUTPUT.PUT_LINE('自定義異常'||sqlcode);

when my_exec2 then

SYS.DBMS_OUTPUT.PUT_LINE('自定義異常2<>'||sqlcode);

when others then

SYS.DBMS_OUTPUT.PUT_LINE('其他異常');

end;

4.自定義異常2

declare

my_exec exception;

my_exec2 exception;

pragma EXCEPTION_INIT (my_exec2, -9527);

begin

if 3 > 2 then

--拋出異常 throw new 對(duì)象 -20000 到 -20999

RAISE_APPLICATION_ERROR(-20000, '我的異常');

end if;

exception

when my_exec then

SYS.DBMS_OUTPUT.PUT_LINE('自定義異常'||sqlcode);

when my_exec2 then

SYS.DBMS_OUTPUT.PUT_LINE('自定義異常2<>'||sqlcode);

when others then

SYS.DBMS_OUTPUT.PUT_LINE('其他異常'||sqlcode);

end;

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書(shū)系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容