分页存储过程

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO

ALTER PROC  [dbo].[GetDataByPage]
  @tbname     sysname,            --要分页显示的表名
  @FieldKey   sysname,            --用于定位记录的主键(惟一键)字段,只能是单个字段
  @PageCurrent int=1,             --要显示的页码
  @PageSize   int=10,             --每页的大小(记录数)
  @FieldShow  nvarchar(1000)='',  --以逗号分隔的要显示的字段列表,如果不指定,则显示所有字段
  @FieldOrder  nvarchar(1000)='', --以逗号分隔的排序字段列表,可以指定在字段后面指定DESC/ASC                              
  @Where     nvarchar(1000)='',   --查询条件
  @RecordCount  int OUTPUT,       --总记录数
  @PageCount  int OUTPUT          --总页数
AS

DECLARE @sql nvarchar(4000)
SET NOCOUNT ON

--检查对象是否存在
IF OBJECT_ID(@tbname) IS NULL
BEGIN
  RAISERROR(N'对象"%s"不存在',1,16,@tbname)
  RETURN
END

--检查对象是否是有效的'表'
IF OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsTable')=0 AND OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsView')=0 AND OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsTableFunction')=0
BEGIN
  RAISERROR(N'"%s"不是表、视图或者表值函数',1,16,@tbname)
  RETURN
END

--分页所需主键检查
IF ISNULL(@FieldKey,N'')=''
BEGIN
  RAISERROR(N'分页处理需要主键（或者惟一键）',1,16)
  RETURN
END

--其他参数检查及规范
IF ISNULL(@PageCurrent,0)<1 SET @PageCurrent=1
IF ISNULL(@PageSize,0)<1 SET @PageSize=10
IF ISNULL(@FieldShow,N'')=N'' SET @FieldShow=N'*'
IF ISNULL(@FieldOrder,N'')=N''
  SET @FieldOrder=N''
ELSE
  SET @FieldOrder=N'ORDER BY '+LTRIM(@FieldOrder)
IF ISNULL(@Where,N'')=N''
  SET @Where=N''
ELSE
  SET @Where=N'WHERE (' + @Where + N')'

--如果@PageCount为NULL值,则计算总页数(这样设计可以只在第一次计算总页数,以后调用时,把总页数传回给存储过程,避免再次计算总页数,对于不想计算总页数的处理而言,可以给@PageCount赋值)
IF @PageCount IS NULL
BEGIN
  SET @sql=N'SELECT @PageCount=COUNT(*)' + N' FROM '+@tbname + N' '+@Where
  EXEC sp_executesql @sql,N'@PageCount int OUTPUT',@PageCount OUTPUT
  SET @RecordCount = @PageCount
  SET @PageCount=(@PageCount+@PageSize-1)/@PageSize
END

--计算分页显示的TOPN值
DECLARE @TopN varchar(20),@TopN1 varchar(20)
SELECT @TopN=@PageSize,
@TopN1=@PageCurrent*@PageSize

--第一页直接显示
IF @PageCurrent=1
  EXEC(N'SELECT TOP ' + @TopN + N' ' + @FieldShow + N' FROM ' + @tbname + N' ' + @Where + N' ' + @FieldOrder)
ELSE
BEGIN
  
  SELECT @PageCurrent=@TopN1,
  
  @sql=N'SELECT @n=@n-1,@s=CASE WHEN @n<'+@TopN
  +N' THEN @s+N'',''+QUOTENAME(RTRIM(CAST('+@FieldKey
  +N' as varchar(8000))),N'''''''') ELSE N'''' END FROM '+@tbname
  +N' '+@Where
  +N' '+@FieldOrder

  
  SET ROWCOUNT @PageCurrent  --设置：限定sql语句影响的行数（增删改查等....）

  
  EXEC sp_executesql @sql,
  N'@n int,@s nvarchar(4000) OUTPUT',
  @PageCurrent,@sql OUTPUT

  
  SET ROWCOUNT 0             --设置：解除限定

  
  IF @sql=N''
    EXEC(N'SELECT TOP 0'+N' '+@FieldShow+N' FROM '+@tbname)
  ELSE
    BEGIN
     SET @sql=STUFF(@sql,1,1,N'')

     --执行查询
     EXEC(N'SELECT TOP '+@TopN+N' '+@FieldShow+N' FROM '+@tbname+N' WHERE '+@FieldKey+N' IN('+@sql+N') '+@FieldOrder)
    END
END