存储过程分页查询(ORACLE)

Oracle 前端之家
前端之家收集整理的这篇文章主要介绍了存储过程分页查询(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/

--留档备查.
TYPE PageDataCursor IS REF CURSOR;
--根据表名称和查询过滤条件、排序字段条件、分页条件，组合SQL查询.
PROCEDURE TABLEPAGEDATA(QueryTableName Varchar2,
WhereClause Varchar2,Tohoma; font-size:14px; line-height:22.4px"> OrderFields Varchar2,Tohoma; font-size:14px; line-height:22.4px"> PageIndex int default 1,Tohoma; font-size:14px; line-height:22.4px"> PageSize int default 1000,Tohoma; font-size:14px; line-height:22.4px"> TotalRows out number,Tohoma; font-size:14px; line-height:22.4px"> PageData_out out PageDataCursor);
--根据模块预定义sql语句执行的分页查询.
--用法：根据模块号执行查询sql语句，再添加查询过滤条件、排序字段条件、分页条件，组合SQL查询.
Function PAGEDATA(ModuleNo Varchar2,Tohoma; font-size:14px; line-height:22.4px"> WhereClause Varchar2,Tohoma; font-size:14px; line-height:22.4px"> OrderFields Varchar2,Tohoma; font-size:14px; line-height:22.4px"> PageIndex int default 1,Tohoma; font-size:14px; line-height:22.4px"> PageSize int default 1000,Tohoma; font-size:14px; line-height:22.4px"> PageData_out out PageDataCursor) RETURN NUMBER;
END;




CREATE OR REPLACE PACKAGE BODY PKG_QUERY_PAGEDATA IS

--根据表名称组合sql语句执行的分页查询.
PROCEDURE TABLEPAGEDATA(QueryTableName Varchar2,
WhereClause Varchar2,
OrderFields Varchar2,
PageIndex int default 1,
PageSize int default 1000,
TotalRows out number,
PageData_out out PageDataCursor) AS
AStringsql varchar2(8000);
BEGIN
--QueryTableName:查询表名称.
--WhereClause:查询过滤条件.
--OrderFields:排序字段，允许包含关键字DESC/ASC.
--PageIndex:查询页码:1-n.默认1.
--PageSize:每页记录数.默认1000.
--TotalRows:输出所有页总记录行数.
--PageData_out:输出查询页的记录集.
--A.拼接统计记录总行数的sql语句.
if (WhereClause is not null) then
AStringsql := 'SELECT COUNT(*) FROM ' || QueryTableName || ' WHERE ' || WhereClause;
else
AStringsql := 'SELECT COUNT(*) FROM ' || QueryTableName;
end if;
execute immediate AStringsql into TotalRows;
--B.拼接分页查询的sql语句
if (WhereClause is not null) then
AStringsql := 'SELECT * FROM ' || QueryTableName || ' WHERE ' || WhereClause;
else
AStringsql := 'SELECT COUNT(*) FROM ' || QueryTableName;
end if;
if (OrderFields is not null) then
if REGEXP_LIKE(OrderFields,'^(\s*ORDER\s+BY\s)','min') THEN
AStringsql := AStringsql || ' ' || OrderFields;
else
AStringsql := AStringsql || ' ORDER BY ' || OrderFields;
end if;
end if;
--嵌套分页查询语句
AStringsql := 'SELECT * FROM (SELECT T.*,ROWNUM AS ROWNO FROM (' || AStringsql || ') T WHERE ROWNUM < ' ||
to_char(PageSize * PageIndex + 1) || ') TT WHERE ROWNO > ' || to_char(PageSize * (PageIndex - 1));
open PageData_out for AStringsql;
END;

--根据模块预定义sql语句执行的分页查询.
Function PAGEDATA(ModuleNo Varchar2,
WhereClause Varchar2,
OrderFields Varchar2,
PageIndex int default 1,
PageSize int default 1000,
PageData_out out PageDataCursor) RETURN NUMBER AS
AStringsqlFind varchar2(8000);
AStringsqlCount varchar2(8000);
APattern varchar2(1000);
TotalRows number;
BEGIN
--ModuleNo:模块编号.
--WhereClause:查询过滤条件.允许空值.
--OrderFields:排序字段，也允许包含关键字DESC/ASC.
--PageIndex:查询页码:1-n.
--PageSize:每页记录数.默认每页1000行.
--PageData_out:输出查询页记录集.
--TotalRows:输出所有页总记录行数.
--根据模块编号读取预定义的统计记录数sql和分页查询sql语句.
--sql语句预定义存储表：A_sqlMASTER.
--预定义的统计记录数的sql Example:SELECT COUNT(*) FROM USERS A JOIN COMPANY B ON (A.CORP_ID=B.CORP_ID) WHERE (1=1)
--预定义的分页查询的sql Example:SELECT A.*,B.CORP_NAME FROM USERS A JOIN COMPANY B ON (A.CORP_ID=B.CORP_ID) WHERE (1=1) ORDER BY USER_NAME DESC
SELECT MIN(sqlWITHORDER),MIN(sqlSTATROW)
INTO AStringsqlFind,AStringsqlCount
FROM A_sqlMASTER
WHERE MODULE_NO = ModuleNo
AND ROWNUM = 1;
--A.拼接统计记录总行数的sql语句.
--换替where (1 = 1)字符串为参数过滤条件.
if (WhereClause is not null) then
AStringsqlCount := REGEXP_REPLACE(AStringsqlCount,'\(\d\s*=\s*\d\)','(' || WhereClause || ')',1,'min');
end if;
execute immediate AStringsqlCount
into TotalRows;
--B.拼接分页查询的sql语句
--替换where (1 = 1)字符串为参数过滤条件.
if (WhereClause is not null) then
AStringsqlFind := REGEXP_REPLACE(AStringsqlFind,'min');
end if;
--替换最后位置的ORDER BY语句段.
if (OrderFields is not null) then
APattern := '\s+ORDER\s+BY\s+(\w+\.)?\w+(\s+DESC|\s+ASC)?(,\s+(\w+\.)?\w+(\s+DESC|\s+ASC)?)?';
if REGEXP_LIKE(OrderFields,'min') then
AStringsqlFind := REGEXP_REPLACE(AStringsqlFind,APattern,' ' || OrderFields,
REGEXP_COUNT(AStringsqlFind,'min'),'min');
else
AStringsqlFind := REGEXP_REPLACE(AStringsqlFind,' ORDER BY ' || OrderFields,'min');
end if;
end if;
--嵌套分页查询语句.
--注意对rownum别名的使用，内层嵌套用rownum，外层嵌套用别名ROWNO.
AStringsqlFind := 'SELECT * FROM (SELECT T.*,ROWNUM AS ROWNO FROM (' || AStringsqlFind || ') T WHERE ROWNUM < ' ||
to_char(PageSize * PageIndex + 1) || ') TT WHERE ROWNO > ' ||
to_char(PageSize * (PageIndex - 1));
open PageData_out for AStringsqlFind;
RETURN TotalRows;
END;
END;

猜你在找的Oracle相关文章

[Oracle]记一次由sequence引发的enq sv-contention等待事件
数据库版本：11.2.0.4 RAC(1)问题现象从EM里面可以看到，在23号早上8：45~8：55时，数据库...
oracle统计信息的锁定与解锁
（一）问题背景最近在对一个大约200万行数据的表查看执行计划时，发现存在异常，理论上应该...
【转】RMAN删除过期备份或非过期备份
（一）删除备份--DELETE命令用于删除RMAN备份记录及相应的物理文件。当使用RMAN执行备份操...
数据恢复顾问（DRA）
（1）DRA介绍 数据恢复顾问（Data Recovery Advise）是一个诊断和修复数据库的工具，DRA能...
RMAN备份与恢复（一）--认识RMAN
RMAN（Recovery Manager）是Oracle恢复管理器的简称，是集数据库备份（backup）、修复（re...
RMAN备份与恢复（二）--RMAN常用操作学习
（1）连接目标数据库 在RMAN中可以建立与目标数据库或恢复目录数据库的连接。与目标数据库...
ORA-00245问题总结
（1）问题描述 在进行数据库归档备份时（备份归档日志文件和控制文件），有时成功，有时失...
使用RMAN对数据文件进行恢复
（1）备份数据库 在使用RMAN进行数据库恢复之前，先用RMAN进行全库备份 （2）删除数据文件...
Oracle使用fy_recover_data恢复truncate删除的数据
(一)truncate操作概述在生产中，truncate是使用较多的命令，在使用不当的情况下，往往会造...
备份与恢复（四）--RMAN使用恢复目录catalog来保存档案资料库
（一）恢复目录概述RMAN档案资料库用于存储数据库备份、修复以及恢复所需的信息。这些信息...
MySQLMsSQLOracleSqlitePostgre SQLMariadbMongoDBNoSQLHBaseJDBC
undo日志persistent-cmysql-error-postal-codesql-match-almysql-5.6mysql-8.0database-tri安装路径系统错误data_dir丢失文件主从同步sql_mode数据库目录匿名用户character_seID归零数据库位置查询表重复字段查询字段截断日志SUSPECT7391Remote ServeLinked Serve玄学问题登录不上开启远程访问