Oracle 分页存储过程

2010-07-22 11:22:20 166 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

存储过程分页查询(ORACLE) CREATE OR REPLACE PACKAGE PKG_QUERY_PAGEDATA IS -- 存储过程分页查询包. -- 原创 : 三界. -- CREATED : 2011-12-06 09:00 -- EDIT : 2012-01-11 10:30/2014-09-09 15:00/ --留档备查. T 阅读详情



create or replace package JT_P_page is

type type_cur is ref cursor;                    --定义游标变量用于返回记录集

procedure Pagination  (Pindex in number,        --要显示的页数索引，从0开始

                       Psql in varchar2,        --产生分页数据的查询语句

                       Psize in number,         --每页显示记录数

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

                       Prowcount out number,    --返回的记录数

                       v_cur out type_cur      --返回分页数据的游标

                       );

end JT_P_page;

--定义包主体

create or replace package body JT_P_page is --  这一行报错!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  procedure Pagination(Pindex in number, --要显示的页数索引，从0开始

                       Psql in varchar2, --产生分页数据的查询语句

                       Psize in number, --每页显示记录数

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

                       Prowcount out number, --返回的记录数

                       v_cur out type_cur --返回分页数据的游标

                       ) AS

    v_sql VARCHAR2(1000);

    v_Pbegin number;

    v_Pend number;

  begin

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

    execute immediate v_sql into Prowcount; --计算记录总数

    Pcount := ceil(Prowcount / Psize); --计算分页总数

    --显示任意页内容

    v_Pend := Pindex * Psize + Psize;

    v_Pbegin := v_Pend - Psize + 1;     

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

    open v_cur for v_sql;

  end Pagination; 

end JT_P_page;