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 <= 0 THEN
    V_SHOWALL  := 1;
    P_PAGESIZE := 0;
  END IF;

  IF V_SHOWALL IS NULL THEN
    --根据页大小计算总页数
    IF MOD(P_TOTALRECORDS, P_PAGESIZE) = 0 THEN
      P_TOTALPAGES := TRUNC(P_TOTALRECORDS / P_PAGESIZE, 0);
    ELSE
      P_TOTALPAGES := TRUNC(P_TOTALRECORDS / P_PAGESIZE, 0) + 1;
    END IF;
 
  ELSE
    P_TOTALPAGES := 1;
 
  END IF;

  --验证页号
  IF P_CURPAGE < 1 THEN
    P_CURPAGE := 1;
  END IF;
  IF P_CURPAGE > 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_ENDRECORD ||
            ') B WHERE R >= ' || 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;