4、子程序

回顧

練習：

declarev_name emp.ename%type:='張三';v_job emp.job%type:='游客'; beginfor n in 1..3 loopinsert into emp(empno,ename,job,mgr,hiredate,sal,deptno) values(n*10,v_name||n,v_job,8000,to_date('2020-9-16','yyyy-MM-dd'),16000,10);end loop;commit; --提交事務exceptionwhen others thenrollback; --回滾事務end;

學習目標

1、子程序

2、存儲過程

3、函數

4、包

學習內容

1、子程序

plsql:過程化的sql語言；變量、常量、匿名塊、分支語句、循環語句

子程序：命名的程序塊，存儲過程 和 函數。

2、存儲過程

分析：完成一些指定的業務，單一的命令無法搞定；比如：轉賬，分頁操作

存儲過程：類似于java中的方法，通過多條sql命令，完成一個特定的任務。

優點：

1、執行效率高：預編譯的，存儲在服務器上，第一次創建好，系統會進行預編譯；

2、減少網絡流量：代碼封裝到過程中，只需要調用過程名就行。

3、安全性：A:小明 B：小紅 C：小青

4、重用性：代碼角度考慮。

存儲過程中能寫的命令：

1、insert,update,delete,select …into 變量

2、過程控制命令(條件、循環)

3、不能寫DDL

使用存儲過程

1、定義過程

-- 創建過程 procedure:過程 create or replace procedure sp_test1(-- 參數 ) as-- 聲明部分 （臨時變量：過程中使用的變量）beginexceptionend;

2、調用過程

1 call 過程名(參數);2、 begin過程名(參數); end;3、sqlplus: execute 過程名();

栗子：

1、轉賬：無參數

create or replace procedure sp_zhuanzhang asv_money bank.balance%type:=1000; --要轉賬的錢數 beginupdate bank set balance=balance-v_money where name='李四';update bank set balance=balance+v_money where name='張三';commit;exceptionwhen others thenrollback;end;

調用:

call sp_zhuanzhang();beginsp_zhuanzhang;end;

2、轉賬：帶參數

--flag :1 ：張三---》李四 2：李四 --->張三 錢數create or replace procedure sp_zhuanzhang2 (--輸入參數--參數名 數據類型（變量聲明）flag in number,money in number ) as beginif flag=1 thenupdate bank set balance=balance-money where name='張三';update bank set balance=balance+money where name='李四';elseupdate bank set balance=balance-money where name='李四';update bank set balance=balance+money where name='張三';end if;commit;exceptionwhen others thenrollback;end;

調用：

declareflag number(1):=2;money number(5):=500; beginsp_zhuanzhang2(flag,money);end;

3、轉賬：帶輸入和輸出參數

create or replace procedure sp_zhuanzhang3 (--輸入參數--參數名 數據類型（變量聲明）flag in number,money in number,--輸出參數：調用過程后，可以在外部獲取到值的數據：類似于返回值，可以有多個balance1 out bank.balance%type,balance2 out bank.balance%type ) as beginif flag=1 thenupdate bank set balance=balance-money where name='張三';update bank set balance=balance+money where name='李四';elseupdate bank set balance=balance-money where name='李四';update bank set balance=balance+money where name='張三';end if;commit;select balance into balance1 from bank where name='張三';select balance into balance2 from bank where name='李四';exceptionwhen others thenrollback;end;

調用:

declare--聲明變量：用來接受輸出參數的值b1 bank.balance%type;b2 bank.balance%type;beginsp_zhuanzhang3(2,1000,balance2=>b1,balance1=>b2);dbms_output.put_line('張三:'||b2||'李四:'||b1); end;

過程調用中的參數傳遞

1、按照位置傳遞

2、按照名字傳值：順序無關

參數名=>變量 參數名=>變量 參數名=>變量

3、組合傳遞

? 位置傳遞+名字傳遞；位置傳遞（靠前）

3、函數

本質上跟過程一樣：必須有返回值

定義函數：

create or replace function 名字(-- 參數--名字 類型 ) return 數據類型 as beginreturn 結果; end;

例子：

1、根據部門編號查詢部門名稱

create or replace function f_getDname( -- 傳入參數 ：部門編號dno dept.deptno%type ) return varchar2 --返回字符串 asv_name dept.dname%type; beginselect dname into v_name from dept where deptno=dno;return v_name; --返回結果 end;--調用select empno,ename,deptno,f_getdname(deptno) 部門 from emp where f_getdname(deptno)='外交部';

2、根據部門編號統計部門人數

create or replace function f_getdeptcount(--參數dno number )return number asv_count number(5); beginselect count(*) into v_count from emp where deptno=dno;return v_count;end;--調用 select deptno,dname,f_getdeptcount(deptno) 人數 from dept;

3、生成隨機數字的函數

create or replace function getrandomvalue return number asn number(20); beginn:=dbms_random.value(1,10);return n; end;--調用select getrandomvalue() from dual ;

調用：

declaren number(5); beginn:=getrandomvalue();dbms_output.put_line(n); end;

4、包

包：package

一系列的過程和函數

可以根據業務的不同創建不同的包：聲明變量+過程+函數；

包：

1、包規范：類似于java中的接口

2、包體：類似于實現類

創建包規范：

create or replace package 名字 is--聲明 變量 過程 函數 end 名字;

創建包體：

create or replace package body 名字 is--實現包規范定義好的過程和函數 end;

栗子：

create or replace package myfirstpackage is--聲明 全局的變量dno dept.deptno%type;--過程：向員工表中錄入數據，不能錄入重名的procedure add_emp(vno in number,vname in varchar2);--過程：根據部門編號，刪除部門信息，只能刪除沒有員工的部門procedure del_dept(vno in number); end package;--包體 create or replace package body myfirstpackage is--過程實現procedure add_emp(vno in number,vname in varchar2)asv_count number(2);-- 滿足條件的員工的數量beginselect count(*) into v_count from emp where ename=vname;if v_count>0 then--提示錯誤消息--dbms_output.put_line('');--raise_appliction_error:拋出一個自定義的錯誤消息，錯誤號：-20000-raise_application_error(-20001,'名字重復');elseinsert into emp(empno,ename) values(vno,vname);commit;end if;end;--過程實現:根據部門編號，刪除部門信息，只能刪除沒有員工的部門procedure del_dept(vno in number)asv_count number(3);begin--根據部門編號查詢該部門對應的人數select count(*) into v_count from emp where deptno=vno;if v_count=0 thendelete from dept where deptno=vno;commit;elseraise_application_error(-20002,'該部門下有員工,無法刪除');end if; end; end myfirstpackage;

總結

1、存儲過程

2、函數

相同點：

1、預編譯、執行效率高、安全性、減少網絡流量

2、輸入參數、輸出參數

不同點：

1、函數必須指定return（返回值）

3、包：包規范和包體（實現）；

總結

以上是生活随笔為你收集整理的Oracle就业课第四课之子程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。