Oracle自定义函数
2019獨(dú)角獸企業(yè)重金招聘Python工程師標(biāo)準(zhǔn)>>>
Oracle自定義函數(shù)
用戶定義函數(shù)是存儲在數(shù)據(jù)庫中的代碼塊，可以把值返回到調(diào)用程序。調(diào)用時如同系統(tǒng)函數(shù)一樣，如max(value)函數(shù)，其中，value被稱為參數(shù)。函數(shù)參數(shù)有3種類型。
IN?參數(shù)類型：表示輸入給函數(shù)的參數(shù)。
OUT?參數(shù)類型：表示參數(shù)在函數(shù)中被賦值，可以傳給函數(shù)調(diào)用程序。
IN OUT參數(shù)類型：表示參數(shù)既可以傳值也可以被賦值。
１、語法格式：
SQL語法方式創(chuàng)建的語法格式為：
CREATE?OR?REPLACE?FUNCTION?function_name?????????/*函數(shù)名稱*/
(
Parameter_name1,mode1 datatype1, ?/*參數(shù)定義部分*/
Parameter_name2,mode2 datatype2,
Parameter_name3,mode3 datatype3
…
)
RETURN?return_datatype /*定義返回值類型*/
IS/AS
BEGIN
?????? Function_body ?/*函數(shù)體部分*/
??????RETURN?scalar_expression????????????????????????/*返回語句*/
END?function_name;
??
說明：
function_name:：用戶定義的函數(shù)名。函數(shù)名必須符合標(biāo)示符的定義規(guī)則，對其所有者來說，該名在數(shù)據(jù)庫中是唯一的。
parameter：用戶定義的參數(shù)。用戶可以定義一個或多個參數(shù)。
mode：參數(shù)類型。
datatype：用戶定義參數(shù)的數(shù)據(jù)類型。
return_type:：用戶返回值的數(shù)據(jù)類型。
函數(shù)返回scalar_expression表達(dá)式的值，function_body函數(shù)體由pl/sql語句構(gòu)成。
２、示例
函數(shù)代碼：
create?or?replace?function?T01001_count
return?number
is
count_T01001?number;
begin
select?count(*)?into?count_T01001?from?T01001;
return(count_T01001);
end?T01001_count;??????????????????--記得一定要打分號
調(diào)用：
declare
i?number;
begin
i:=T01001_count();
dbms_output.put_line(to_char(i));
end; ?--記得一定要打分號
注意：
(1)????如果函數(shù)沒有參數(shù)，那么函數(shù)名后不應(yīng)該要括號；
(2)????創(chuàng)建函數(shù)的時候end后面一定要記得寫函數(shù)名
--沒有參數(shù)的函數(shù)????
create or replace function get_user return varchar2 is???
? v_user varchar2(50);????
begin???
? select username into v_user from user_users;????
? return v_user;????
end get_user;????
???
--測試????
方法一????
select get_user from dual;????
???
方法二????
SQL> var v_name varchar2(50)????
SQL> exec :v_name:=get_user;????
???
PL/SQL 過程已成功完成。????
???
SQL> print v_name????
???
V_NAME????
------------------------------????
TEST????
???
方法三????
SQL> exec dbms_output.put_line('當(dāng)前數(shù)據(jù)庫用戶是：'||get_user);????
當(dāng)前數(shù)據(jù)庫用戶是：TEST????
???
PL/SQL 過程已成功完成。???
--沒有參數(shù)的函數(shù)
create or replace function get_user return varchar2 is
v_user varchar2(50);
begin
select username into v_user from user_users;
return v_user;
end get_user;
--測試
方法一
select get_user from dual;
方法二
SQL> var v_name varchar2(50)
SQL> exec :v_name:=get_user;
PL/SQL 過程已成功完成。
SQL> print v_name
V_NAME
------------------------------
TEST
方法三
SQL> exec dbms_output.put_line('當(dāng)前數(shù)據(jù)庫用戶是：'||get_user);
當(dāng)前數(shù)據(jù)庫用戶是：TEST
PL/SQL 過程已成功完成。
Sql代碼?
--帶有IN參數(shù)的函數(shù)????
create or replace function get_empname(v_id in number) return varchar2 as???
? v_name varchar2(50);????
begin???
? select name into v_name from employee where id = v_id;????
?? return v_name;????
exception????
? when no_data_found then???
??? raise_application_error(-20001, '你輸入的ID無效！');????
end get_empname;???
--帶有IN參數(shù)的函數(shù)
create or replace function get_empname(v_id in number) return varchar2 as
v_name varchar2(50);
begin
select name into v_name from employee where id = v_id;
return v_name;
exception
when no_data_found then
raise_application_error(-20001, '你輸入的ID無效！');
end get_empname;
?
附：
函數(shù)調(diào)用限制
1、SQL語句中只能調(diào)用存儲函數(shù)(服務(wù)器端),而不能調(diào)用客戶端的函數(shù)
2、SQL只能調(diào)用帶有輸入?yún)?shù),不能帶有輸出,輸入輸出函數(shù)
3、SQL不能使用PL/SQL的特有數(shù)據(jù)類型(boolean,table,record等)
4、SQL語句中調(diào)用的函數(shù)不能包含INSERT,UPDATE和DELETE語句
?
查看函數(shù)院源代碼
oracle會將函數(shù)名及其源代碼信息存放到數(shù)據(jù)字典中user_source?
select text from user_source where name='GET_EMPNAME';
刪除函數(shù)
drop function get_empname
不帶任何參數(shù)
create or replace function get_user return varchar2 is
Result varchar2(50);
begin
select username into Result from user_users;
return(Result);
end get_user;
執(zhí)行:
帶in參數(shù)的
create or replace function get_sal(empname in varchar2) return number is
Result number;
begin
select sal into Result from emp where ename=empname;
return(Result);
end get_sal;
執(zhí)行: SQL> var sal number
SQL> exec :sal:=get_sal('scott');
帶out參數(shù)的函數(shù)
create or replace function get_info(e_name varchar2,job out varchar2) return number is
Result number;
begin
select sal,job into Result,job from emp where ename=e_name;
return(Result);
end get_info;
執(zhí)行: SQL> var job varchar2(20)
SQL> var dname varchar2(20)
SQL> exec :dname:=get_info('SCOTT',:job)
帶in out參數(shù)的函數(shù)
create or replace function result(num1 number,num2 in out number) return number is
v_result number(6);
v_remainder number;
begin
v_result :=num1/num2;
v_remainder :=mod(num1,num2);
num2 :=v_remainder;
return(v_result);
Exception
when zero_divide then
raise_application_error(-20000,'不能除0');
end result;
執(zhí)行: var result1 number;
var result2 number;
exec :result2:=30
exec :result1:=result(100,:result2)
eg:
1 、一個最簡單的自定義函數(shù)Fun_test1的定義。
create or replace function Fun_test1(p_1 number)--Fun_test1是函數(shù)名，有一個輸入?yún)?shù)p_1，是number型的。返回值也是number型的
return number
IS
begin
if p_1>0 then
return 1;
elsif p_1=0 then
return 0;
else
return -1;
end if;
end;
--這個函數(shù)只是可以知道自定義函數(shù)的定義和格式。其實(shí)沒什么用途。
2、Fun_test1自定義函數(shù)的調(diào)用的存儲過程Pro_Fun_test1_1示例：
create or replace procedure Pro_Fun_test1_1(
p1_in in number,
p2_out out number
)
AS
begin
p2_out:=Fun_test1(p1_in);
end Pro_Fun_test1_1;
--一個輸入?yún)?shù)，一個輸出參數(shù)
3、Fun_test1自定義函數(shù)的調(diào)用的存儲過程Pro_Fun_test1_2示例：
create or replace procedure Pro_Fun_test1_2(
p1_in in number,
p2_out out number
)
AS
t_1 number;
begin
select Fun_test1(p1_in)+100 INTO p2_out
from bill_org where org_ID=1;
end Pro_Fun_test1_2;
--自定義函數(shù)的調(diào)用方法和Oracle的其它內(nèi)部函數(shù)是一樣的。
二、包的定義和使用入門
包一般是過程和函數(shù)的集合,對過程和函數(shù)進(jìn)行更好的封裝,一般不針對字段。
包的構(gòu)成包括包頭和包體。
1、包頭的定義：
包頭僅僅只是對包中的方法進(jìn)行說明,而沒有實(shí)現(xiàn)
語法：
create or replace package myPackage_1
is
procedure syaHello(vname varchar2);--申明了該包中的一個過程
end;
2、包體的定義：
包體是對包頭中定義的過程、函數(shù)的具體實(shí)現(xiàn)。
create or replace package body myPackage_1
is
procedure syaHello(vname varchar2)--對包中定義的過程的實(shí)現(xiàn)
is
begin
dbms_output.put_line('Hello '||vname);
end;
end;
要注意的是：
create or replace package后面的名稱必須和create or replace package body后面的名稱一致，
如果將create or replace package body后面的名稱改為，'MYPACKAGE'
否則將會出現(xiàn)諸如下面的錯誤：
必須說明標(biāo)識符 'MYPACKAGE'
3、調(diào)用包用的自定義方法：
create or replace procedure Pro_test_package(
p1_in string
)
AS
begin
myPackage_1.syaHello(p1_in);
end Pro_test_package;
eg2:
--沒有參數(shù)的函數(shù)
create or replace function get_user return varchar2 is v_user varchar2(50);
begin
select username into v_user from user_users;
return v_user;
return v_user;
--測試
方法一
select get_user from dual;
方法二
SQL> var v_name varchar2(50)
SQL> exec :v_name:=get_user;
--帶有IN參數(shù)的函數(shù)
create or replace function get_empname(v_id in number) return varchar2 as v_name varchar2(50);
begin
select name into v_name from employee where id = v_id;
return v_name;
exception
when no_data_found then raise_application_error(-20001, '你輸入的ID無效!');
end get_empname;
附：
函數(shù)調(diào)用限制
1、SQL語句中只能調(diào)用存儲函數(shù)(服務(wù)器端),而不能調(diào)用客戶端的函數(shù)
2、SQL只能調(diào)用帶有輸入?yún)?shù),不能帶有輸出,輸入輸出函數(shù)
3、SQL不能使用PL/SQL的特有數(shù)據(jù)類型(boolean,table,record等)
4、SQL語句中調(diào)用的函數(shù)不能包含INSERT,UPDATE和DELETE語句
查看函數(shù)院源代碼
oracle會將函數(shù)名及其源代碼信息存放到數(shù)據(jù)字典中user_source
select text from user_source where name='GET_EMPNAME';
刪除函數(shù)
drop function get_empname;
判斷任務(wù)過期時間：
create or replace function GetUrgentState(m_TaskID varchar2,
m_SendTime date,
m_flag varchar2)
return varchar2 IS
myDate date;
ExpireTime date;
strsql varchar2(200);
begin
myDate := m_SendTime;
strsql := 'select max(EXPIRETIME) from t_wf_supervise where TASKID =''' ||
m_TaskID || '''';
execute immediate strsql
into ExpireTime;
--沒有到期時間 就是正常狀態(tài)
if ExpireTime is null then
if m_flag = 'String' then
return '正常';
end if;
if m_flag = 'Img' then
return 'cb_execute.gif';
end if;
end if;
--未發(fā)送任務(wù)，就是判斷當(dāng)前時間
if m_SendTime is null then
myDate := sysdate;
end if;
if ExpireTime < myDate then
if m_flag = 'String' then
return '超期';
end if;
if m_flag = 'Img' then
return 'cb_limit.gif';
end if;
end if;
--小于3天的任務(wù)預(yù)警
if ExpireTime - myDate < 3 then
if m_flag = 'String' then
return '預(yù)警';
end if;
if m_flag = 'Img' then
return 'cb_warning.gif';
end if;
else
if m_flag = 'String' then
return '正常';
end if;
if m_flag = 'Img' then
return 'cb_execute.gif';
end if;
end if;
end;
查詢其它表數(shù)據(jù)：
create or replace function GetPreNode(m_PreTaskID varchar2) return varchar2 IS
nodename varchar2(50);
strsql varchar2(200);
begin
if m_PreTaskID is null then
return '';
end if;
strsql := 'select max(nodename) from t_Wf_Tasklist where TaskID =''' ||
m_PreTaskID|| '''';
execute immediate strsql
into nodename;
return nodename;
end;
格式化標(biāo)題輸出：
create or replace function FormatTitle(m_title varchar2,
m_length number,
m_FillChar varchar2) return varchar2 IS
begin
if lengthb(m_title) > m_length*2 then
return substr(m_title, 0,m_length) || m_FillChar;
else
return m_title;
end if;
end;
轉(zhuǎn)載于:https://my.oschina.net/duanyunhu/blog/130703
總結(jié)
以上是生活随笔為你收集整理的Oracle自定义函数的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： android NDK 编译helloj
- 下一篇： WinForm 界面异步更新数据(方式二