发布两个大数据集通用分页存储过程

发布两个大数据集通用分页存储过程，欢迎大家和我联系共同探讨改进方法，同时我也会及时将更新内容发布在下面的网址
http://www.thinksea.com/thinksea/show.aspx?id=92db4c46-2216-4b24-a72b-aa27fcf82e50

/*--用存储过程实现的大数据集分页程序

显示指定表、视图、查询结果的第X页

Copy   Right   2007.09   http://www.thinksea.com   （传播时请保留此信息，谢谢！）
欢迎大家来信批评指正，作者的   Email：thinksea@163.com   QQ：41464129

--调用示例
1、简单调用示例：
exec   SelectPage   "图书表名称 ", "[id] ",5,3, "图书编号,图书名称 ", "图书编号 "
2、因为要顾及通用性,所以对带排序的查询语句有一定要求.如果先排序再出结果时需要使用top   100   percent。示例如下：
exec   SelectPage   "select   top   100   percent   *   from   图书表名称   order   by   图书编号 ", "[id] ",5,3, "图书编号,图书名称 ", "图书编号 "
*/
if   exists   (select   *   from   dbo.sysobjects   where   id   =   object_id(N "[dbo].[SelectPage] ")   and   OBJECTPROPERTY(id,   N "IsProcedure ")   =   1)
drop   procedure   [dbo].[SelectPage]
GO

CREATE   PROCEDURE   [dbo].[SelectPage]
  @QueryString   nvarchar(4000),   --表名、视图名、查询语句
  @KeyFieldName   nvarchar   (250)= " ",   --主键列、标识列或具有唯一值的列名称
  @PageIndex   int=0,   --指定分页索引，从0开始的整数，0表示第一页
  @PageSize   int=10,   --每页的大小(每页显示行数)
  @FieldShow   nvarchar   (4000)= " ",   --要显示的字段列表,*表示全部字段,如果查询结果有标识字段,需要指定此值,且不包含标识字段（因为查询时需要为临时表创建标识字段会产生冲突，采用 uniqueidentifier作为标识字段除外）
  @FieldOrder   nvarchar   (1000)= " "   /*排序字段列表
  注意：因为数据物理存储顺序的不同，如果排序字段存在重复值可能会导致返回的指定分页记录集无效，此时需要附加一唯一值字段排序辅助完成排序功能。
  例如：在一图书表中存在id(图书编号)和name(图书名称)两个字段，其中id字段是唯一值，name字段存在重复值，
  如果从按照name进行排序的记录集中读取数据则应考虑使用“[name]   asc,   [id]   asc”这样的排序字段列表，
  其中“[id]   asc”用来辅助“[name]   asc”完成排序，对于按照name排序的结果中出现name值相同的多条记录按照id进行排序
  */
as
declare   @RecordsCount   int,   --记录总数
  @PagesCount   int   --总页数
IF   isnull(@KeyFieldName, " ")= " "
  BEGIN
  RAISERROR( "必须指定参数   @KeyFieldName ",   16,   1)
  RETURN
  END
set   @KeyFieldName= "   "+@KeyFieldName
select   @FieldShow=case   isnull(@FieldShow, " ")   when   " "   then   "   * "   else   "   "+@FieldShow   end
  ,@FieldOrder=case   isnull(@FieldOrder, " ")   when   " "   then   " "   else   "   order   by   "+@FieldOrder   end
  ,@QueryString=case   when   object_id(@QueryString)   is   not   null   then   "   "+@QueryString   else   "   ( "+@QueryString+ ")   a "   end

declare   @sql   nvarchar(4000)
set   @sql= "select   @RecordsCount=count(*)   from   "+@QueryString
EXEC   sp_executesql   @sql,N "@RecordsCount   int   output ",@RecordsCount   output--计算总页数
set   @PagesCount=ceiling((@RecordsCount+0.0)/@PageSize)

declare   @TempFieldName   nvarchar(50)--临时字段名
set   @TempFieldName= "   [ID_ "+cast(newid()   as   varchar(40))+ "] "

set   @sql=N "SELECT   TOP   "+cast((@PageIndex+1)*@PageSize   as   nvarchar(10))+@TempFieldName   +   N "=identity(int,1,1), "+@KeyFieldName+N "   INTO   #tb1   from "+@QueryString+@FieldOrder+N "
select "+@FieldShow+N "   from "+@QueryString+N "   where "+@KeyFieldName+N "   in(
select   top   "+cast(@PageSize   as   nvarchar(10))+@KeyFieldName+N "   from   #tb1   where "   +   @TempFieldName   +   N " > "+cast(@PageIndex*@PageSize   as   nvarchar(10))
+N ") "+@FieldOrder
EXEC   (   @sql   )
select   @RecordsCount   as   [RecordsCount],   @PagesCount   as   [PagesCount]
GO

 

 

 

/*--用存储过程实现的大数据集分页程序

显示指定表、视图、查询结果的从第X条记录开始的N条记录

Copy   Right   2007.09   http://www.thinksea.com   （传播时请保留此信息，谢谢！）
欢迎大家来信批评指正，作者的   Email：thinksea@163.com   QQ：41464129

--调用示例
1、简单调用示例：
exec   SelectRange   "图书表名称 ", "[id] ",5,3, "图书编号,图书名称 ", "图书编号 "
2、因为要顾及通用性,所以对带排序的查询语句有一定要求.如果先排序再出结果时需要使用top   100   percent。示例如下：
exec   SelectRange   "select   top   100   percent   *   from   图书表名称   order   by   图书编号 ", "[id] ",5,3, "图书编号,图书名称 ", "图书编号 "
*/
if   exists   (select   *   from   dbo.sysobjects   where   id   =   object_id(N "[dbo].[SelectRange] ")   and   OBJECTPROPERTY(id,   N "IsProcedure ")   =   1)
drop   procedure   [dbo].[SelectRange]
GO

CREATE   PROCEDURE   [dbo].[SelectRange]
  @QueryString   nvarchar(4000),   --表名、视图名、查询语句
  @KeyFieldName   nvarchar   (250)= " ",   --主键列、标识列或具有唯一值的列名称
  @BeginIndex   int=0,   --指定起始索引，从0开始的整数，0表示第一条记录
  @Count   int=10,   --最多获取的记录数(行数)（如果取值为   NULL   则忽略此条件，获取从   @BeginIndex   起始的全部记录。）
  @FieldShow   nvarchar   (4000)= " ",   --要显示的字段列表,*表示全部字段,如果查询结果有标识字段,需要指定此值,且不包含标识字段（因为查询时需要为临时表创建标识字段会产生冲突，采用 uniqueidentifier作为标识字段除外）
  @FieldOrder   nvarchar   (1000)= " "   /*排序字段列表
  注意：因为数据物理存储顺序的不同，如果排序字段存在重复值可能会导致返回的指定分页记录集无效，此时需要附加一唯一值字段排序辅助完成排序功能。
  例如：在一图书表中存在id(图书编号)和name(图书名称)两个字段，其中id字段是唯一值，name字段存在重复值，
  如果从按照name进行排序的记录集中读取数据则应考虑使用“[name]   asc,   [id]   asc”这样的排序字段列表，
  其中“[id]   asc”用来辅助“[name]   asc”完成排序，对于按照name排序的结果中出现name值相同的多条记录按照id进行排序
  */
as
IF   isnull(@KeyFieldName, " ")= " "
  BEGIN
  RAISERROR( "必须指定参数   @KeyFieldName ",   16,   1)
  RETURN
  END
set   @KeyFieldName= "   "+@KeyFieldName
select   @FieldShow=case   isnull(@FieldShow, " ")   when   " "   then   "   * "   else   "   "+@FieldShow   end
  ,@FieldOrder=case   isnull(@FieldOrder, " ")   when   " "   then   " "   else   "   order   by   "+@FieldOrder   end
  ,@QueryString=case   when   object_id(@QueryString)   is   not   null   then   "   "+@QueryString   else   "   ( "+@QueryString+ ")   a "   end

declare   @sql   nvarchar(4000)
declare   @TempFieldName   nvarchar(50)--临时字段名
set   @TempFieldName= "   [ID_ "+cast(newid()   as   varchar(40))+ "] "

if   @Count   is   not   null
  set   @sql=N "SELECT   TOP   "+cast(@BeginIndex+@Count   as   nvarchar(10))+@TempFieldName   +   N "=identity(int,1,1), "+@KeyFieldName+N "   INTO   #tb1   from "+@QueryString+@FieldOrder+N "
select "+@FieldShow+N "   from "+@QueryString+N "   where "+@KeyFieldName+N "   in(
select   top   "+cast(@Count   as   nvarchar(10))+@KeyFieldName+N "   from   #tb1   where "   +   @TempFieldName   +   N " > "+cast(@BeginIndex   as   nvarchar(10))
+N ") "+@FieldOrder
else
  set   @sql=N "SELECT   "+@TempFieldName   +   N "=identity(int,1,1), "+@KeyFieldName+N "   INTO   #tb1   from "+@QueryString+@FieldOrder+N "
select "+@FieldShow+N "   from "+@QueryString+N "   where "+@KeyFieldName+N "   in(
select "+@KeyFieldName+N "   from   #tb1   where "   +   @TempFieldName   +   N " > "+cast(@BeginIndex   as   nvarchar(10))
+N ") "+@FieldOrder
EXEC   (   @sql   )
GO