oracle自定义函数

begin
p2_out:=Fun_test1(p1_in);
end Pro_Fun_test1_1;
--一个输入参数，一个输出参数
3、Fun_test1自定义函数的调用的存储过程Pro_Fun_test1_2示例：
create or replace procedure Pro_Fun_test1_2(
否则将会出现诸如下面的错误：
必须说明标识符 'MYPACKAGE'
3、调用包用的自定义方法：
create or replace procedure Pro_test_package(
p1_in string
)
AS
begin
(
argu1 [mode1] datatype1,
argu2 [mode2] datatype2, ........
)
retuห้องสมุดไป่ตู้n datatype
is
begin
end;
执行 var v1 varchar2(100)
带out参数的函数
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;
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参数的函数
create or replace function get_empname(v_id in number) return varchar2 as v_name varchar2(50);
4、SQL语句中调用的函数不能包含INSERT,UPDATE和DELETE语句
查看函数院源代码
oracle会将函数名及其源代码信息存放到数据字典中user_source
select text from user_source where name='GET_EMPNAME';
create or replace package body myPackage_1
is
procedure syaHello(vname varchar2)--对包中定义的过程的实现
is
begin
dbms_output.put_line('Hello '||vname);
eg:
1 、一个最简单的自定义函数Fun_test1的定义。
create or replace function Fun_test1(p_1 number)--Fun_test1是函数名，有一个输入参数p_1，是number型的。返回值也是number型的
return number
myPackage_1.syaHello(p1_in);
end Pro_test_package;
eg2:
--没有参数的函数
create or replace function get_user return varchar2 is v_user varchar2(50);
Oracle自定义函数
核心提示：函数用于返回特定数据。执行时得找一个变量接收函数的返回值; 语法如下: create or replace function function_name ( argu1 [mode1] datatype1, argu2 [mode2] datatype2, ........ ) return datatype is begin end; 执行 var v1 varchar2(100) exec :v1:=function_na
begin
v_result :=num1/num2;
v_remainder :=mod(num1,num2);
num2 :=v_remainder;
return(v_result);
Exception
when zero_divide then
return varchar2 IS
myDate date;
ExpireTime date;
strsql varchar2(200);
begin
myDate := m_SendTime;
strsql := 'select max(EXPIRETIME) from t_wf_supervise where TASKID =''' ||
exec :v1:=function_name
不带任何参数
create or replace function get_user return varchar2 is
Result varchar2(50);
begin
select username into Result from user_users;
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无效!');
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;
语法：
create or replace package myPackage_1
is
procedure syaHello(vname varchar2);--申明了该包中的一个过程
end;
2、包体的定义：
包体是对包头中定义的过程、函数的具体实现。
IS
begin
if p_1>0 then
return 1;
elsif p_1=0 then
return 0;
else
return -1;
end if;
end;
--这个函数只是可以知道自定义函数的定义和格式。其实没什么用途。
m_TaskID || '''';
execute immediate strsql
into ExpireTime;
--没有到期时间 就是正常状态
if ExpireTime is null then
return(Result);
end get_user;
执行:
带in参数的
create or replace function get_sal(empname in varchar2) return number is
Result number;
删除函数
drop function get_empname;
判断任务过期时间：
create or replace function GetUrgentState(m_TaskID varchar2,
m_SendTime date,
m_flag varchar2)
begin
select sal into Result from emp where ename=empname;
return(Result);
end get_sal;
执行: SQL> var sal number
SQL> exec :sal:=get_sal('scott');
2、Fun_test1自定义函数的调用的存储过程Pro_Fun_test1_1示例：
create or replace procedure Pro_Fun_test1_1(
p1_in in number,
p2_out out number
)
AS
函数用于返回特定数据。执行时得找一个变量接收函数的返 活期通 理财资讯
语法如下: create or replace function function_name
带in out参数的函数
create or replace function result(num1 number,num2 in out number) return number is
v_result number(6);
v_remainder number;
raise_application_error(-20000,'不能除0');
end result;
执行: var result1 number;
var result2 number;
exec :result2:=30
exec :result1:=result(100,:result2)