oracle高效分页存储过程（百万数据级）

常用分页存储过程基本都是SQL SERVER 的，经过试验和总结，将前段时间ORACLE分页控件中的存储过程分享给大家：

--oracle高效分页存储过程（百万数据级）
    procedure get_pager
    (
       parm_pageID      in number,--页索引，从1开始
       parm_pageSize    in number,--每页大小
       parm_tblName     in varchar2,--表名
       parm_strWhere    in varchar2,--where条件
       parm_orderBy     in varchar2, --排序条件
       parm_ref_cur1    out ref_cur_type,--总记录数
       parm_ref_cur2    out ref_cur_type --结果集
    )
   IS
      v_sql1       VARCHAR2 (2000);                       --获取数据的sql语句
      v_sql2       VARCHAR2 (4000);
      v_pagecount    NUMBER;                                 --该条件下记录页数
      v_row_start    NUMBER;                                         --开始记录
      v_row_end      NUMBER;                                         --结束记录
      v_count        number;
   --分页获取数据
   BEGIN
      v_sql1 := 'select count(1) from ' || parm_tblName;

      IF parm_strWhere is not NULL OR parm_strWhere <> ''
      THEN
         v_sql1 := v_sql1 || ' where 1=1 ' || parm_strWhere;
      END IF;

      EXECUTE IMMEDIATE v_sql1 INTO v_count;
      OPEN parm_ref_cur1 for v_sql1;

      --计算数据记录开始和结束
      v_pageCount := v_count / parm_pageSize + 1;
      v_row_start := (parm_pageID - 1) * parm_pageSize + 1;
      v_row_end := parm_pageID * parm_pageSize;
      v_sql2 := 'select rownum ro, t.* from ' || parm_tblName || ' t';
      v_sql2 := v_sql2 || ' where rownum<=' || v_row_end;

      IF parm_strWhere is not NULL OR parm_strWhere <> ''
      THEN
         v_sql2 := v_sql2  || parm_strWhere;
      END IF;

      IF parm_orderBy is not null and  parm_orderBy <> ''
      THEN
         v_sql2 := v_sql2 || ' order by ' || parm_orderBy;
      END IF;
     

      v_sql2 := 'select * from (' || v_sql2 || ') where ro >=' || v_row_start;
      --DBMS_OUTPUT.put_line (strsql);

      OPEN parm_ref_cur2 FOR v_sql2;
   END get_pager;

相信学过Oracle的朋友应该不难看懂，呵呵！