Oracle分页存储过程

create or replace package pkg_query is
type cur_query is ref cursor;
procedure met_down_query(
m_tablename in varchar2,--表名
m_strwhere in varchar2,--查询条件
m_ordercolumn in varchar2,--排序字段
m_orderstyle in varchar2,--排序方式
m_currpage in out number,--当前页
m_pagesize in out number,--每页显示的记录数
m_totalrow out number,--总记录数
m_totalpage out number,--总页数
v_cur out cur_query --返回结果集
);
end pkg_query;

create or replace procedure met_down_query(
m_tablename in varchar2,--表名
m_strwhere in varchar2,--查询条件
m_ordercolumn in varchar2,--排序字段
m_orderstyle in varchar2,--排序方式
m_currpage in out number,--当前页
m_pagesize in out number,--每页显示的记录数
m_totalrow out number,--总记录数
m_totalpage out number,--总页数
v_cur out pkg_query.cur_query --返回结果集
)
is
v_sql varchar2(1000):=''; --sql语句
v_startrecord number(4);--开始记录数
v_endrecord number(4);--结束记录数
begin
--总记录数
v_sql:='select to_number(count(*)) from '||m_tablename||' where 1=1';
if m_strwhere is not null or m_strwhere <>'' then
v_sql:=v_sql || m_strwhere;
end if;
execute immediate v_sql into m_totalrow;
--验证页面大小
if m_pagesize<0 then
m_pagesize:=0;
end if;
--根据页面大小计算总页数
if mod(m_totalrow,m_pagesize)=0 then
m_totalpage:=m_totalrow/m_pagesize;
else
m_totalpage:=m_totalrow/m_pagesize+1;
end if;
--验证页号
if m_currpage<1 then
m_currpage:=1;
end if;

if m_currpage>m_totalpage then
m_currpage:=m_totalpage;
end if;
--实现分页查询
v_startrecord:=(m_currpage-1)*m_pagesize+1;
v_endrecord:=m_currpage*m_pagesize;
v_sql:='select * from (select a.*,rownum r from '||
'(select * from '||m_tablename;
if m_strwhere is not null or m_strwhere <> '' then
v_sql:=v_sql || 'where 1=1 '||m_strwhere;
end if;
if m_ordercolumn is not null or m_ordercolumn <> '' then
v_sql:=v_sql || 'order by '||m_ordercolumn||''||m_orderstyle;
end if;
v_sql:=v_sql||')a where rownum<='||v_endrecord||')b where r>='
||v_startrecord;
dbms_output.put_line(v_sql);
open v_cur for v_sql;
end met_down_query;