一个关于Oracle分页的实现方案

前言：
在使用数据库进行项目的开发过程中，往往需要对查询结果进行分页处理，但由于每个数据库管理系统的实现不同，所使用的方法也不相同，本文展示了一个在使用Oracle数据库管理系统时的一个分页方案。

注意：
在此展现的是一种方法，并不是一个通用的分页存储过程。

环境：
OS：Microsoft® Windows Server 20003
DBMS：Oracle9i Enterprise Edition Release 9.2.0.3.0

数据表：
方案中假设数据库中存在如下的示例数据库：


Create table authors(




Au_id varchar2( 11 ) primary key ,




Au_lname varchar2( 40 ) not null ,




Au_fname varchar2( 20 ) not null ,




Phone varchar2( 12 ) not null ,




Address varchar2( 4 ) null ,




City varchar2( 20 ) null ,




Zip char( 6 ) null




)

 存储过程：


CREATE OR REPLACE  PACKAGE DIVPAGE  as




/**//**//**//*******************************************************************


*


* 作者：Dorian Deng


* 创建日期：2006-05-05


* 说明：


* 　　用于记录总页数和当前页的最小和最大记录号


*


********************************************************************/


procedure getPageRownum


(


  recordCount in number ,


  pageSize in number ,


  pageIndex in number ,


  pageCount out number ,


  pageMinRownum out number ,


  pageMaxRownum out number


);


end;


/


CREATE OR REPLACE  PACKAGE BODY DIVPAGE  as




/**//**//**//*******************************************************************


*


* 作者：Dorian Deng


* 创建日期：2006-05-05


* 说明：


* 　　用于记录总页数和当前页的最小和最大记录号


*


********************************************************************/


procedure getPageRownum


(


  recordCount in number ,


  pageSize in number ,


  pageIndex in number ,


  pageCount out number ,


  pageMinRownum out number ,


  pageMaxRownum out number


)


as


begin


  pageCount := ceil( recordCount / pageSize ) ;


  pageMaxRownum := pageIndex * pageSize ;


  pageMinRownum := pageMaxRownum - pageSize + 1 ;


end getPageRownum;




end;




/




CREATE OR REPLACE  PACKAGE AUTHORSPACKAGE  as




/**//**//**//*******************************************************************


*


* 作者：Dorian Deng


* 创建日期：2006-05-05


* 说明：


* 　　用于记录总页数和当前页的最小和最大记录号


*


********************************************************************/


type t_cursor is ref cursor  ;


procedure SelectAuthors


(


  zip_in in char ,


  pageIndex in number ,


  pageSize in number ,


  pageCount out number ,


  AuthorsList out t_cursor


);




end AUTHORSPACKAGE ;




/ 




CREATE OR REPLACE  PACKAGE BODY  AUTHORSPACKAGE  as




/**//**//**//*******************************************************************


*


* 作者：Dorian Deng


* 创建日期：2006-05-05


* 说明：


* 　　用于记录总页数和当前页的最小和最大记录号


*


********************************************************************/


procedure SelectAuthors


(


zip_in in char ,           --查询的条件


  pageIndex in number ,           --页码，以1开始


  pageSize in number ,           --每页记录数


  pageCount out number ,           --总页数


  AuthorsList out t_cursor           --当前页记录值


)


as


recordCount number ;


pageMinRownum number ;


pageMaxRownum number ;


begin


  select count( * ) into recordCount from ( select Au_id from authors ) ;


  DIVPAGE.getPageRownum( recordCount , pageSize , pageIndex ,


      pageCount , pageMinRownum , pageMaxRownum ) ;


  open AuthorsList for


    select * from ( --本级查询得出排序的结果集的rownum


select rownum rn , Au_id  ,


          Au_lname  ,


          Au_fname ,


          Phone  ,


          Address  ,


          City  ,


          Zip


          from (


--本级查询按给定条件得出结果集，如果使用了order by，其rownum可能乱序，


--所以需要外一级的查询，同时直接使用zip_in参数，可防止SQL注入


select  Au_id  ,


Au_lname  ,  Au_fname ,  Phone  , Address  ,City  ,Zip


from authors where zip = zip_in order by au_lname ) )


          where rn between pageMinRownum and pageMaxRownum ;


end ;


 




end AUTHORSPACKAGE ;



参考：
1．一种分页的通用存储过程


create or replace package DotNet is




  -- Author  : good_hy




  -- Created : 2004-12-13 13:30:30




  -- Purpose :




  TYPE type_cur IS REF CURSOR;     --定义游标变量用于返回记录集   




  PROCEDURE DotNetPagination(     




  Pindex in number,                --分页索引  




  Psql in varchar2,                --产生dataset的sql语句




  Psize in number,                 --页面大小




  Pcount out number,               --返回分页总数




  v_cur out type_cur               --返回当前页数据记录




  );  




  procedure DotNetPageRecordsCount(




  Psqlcount in varchar2,           --产生dataset的sql语句                           




  Prcount   out number             --返回记录总数




  );




end DotNot;






create or replace package body DotNet is




--****************************************************************




PROCEDURE DotNetPagination(




  Pindex in number,




  Psql in varchar2,




  Psize in number, 




  Pcount out number,




  v_cur out type_cur




)




AS




  v_sql VARCHAR2(1000);




  v_count number; 




  v_Plow number;




  v_Phei number;




Begin




  ------------------------------------------------------------取分页总数




  v_sql := 'select count(*) from (' || Psql || ')';




  execute immediate v_sql into v_count;




  Pcount := ceil(v_count/Psize);




  ------------------------------------------------------------显示任意页内容




  v_Phei := Pindex * Psize + Psize;




  v_Plow := v_Phei - Psize + 1;




  --Psql := 'select rownum rn,t.* from cd_ssxl t' ;            --要求必须包含rownum字段




  v_sql := 'select * from (' || Psql || ') where rn between ' || v_Plow || ' and ' || v_Phei ;




  open v_cur for v_sql;




End DotNetPagination;




--********************************************************




procedure DotNetPageRecordsCount(




  Psqlcount in varchar2,




  Prcount   out number




  )




 as




   v_sql varchar2(1000);




   v_prcount number;




 begin




   v_sql := 'select count(*) from (' || Psqlcount || ')';




   execute immediate v_sql into v_prcount;




   Prcount := v_prcount;                  --返回记录总数




    end DotNetPageRecordsCount; 




--*************************************************************




end DotNot;