存储过程分页查询(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;




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

猜你在找的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玄学问题登录不上开启远程访问