功能不错的分页存储过程,可支持多表查询
时间:2015/10/17 11:17:00来源:互联网 作者:flyso 点击: 844 次
/**//*说明:1.支持多表查询 2.支持任意排序 3.不支持表别名IF(EXISTS(Select * FROM sysobjects Where [id]=OBJECT_ID('usp_PagingLarge') AND xtype='P')) Drop PROCEDURE usp_PagingLarge*/GOCreate PROCEDURE flyso_PagingLarge--www.flyso.cn Modify by FLYSO@TableNames VARCHAR(200), --表名,可以是多个表,但不能用别名@PrimaryKey VARCHAR(100), --主键,可以为空,但@Order为空时该值不能为空@Fields VARCHAR(200), --要取出的字段,可以是多个表的字段,可以为空,为空表示select *@PageSize INT, --每页记录数@CurrentPage INT, --当前页,0表示第1页@Filter VARCHAR(200) = '', --条件,可以为空,不用填 where@Group VARCHAR(200) = '', --分组依据,可以为空,不用填 group by@Order VARCHAR(200) = '', --排序,可以为空,为空默认按主键升序排列,不用填 order by@TotalRecord int output -- 总记录数ASBEGIN 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 @TopRows print @Operator EXEC(' DECLARE @SortColumnBegin ' + @type + ' SET ROWCOUNT ' + @TopRows + ' Select @SortColumnBegin=' + @SortColumn + ' FROM ' + @TableNames + ' ' + @Filter + ' ' + @Group + ' orDER BY ' + @Order + ' SET ROWCOUNT ' + @PageSize + ' Select ' + @Fields + ' FROM ' + @TableNames + ' ' + @Filter + ' AND ' + @SortColumn + '' + @Operator + '@SortColumnBegin ' + @Group + ' orDER BY ' + @Order + ' ')--计算总记录数 Declare @sql nvarchar(2000); if (@Filter='Where 1=1') set @sql = 'select @TotalRecord = count(*) from ' + @TableNames else set @sql = 'select @TotalRecord = count(*) from ' + @TableNames+ ' ' + @Filter EXEC sp_executesql @sql,N'@TotalRecord int OUTPUT',@TotalRecord OUTPUT print @sql--计算总记录数 If @@Error <> 0 Begin RollBack Tran Return -1 End Else Begin Commit Tran Return @TotalRecord ---返回记录总数 End ENDGO