oracle存储过程v_where,Oracle存储过程分页查询

以下是Oracle存储过程分页查询返回数据集的方法：

CREATE OR REPLACE PROCEDURE PROC_GET_DATA_PAGING(P_TABLENAME    IN VARCHAR2, --表(视图)名

P_STRWHERE    IN VARCHAR2, --查询条件

P_ORDERCOLUMN  IN VARCHAR2, --排序的列

P_CURPAGE      IN OUT NUMBER, --当前页

P_PAGESIZE    IN OUT NUMBER, --每页显示记录条数

P_TOTALRECORDS OUT NUMBER, --总记录数

P_TOTALPAGES  OUT NUMBER, --总页数

V_CUR          OUT TYPES.CURSORTYPE) --返回的结果集

IS

V_SQL        VARCHAR2(4000) := ''; --SQL语句

V_STARTRECORD NUMBER(10); --开始显示的记录条数

V_ENDRECORD  NUMBER(10); --结束显示的记录条数

V_SHOWALL    INTEGER; --是否显示全部记录

BEGIN

--记录中总记录条数

V_SQL := 'SELECT TO_NUMBER(COUNT(*)) FROM ' || P_TABLENAME ||

' WHERE 1=1 ';

IF P_STRWHERE IS NOT NULL OR P_STRWHERE '' THEN

V_SQL := V_SQL || P_STRWHERE;

END IF;

EXECUTE IMMEDIATE V_SQL

INTO P_TOTALRECORDS;

--验证页面记录大小

IF P_PAGESIZE P_TOTALPAGES THEN

P_CURPAGE := P_TOTALPAGES;

END IF;

--实现分页查询

V_STARTRECORD := (P_CURPAGE - 1) * P_PAGESIZE + 1;

V_ENDRECORD  := P_CURPAGE * P_PAGESIZE;

V_SQL        := 'SELECT * FROM (SELECT A.*, ROWNUM R FROM ' ||

'(SELECT * FROM ' || P_TABLENAME;

IF P_STRWHERE IS NOT NULL OR P_STRWHERE '' THEN

V_SQL := V_SQL || ' WHERE 1=1 ' || P_STRWHERE;

END IF;

IF P_ORDERCOLUMN IS NOT NULL OR P_ORDERCOLUMN '' THEN

V_SQL := V_SQL || ' ORDER BY ' || P_ORDERCOLUMN;

END IF;

IF V_SHOWALL IS NULL THEN

V_SQL := V_SQL || ') A WHERE ROWNUM = ' || V_STARTRECORD;

ELSE

V_SQL := V_SQL || ') A ) B ';

END IF;

DBMS_OUTPUT.PUT_LINE(V_SQL);

OPEN V_CUR FOR V_SQL;

END PROC_GET_DATA_PAGING;