较好的分页存储过程

set ANSI_NULLS ON

set QUOTED_IDENTIFIER ON

go





--drop procedure p_page 

--go 



ALTER procedure [dbo].[CutPage_PRO] 



( 

@Tables varchar(1000), --表名如testtable (如果是联合查询不要用as ,只用表名果如 table1 left join table2)

@PrimaryKey varchar(100),--表的主键,必须唯一性 (联合查询时名表加字段名如:table1.id)

@Sort varchar(200) = NULL,--排序字段如f_Name asc或f_name desc(注意只能有一个排序字段)(联合查询时表名加字段: table1.id) 

@CurrentPage int = 1,--当前页 

@PageSize int = 10,---每页大小 

@Fields varchar(1000) = '*',--显示的字段列表 (联合查询时表名.字段名如:table1.name,table1.age,table2.lvl,table2.gender)

@Filter varchar(1000) = NULL,--条件语句,不加where,如 f_id>3 

@Group varchar(1000) = NULL,--分组字段 

@TotalPage int output --返回总页数 

) 



--WITH ENCRYPTION ---加密存储 



AS 







SET NOCOUNT ON 

Declare @intResult Int 



Begin Tran 



DECLARE @sql nvarchar(4000) 



if @Filter is null or @Filter='' 

set @Sql = 'select @intResult = count(' + @PrimaryKey + ') from ' + @Tables 

else 

set @Sql = 'select @intResult = count(' + @PrimaryKey + ') from ' + @Tables + ' where + ' + @Filter 



EXEC sp_executesql @sql,N'@intResult int OUTPUT',@intResult OUTPUT--计算总记录数 

select @TotalPage=CEILING((@intResult+0.0)/@PageSize)--计算总页数 





IF @Sort IS NULL or @Sort = '' 

SET @Sort = @PrimaryKey 



DECLARE @SortTable varchar(100) 

DECLARE @SortName varchar(100) 

DECLARE @strSortColumn varchar(200) 

DECLARE @operator char(2) 

DECLARE @type varchar(100) 

DECLARE @prec int 



IF CHARINDEX('DESC',@Sort)>0 

BEGIN 

SET @strSortColumn = REPLACE(@Sort, 'DESC', '') 

SET @operator = '<=' 

END 

ELSE 

IF CHARINDEX('ASC', @Sort) > 0 

BEGIN 

SET @strSortColumn = REPLACE(@Sort, 'ASC', '') 

SET @operator = '>=' 

END 



ELSE 

BEGIN 

SET @strSortColumn = @SORT 

SET @operator = '>=' 

END 



IF CHARINDEX('.', @strSortColumn) > 0 

BEGIN 

SET @SortTable = SUBSTRING(@strSortColumn, 0, CHARINDEX('.',@strSortColumn)) 

SET @SortName = SUBSTRING(@strSortColumn, CHARINDEX('.',@strSortColumn) + 1, LEN(@strSortColumn)) 

END 

ELSE 

BEGIN 

SET @SortTable = @Tables 

SET @SortName = @strSortColumn 

END 



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 @strPageSize varchar(50) 

DECLARE @strStartRow varchar(50) 

DECLARE @strFilter varchar(1000) 

DECLARE @strSimpleFilter varchar(1000) 

DECLARE @strGroup varchar(1000) 



IF @CurrentPage < 1 

SET @CurrentPage = 1 



SET @strPageSize = CAST(@PageSize AS varchar(50)) 

SET @strStartRow = CAST(((@CurrentPage - 1)*@PageSize + 1) AS varchar(50)) 



IF @Filter IS NOT NULL AND @Filter != '' 

BEGIN 

SET @strFilter = ' Where ' + @Filter + ' ' 

SET @strSimpleFilter = ' AND ' + @Filter + ' ' 

END 

ELSE 

BEGIN 

SET @strSimpleFilter = '' 

SET @strFilter = '' 

END 



IF @Group IS NOT NULL AND @Group != '' 

SET @strGroup = ' GROUP BY ' + @Group + ' ' 

ELSE 

SET @strGroup = '' 



set @sql = 'DECLARE @SortColumn ' + @type + ' 

SET ROWCOUNT ' + @strStartRow + ' 

Select @SortColumn=' + @strSortColumn + ' FROM ' + @Tables + @strFilter + ' ' + @strGroup + ' orDER BY ' + @Sort + ' 

SET ROWCOUNT ' + @strPageSize + ' 

Select ' + @Fields + ' FROM ' + @Tables + ' Where ' + @strSortColumn + @operator + ' @SortColumn ' + @strSimpleFilter + ' ' + @strGroup + ' orDER BY ' + @Sort + ' '



--print @sql 



exec(@sql) 





If @@Error <> 0 

Begin 

RollBack Tran 

Return -1 

End 

Else 

Begin 

Commit Tran 

Return @intResult ---返回记录总数 

End 



---------------------------eg-------------

/*

Declare @@intResult Int 

exec CutPage_PRO 

' TreavlPlan left join Book on Book.id=TreavlPlan.planid ',

'TreavlPlan.id',

'TreavlPlan.id desc',

2,

2,

'*',

'TreavlPlan.userid=1',

'',

@@intResult

*/





你可能感兴趣的:(存储过程)