分页存储过程1

set ANSI_NULLS ON

set QUOTED_IDENTIFIER ON

go

ALTER PROCEDURE [dbo].[P_GetPagedReCord]

(@startIndex INT, -- 开始索引号

@endindex INT, -- 结束索引号

@tblName varchar(255), -- 表名

@fldName varchar(255), -- 显示字段名

@OrderfldName varchar(255), -- 排序字段名

@IsReCount bit = 0, -- 返回记录总数, 非0 值则返回

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

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

)

AS

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

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

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

if @OrderType!=0

Begin

set @strOrder='Desc'

End

else

Begin

set @strOrder='Asc'

End

set @strSQL ='WITH orderList AS ( '+

'SELECT ROW_NUMBER() OVER (ORDER BY '+@OrderfldName+' '+@strOrder+')AS Row, '+@fldName+' '+

'from '+@tblName

if @strWhere!=''

set @strSQL = @strSQL+' where ' + @strWhere

set @strSQL=@strSQL+')'+

'SELECT '+@fldName+' '+

'FROM orderlist '+

'WHERE Row between '+str(@startIndex)+' and '+str(@endIndex)+''

 

if @IsReCount != 0

Begin

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

if @strWhere!=''

set @strSQL = @strSQL+' where ' + @strWhere

End

--print(@strSQL)

exec (@strSQL)

 

分页存储过程2
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
ALTER PROCEDURE usp_PagingLarge
@TableNames VARCHAR(200), --表名，可以是多个表，但不能用别名
@PrimaryKey VARCHAR(100), --主键，可以为空，但@Order为空时该值不能为空
@Fields VARCHAR(200), --要取出的字段，可以是多个表的字段，可以为空，为空表

示select *
@PageSize INT, --每页记录数
@CurrentPage INT, --当前页，表示第页
@Filter VARCHAR(200) = '', --条件，可以为空，不用填where
@Group VARCHAR(200) = '', --分组依据，可以为空，不用填group by
@Order VARCHAR(200) = '' --排序，可以为空，为空默认按主键升序排列，不用填

order by
AS
BEGIN
DECLARE @SortColumn VARCHAR(200)
DECLARE @Operator CHAR(2)
DECLARE @SortTable VARCHAR(200)
DECLARE @SortName VARCHAR(200)
IF @Fields = ''
SET @Fields = '*'
IF @Filter = ''
SET @Filter = 'WHERE 1=1'
ELSE
SET @Filter = 'WHERE ' + @Filter
IF @Group <>''
SET @Group = 'GROUP BY ' + @Group
IF @Order <> ''
BEGIN
DECLARE @pos1 INT, @pos2 INT
SET @Order = REPLACE(REPLACE(@Order, ' asc', ' ASC'), ' desc', ' DESC')
IF CHARINDEX(' DESC', @Order) > 0
IF CHARINDEX(' ASC', @Order) > 0
BEGIN
IF CHARINDEX(' DESC', @Order) < CHARINDEX(' ASC', @Order)
SET @Operator = '<='
ELSE
SET @Operator = '>='
END
ELSE
SET @Operator = '<='
ELSE
SET @Operator = '>='
SET @SortColumn = REPLACE(REPLACE(REPLACE(@Order, ' ASC', ''), ' DESC',

''), ' ', '')
SET @pos1 = CHARINDEX(',', @SortColumn)
IF @pos1 > 0
SET @SortColumn = SUBSTRING(@SortColumn, 1, @pos1-1)
SET @pos2 = CHARINDEX('.', @SortColumn)
IF @pos2 > 0
BEGIN
SET @SortTable = SUBSTRING(@SortColumn, 1, @pos2-1)
IF @pos1 > 0
SET @SortName = SUBSTRING(@SortColumn, @pos2+1, @pos1-@pos2-1)
ELSE
SET @SortName = SUBSTRING(@SortColumn, @pos2+1, LEN(@SortColumn)-@pos2)
END
ELSE
BEGIN
SET @SortTable = @TableNames
SET @SortName = @SortColumn
END
END
ELSE
BEGIN
SET @SortColumn = @PrimaryKey
SET @SortTable = @TableNames
SET @SortName = @SortColumn
SET @Order = @SortColumn
SET @Operator = '>='
END

DECLARE @type varchar(50)
DECLARE @prec int
SELECT @type=t.name, @prec=c.prec
FROM sysobjects o
JOIN syscolumns c on o.id=c.id
JOIN systypes t on c.xusertype=t.xusertype
WHERE o.name = @SortTable AND c.name = @SortName

IF CHARINDEX('char', @type) > 0
SET @type = @type + '(' + CAST(@prec AS varchar) + ')'

DECLARE @TopRows INT
SET @TopRows = @PageSize * @CurrentPage + 1
PRINT @type
DECLARE @sql NVARCHAR(4000)
SET @Sql = 'DECLARE @SortColumnBegin ' + @type + '
SET ROWCOUNT ' + Cast(@TopRows as VARCHAR(10))+ ' SELECT

@SortColumnBegin=' +
@SortColumn + ' FROM ' + @TableNames + ' ' + @Filter + ' ' + @Group + '

ORDER BY ' + @Order + '
SET ROWCOUNT ' + CAST(@PageSize AS VARCHAR(10)) + '
SELECT ' + @Fields + ' FROM ' + @TableNames + ' ' + @Filter + ' AND ' +

@SortColumn + '' + @Operator + '@SortColumnBegin ' + ISNULL(@Group,'') + '

ORDER BY ' + @Order + ''
-- Print(@sql)
Exec(@sql)

END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO