sqlserver de 分页存储过程

使用分页存储过程
Create  PROCEDURE ListPage(
@tblName  nvarchar(200),           ----要显示的表或多个表的连接
@fldName  nvarchar(200) = '*',          ----要显示的字段列表
@pageSize int = 10,                    ----每页显示的记录个数
@page  int = 1,           ----要显示那一页的记录
@pageCount int = 1 output,          ----查询结果分页后的总页数
@Counts int = 1 output,           ----查询到的记录数
@fldSort nvarchar(100) = null,          ----排序字段列表或条件
@Sort  bit = 0,           ----排序方法，0为升序，1为降序
@strCondition nvarchar(200) = null, ----查询条件,不需where
@ID  nvarchar(50)  ----主表的主键
)
AS
SET NOCOUNT ON
Declare @sqlTmp nvarchar(1000)  ----存放动态生成的SQL语句
Declare @strTmp nvarchar(1000)  ----存放取得查询结果总数的查询语句
Declare @strID  nvarchar(1000)  ----存放取得查询开头或结尾ID的查询语句
Declare @sqlSort nvarchar(200)  ----存放临时生成的排序条件
Declare @intCounts int   ----要移动的记录数
Declare @BeginID int   ----开始的ID
Declare @EndID   int   ----结束的ID

--------首先生成排序方法---------
if @Sort=0  --升序
begin
   if not(@fldSort is null)
  set @sqlSort = ' Order by ' + @fldSort 
   else
  set @sqlSort = ' Order by ' + @ID 
end
else   --降序
begin
 if not(@fldSort is null)
  set @sqlSort = ' Order by ' + @fldSort + ' DESC'  
 else
  set @sqlSort = ' Order by ' + @ID + ' DESC '
end

--------生成查询语句--------
--此处@strTmp为取得查询结果数量的语句
if @strCondition is null --没有设置显示条件
 begin
 set @sqlTmp =  @fldName + ' From ' + @tblName
 set @strTmp = 'select @Counts=Count(' + @ID + ') FROM '+@tblName
 set @strID = ' From ' + @tblName
 end
else
 begin
 set @sqlTmp = + @fldName + 'From ' + @tblName + ' where ' + @strCondition
 set @strTmp = 'select @Counts=Count(' + @ID + ') FROM '+@tblName + ' where ' + @strCondition
 set @strID = ' From ' + @tblName + ' where ' + @strCondition
 end
 

----取得查询结果总数量-----
exec sp_executesql @strTmp,N'@Counts int out ',@Counts out

--取得分页总数
if @Counts <= @pageSize
 set @pageCount = 1
else
 set @pageCount = (@Counts / @pageSize) + 1

--计算要移动的记录数
if @page = 1
 set @intCounts = @pageSize
else
begin
 set @intCounts = (@page-1) * @pageSize + 1
end

-----取得分页后此页的第一条记录的ID
set @strID = 'select @BeginID=' + @ID + ' ' + @strID

set @intCounts = @intCounts - @pageSize + 1
set rowcount  @intCounts
exec sp_executesql @strID,N'@BeginID int out ',@BeginID out

-----取得分页后此页的最后一条记录的ID
set @intCounts = @intCounts + @pageSize - 1
print @intCounts
set rowcount  @intCounts
exec sp_executesql @strID,N'@BeginID int out ',@EndID out

------恢复系统设置-----
set rowcount  0
SET NOCOUNT OFF

------返回查询结果-----
if @strCondition is null
 set @strTmp = 'select ' + @sqlTmp + ' where ' + @ID + ' between ' + str(@BeginID) + ' and ' + str(@EndID)
else
 set @strTmp = 'select ' + @sqlTmp + ' where ' + @ID +' (between ' + str(@BeginID) + ' and ' + str(@EndID) + ')  and ' + @strCondition

if not(@sqlSort is null)
set @strTmp = @strTmp + @sqlSort
exec sp_executesql @strTmp

分页存储过程2（更加高效）

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go

ALTER PROCEDURE [dbo].[Public_Pagination]

@tblName varchar(255),         --表名

@strGetFields varchar(1000), -- 需要返回的列

@strWhere varchar(4000) = '', -- 查询条件(注意: 不要加where)

@fldName varchar(255)='',      -- 排序的字段名

@orderType bit = 0, -- 设置排序类型, 非0 值则降序

@pageSize   int = 10,          -- 页尺寸

@pageIndex int = 1           -- 页码

AS

declare @strSQL   varchar(5000)       -- 主语句

declare @strTmp   varchar(110)        -- 临时变量

declare @strOrder varchar(400)        -- 排序类型

begin

    if @strWhere !=''

    set @strSQL = 'select count(*) as Total from [' + @tblName + '] where '+@strWhere

    else

    set @strSQL = 'select count(*) as Total from [' + @tblName + ']'
    
    exec (@strSQL);

if @orderType != 0

begin

    set @strTmp = '<(select min'

set @strOrder = ' order by [' + @fldName +'] desc'

--如果@orderType不是，就执行降序.

end

else

begin

    set @strTmp = '>(select max'

    set @strOrder = ' order by [' + @fldName +'] asc'

end

if @pageIndex<1
begin
set @pageIndex=1
--如果输入负值变为第一页
end

if @pageIndex = 1

begin

    if @strWhere != '' 

   set @strSQL = 'select top ' + str(@pageSize) +' '+@strGetFields+ ' from [' + @tblName + '] where ' + @strWhere + ' ' + @strOrder
     else

     set @strSQL = 'select top ' + str(@pageSize) +' '+@strGetFields+ '  from ['+ @tblName + '] '+ @strOrder

--如果是第一页就执行以上代码，这样会加快执行速度

end

else

begin

--以下代码赋予了@strSQL以真正执行的SQL代码

if @strWhere=''
 begin
 set @strSQL = 'select top ' + str(@pageSize) +' '+@strGetFields+ ' from ['

    + @tblName + '] where [' + @fldName + ']' + @strTmp + '(['
 + @fldName + ']) from (select top ' + str((@pageIndex-1)*@pageSize) + ' ['
 + @fldName + '] from [' + @tblName + ']' + @strOrder + ') as tblTmp)'+ @strOrder
 end
else
 begin
    set @strSQL = 'select top ' + str(@PageSize) +' '+@strGetFields+ ' from ['

        + @tblName + '] where [' + @fldName + ']' + @strTmp + '(['

        + @fldName + ']) from (select top ' + str((@PageIndex-1)*@PageSize) + ' ['

        + @fldName + '] from [' + @tblName + '] where ' + @strWhere + ' '

        + @strOrder + ') as tblTmp) and ' + @strWhere + ' ' + @strOrder
    end
end

end 

exec (@strSQL)