Oracle 分页存储过程 几十万条记录

好长时间没写东东了，今天写了一个oracle的分页存储过程，贴出来与大家分享。

由于。net框架中的gridview等控件的分页功能太弱，所以大部分程序员都会自己写分页功能，而调用分页存储过程是必须的。

前台aspx页面不管是用下载的dll还是用自己写的用户控件，都能实现自己的功能，然而分页的存储过程就需要好好的考虑了，下边是我写的oracle的存储过程（参考sql server数据库的存储过程写成的），效率还可以，并附上调试的过程（调试环境：win2003、oracle 9i，调试工具：pl/sql）：

--I/O消耗1071

select id,orgid,dj_date,khid,khcode,khname,feeid from fee_ysfy;
--493408
select count(id) from fee_ysfy;
--22.391执行完成（内外都有order by）
select id, orgid, dj_date, khid, khcode, khname, feeid
from (select rownum rn, t.id, orgid, dj_date, khid, khcode, khname, feeid
from fee_ysfy t
where 1 = 1
order by id desc)
where rn <= 45
and rn >= 30
order by id desc
--22.437（只有子查询有order by）
select id, orgid, dj_date, khid, khcode, khname, feeid
from (select rownum rn, t.id, orgid, dj_date, khid, khcode, khname, feeid
from fee_ysfy t
where 1 = 1
order by id desc)
where rn <= 45
and rn >= 30
--优化去掉order by0.891（去掉所有的order by）
select id, orgid, dj_date, khid, khcode, khname, feeid
from (select rownum rn, t.id, orgid, dj_date, khid, khcode, khname, feeid
from fee_ysfy t
where 1 = 1
)
where rn <= 45
and rn >= 30
--将order by放到外边0.828秒（把order by放到外边）
select id, orgid, dj_date, khid, khcode, khname, feeid
from (select rownum rn, t.id, orgid, dj_date, khid, khcode, khname, feeid
from fee_ysfy t
where 1 = 1
)
where rn <= 45
and rn >= 30 order by id desc
--优化后的存储过程
create or replace procedure pagecount
(
tblName varchar2, -- 表名
strselect varchar2, --查询的字段名
fldName varchar2 default '*', -- 主键字段名
PageSize number default 10, -- 页尺寸
PageIndex number default 1, -- 页码
v_RowCount out integer , -- 返回记录总数
OrderType number default 0, -- 设置排序类型, 非 0 值则降序
strWhere varchar2 default ' 1=1', -- 查询条件 (注意: 不要加 where)
OutSql out varchar2
)
is
strSQL varchar2(4000); -- 主语句
strOrder varchar2(4000); -- 排序类型
v_sql varchar2(4000);--临时变量
begin
if OrderType != 0 then
begin
strOrder := ' order by ' ||fldName ||' desc';
end;
else
begin
strOrder := ' order by ' ||fldName ||' asc';
end;
end if;
if PageIndex = 1 then
begin
strSQL := 'select '||strselect||' from (select rownum rn,t.'||strselect||' from '||tblName||' t where '||strWhere|| ') where rn <= '||PageIndex*PageSize||' and rn >= 1 '||strOrder;
end;
else
begin
strSQL := 'select '||strselect||' from (select rownum rn,t.'||strselect||' from '||tblName||' t where '||strWhere|| ') where rn <= '||PageIndex*PageSize||' and rn >= '||(PageIndex - 1)*PageSize||' '||strOrder;
end;
end if;
OutSql := strSQL;
v_sql := 'select count('||fldName||') from (' || tblName || ') where '||strWhere;
execute immediate v_sql into v_RowCount;
end;