[独孤九剑]Oracle知识点梳理（六）数据库常用对象之Procedure、function、Sequence

 1 create or replace procedure proc_GetPerson(argName in varchar2,argMsg out varchar2,argTable out pkg.RefCur)
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　--参数，不需要定义长度
 2 as 
 3 　　vName varchar2(64);-- 定义变量，要设置长度 
 4 begin
 5 　　vName:=argName; --赋值，每条语句要以分号结束
 6 　　open pke.RefCur is select * from person where name like vName||‘%‘;--将查询结果记录到返回游标中
 7 　　--当然，还可以进行其他复杂的判断，转换等操作
 8 　　argMsg:=‘正常‘;
 9 　　commit;
10 
11 　　Exception
12 　　　　when others then argMsg=‘异常‘;
13 　　　　　　rollback; --如果之前执行的是事务性的语句，有必要保证数据安全
14 end proc_GetPerson;

drop procedure pro_GetPerson;

1 create or replace function fun_GetPersonName(argName in varchar2,argGender in varchar2) return varchar2
2 as
3 　　Result varchar2(64); --定义变量 
4 begin
5 　　select name into Result from person where name =argName and gender=argGender and rownum=1;
6 　　return Result;--返回值 
8 end fun_GetPersonName;

1 create or replace function fun_GetPersonName(argName in varchar2,argGender out varchar2) return varchar2
2 as
3 　　Result varchar2(64); --定义变量 
4 begin
5 　　select name,gender into Result,argGender from person where name =argName and rownum=1;
6 　　return Result;--返回值
7 end fun_GetPersonName;

drop function fun_GetPersonName;

1 create sequence seqPersonID
2 　　increment by 1 --每次加1
3 　　start with 1 --序列从1开始计数
4 　　nomaxvalue --不设置最大值
5 　　nocycle --一致累加，不循环
6 　　cache 10; 设置缓存cache个序列，如果系统down掉了，或者其他情况会导致序列不连续，
7 　　--nocache; --不是最缓存

1 select seqPersonID.CurrVal from dual; --得到序列的当前值,必须在调用过NextVal之后才能使用，否则报错
2 select seqPersonID.NextVal from dual; --得到序列的下一个值，如果是第一次使用，则返回创建时设置的初始值

insert into person(id,name)values(seqPersonID.Nextval,‘sequence 插入测试‘);

alter sequence seqPersonID maxValue 99999999;

drop sequence seqPersonID;