写在前面

这段时间工作最长接触到的就是Oracle数据库，不论查数据，还是统计、运行job，都离不开PL/SQL 存储过程，下面就整理下经常用到的知识。

一、Function函数

函数是执行非查询语句的方法。

• 创建返回list的function

CREATE OR REPLACE FUNCTION FNTOPWEEKESLIST (ininttype       IN       INTEGER,outcurlist      OUT      pkgrefcursor.refcursor
)RETURN INTEGER
IS
BeginOPEN outcurlist FORSELECT t.all, a.booknameFROM tbbookestimatestats t, tbbook aWHERE t.intype = ininttypeand t.bookid = a.bookidand a.freetype = 0;RETURN 0;
END;

• 创建带分页的返回list的function

CREATE OR REPLACE FUNCTION fn_source_pay_getlist(indtbegin       DATE,indtend         DATE,invarsourcename VARCHAR2,inintpagesize   IN INTEGER,inintpageindex  IN INTEGER,outintRowCount  out integer,outcurlist      OUT pkg_refcursor.ref_cursor)RETURN INTEGER as
beginselect count(1)into outintRowCountfrom tbcl_resu_payuserwhere source = casewhen length(invarsourcename) > 0 theninvarsourcenameelsesourceendand trunc(datetime) >= indtbeginand trunc(datetime) < indtend;open outcurlist forselect *from (select a.*, row_number() over(order by a.datetime) rnfrom (select source,datetime,payusercnt1,payusercnt2,payusercnt3,payusercnt4from tbcl_resu_payuserwhere source = casewhen length(invarsourcename) > 0 theninvarsourcenameelsesourceendand trunc(datetime) >= indtbeginand trunc(datetime) < indtendorder by datetime) a)where rn between inintpagesize * (inintpageindex - 1) + 1 andinintpagesize * inintpageindex;return 0;
end;

• 返回普通值的function

CREATE OR REPLACE FUNCTION FNACTIVEDAYSUSECNTGET (inintactivetype INTEGER,inintuserid     integer,outintgetcnt   out integer,--总抽奖次数 outintusercnt  out integer)--用户抽奖次数RETURN INTEGER
IS获取活动当天领取次数vcnt   INTEGER;
BEGINSELECT NVL (MAX (cnt), 0)INTO outintgetcntFROM tbactivestatsWHERE logtime = TRUNC (SYSDATE) AND activetype = inintactivetype;    SELECT count(1)INTO outintusercntFROM tbuseractivegiftlogWHERE userid = inintuserid AND activetype = inintactivetype;    RETURN 0;
END;

或者这样:

CREATE OR REPLACE FUNCTION FNUSERCOSTGET(invarptid   IN varchar2,inintbookid in integer)RETURN integer ISvamount integer;
BEGINselect nvl(max(amount), 0)into vamountfrom tbuserbookcostwhere ptid = lower(invarptid)and bookid = inintbookid;return(vamount);
EXCEPTIONWHEN others THENreturn(0);
END;

二、Procedure过程

• 更新update

CREATE OR REPLACE PROCEDURE "ADDUPDATEBOOKLOG" (inintbookid   IN  INTEGER,inintfreetype IN  INTEGER,outintresult  OUT INTEGER) AS
/*功能：插入一条记录传入参数：bookid，freetype输出参数：是否插入成功
*/
BEGIN如果存在就更新记录UPDATE tbupdatebooklogSET createtime = SYSDATE, freetype = inintfreetypeWHERE bookid = inintbookid;--如果不存在就插入记录IF SQL%ROWCOUNT = 0 THENINSERT INTO tbupdatebooklog(bookid, createtime, freetype)VALUES(inintbookid, SYSDATE, inintfreetype);END IF;COMMIT;outintresult := 0;
EXCEPTIONWHEN OTHERS THENoutintresult := 1;ROLLBACK;
END AddUPdateBookLog;

或者：

CREATE OR REPLACE PROCEDURE PRBOOKSIGNSTATUSSET(inintBookId     integer,invarSignStatus varchar2,outintresult    out integer) isbeginupdate tbbook tset t\.signstatus = invarSignStatuswhere bookId = inintBookId;commit;outintresult := 0;
end prbookSignStatusset;

• 插入insert

CREATE OR REPLACE PROCEDURE "PRBOOKTYPEUPDLOGINS" (inintbookid              IN       INTEGER,ininttypeid              IN       INTEGER,invatypename             IN       varchar2,outintresult             OUT      INTEGER
)
ISvcnt   INTEGER;
BEGINinsert into tbbooktypeupdlog(bookid,updatetime,typeid,typename)values (inintbookid,sysdate,ininttypeid,invartypename);commit;outintresult:=0;
END;

三、Package包

包是有包头和包体组成的一组具有共性的函数或者过程。

1. 声明包

CREATE OR REPLACE PACKAGE PKGTEST isTYPE refcursor IS REF CURSOR;procedure add();procedure update();procedure get();
end pkgTEST;

1. 定义包体

CREATE OR REPLACE PACKAGE BODY PKGTEST isTYPE refcursor IS REF CURSOR;procedure add() IS BEGIN...END;procedure update() ISBEGIN...END;procedure get() ISBEGIN...END;
end pkgTEST;