万能的分页存储过程

Question

传入任意SQL语句   这是不可能实现的 
兼容你的 排序子句 是可以的，通常的分页存储过程 不是有让你传入 排序的字符串吗? 在那传入如果你的需求比较特殊, 那不如贴上来看下

Answer 1

如下：如何添加排序子句？[SelectPages]
(
@p1 varchar(8000), --SQL查询语句
@p2 bigint, --页的大小
@p3 bigint, --第几面，从0开始
@recordTotal INT OUTPUT            --输出记录总数
)
as
begin 
set nocount on 
declare @tsql varchar(8000) 
DECLARE @tempCount NVARCHAR(1000)
--declare @tp1 varchar(8000) 
set @p1 = REPLACE(@p1,'@','''')
 --输出参数为总记录数
 SET @tempCount = 'SELECT @recordTotal = COUNT(*) FROM ('+@p1+ ') AS my_temp'
 EXECUTE sp_executesql @tempCount,N'@recordTotal INT OUTPUT',@recordTotal OUTPUT select @tsql='with t as '        
      +'(select row_number() over(order by getdate()) ''rn'' ,*'  
      +' from ('+@p1+') y) '      
      +'select top '+rtrim(@p2)+ ' * '    
      +'from t '         
      +'where rn>'+rtrim(@p2*@p3)
      
exec(@tsql)
end 

Answer 2

CREATE PROCEDURE [dbo].[Paging_Custom]
(
@Tables varchar(1000),
@PK varchar(100),
@Sort varchar(200) = NULL,
@isAscending bit=1,
@PageNumber int = 1,
@PageSize int = 10,
@Fields varchar(8000) = '*',
@Filter varchar(max) = NULL,
@Group varchar(1000) = NULL
)
ASDECLARE @strFilter varchar(max)
DECLARE @strSimpleFilter varchar(max)
DECLARE @strGroup varchar(max)DECLARE @SortTable varchar(100)
DECLARE @SortName varchar(100)
DECLARE @strPKColumn varchar(100)DECLARE @strSortColumn varchar(200)
DECLARE @operator char(2)/*Set filter & group variables.*/
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
begin
 SET @strGroup = ' '
end/*count*/
--exec ('select count(*) from ' +@Tables+' '+ @strFilter)
/*operator and asc_desc*/
declare @strAsc_Des varchar(50)
IF @isAscending = 0
 BEGIN  
  SET @operator = '<='
  SET @strAsc_Des = ' Desc '
 END
ELSE
 BEGIN
  SET @operator = '>='
  SET @strAsc_Des = ' ASC '
 END/*Set sorting variables.*/
/*Default Sorting*/
IF @Sort IS NULL OR  @Sort= ''
BEGIN
SET @Sort = @PK
ENDSET @strSortColumn = @SortIF CHARINDEX('.', @PK) > 0
 BEGIN
  SET @strPKColumn = SUBSTRING(@PK, CHARINDEX('.',@PK) + 1, LEN(@PK))
 END
ELSE
 BEGIN
  SET @strPKColumn = @PK  
 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/*Handle complex table*/
--Be join table,so get the left table
IF CHARINDEX(' join ',@Tables) > 0
BEGIN
SET @SortTable=SUBSTRING(ltrim(@Tables),0,CHARINDEX(' ',@Tables))
SET @strSortColumn = @SortTable+'.'+@SortName
END
/*Check the sortColumn if be Unique*/IF @SortName <> @strPKColumn
BEGIN
DECLARE @tempName varchar(100)SELECT @tempName=b.name
FROM sysobjects a INNER JOIN
      sysobjects b ON a.id = b.parent_obj 
    INNER JOIN sysindexes c ON b.name = c.name INNER JOIN
      sysindexkeys d ON c.id = d.id AND c.indid = d.indid INNER JOIN
      syscolumns e ON d.id = e.id AND d.colid = e.colid
WHERE (b.xtype = 'UQ') AND (a.name = @SortTable) AND (e.name = @SortName)IF @tempName IS NULL
 BEGIN
 
 GOTO Paging_Not_In END
ENDPaging_RowCount:/*Find the @SORT type*/DECLARE @type varchar(100)
DECLARE @prec intSELECT @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 = @SortNameIF CHARINDEX('char', @type) > 0
   SET @type = @type + '(' + CAST(@prec AS varchar) + ')'DECLARE @strPageSize varchar(50)
DECLARE @strStartRow varchar(50)
/*Default Page Number*/
--IF @PageNumber < 1
 --SET @PageNumber = 1/*Set paging variables.*/
SET @strPageSize = CAST(@PageSize AS varchar(50))
SET @strStartRow = CAST(((@PageNumber - 1)*@PageSize + 1) AS varchar(50))
 /*Execute dynamic query '
  SET ROWCOUNT ' + @strPageSize +*/ 
DECLARE @ddsql NVARCHAR(max)--,@SortColumn VARCHAR(100),@RETURNFILED NVARCHAR(4000)
--SET @RETURNFILED=N'@SortColumn ' + @type+ ' output'
--
--SET @ddsql='
--SET ROWCOUNT 100 SELECT @SortColumn='+@strSortColumn+' FROM (
--SELECT ID=row_number()over(order by '+@Sort+ @strAsc_Des+'),' + @strSortColumn + ' FROM ' + @Tables + @strFilter + ' ' + @strGroup +
--') AS A WHERE A.ID='+@strStartRow
--EXEC sp_executesql @ddsql,@RETURNFILED,@SortColumn OUTPUT--输出变量
--PRINT @SortColumn
SET @ddsql='DECLARE @SortColumn ' + @type + 'SELECT @SortColumn='+@strSortColumn+' FROM (
SELECT ID=row_number()over(order by '+@Sort+ @strAsc_Des+'),' + @strSortColumn + ' FROM ' + @Tables + @strFilter + ' ' + @strGroup +
') AS A WHERE A.ID='+@strStartRow+'
  SET ROWCOUNT ' + @strPageSize +
 'SELECT ' + @Fields + ' FROM ' + @Tables + ' WHERE ' + @strSortColumn + @operator + ' @SortColumn ' +
 @strSimpleFilter + ' ' + @strGroup + ' ORDER BY ' + @Sort + @strAsc_Des 
 PRINT @ddsql
exec (@ddsql)
--EXEC('DECLARE @SortColumn ' + @type + ' 
--SET ROWCOUNT ' + @strStartRow +
-- ' SELECT @SortColumn=' + @strSortColumn + ' FROM ' + @Tables + @strFilter + ' ' + @strGroup +
-- ' ORDER BY ' + @Sort + @strAsc_Des+' SET ROWCOUNT ' + @strPageSize +
-- 'SELECT ' + @Fields + ' FROM ' + @Tables + ' WHERE ' + @strSortColumn + @operator + ' @SortColumn ' +
-- @strSimpleFilter + ' ' + @strGroup + ' ORDER BY ' + @Sort + @strAsc_Des ) /* 支持CLR函数
 EXEC('
SET ROWCOUNT 0 ' + ' ' +
 'if object_id('+''''+'tempyww'+''''+') is not null begin drop table tempyww end SELECT ' + @Fields + ' into tempyww FROM ' + @Tables + ' '+@strFilter+' select top '+@strPageSize+' * from tempyww WHERE ' + @strSortColumn + @operator +'''' + @SortColumn+''
'' + ' ' + @strGroup + ' ORDER BY ' + @Sort + @strAsc_Des )
 */
RETURNPaging_Not_In:DECLARE @strTotalNum int
SET @strTotalNum = (@PageNumber - 1)*@PageSize--如果排序是索引列则notin方法会非常缓慢
--下限以10000为界
--if (@strTotalNum > 10000)
--begin
--declare @TotalCount int
--declare @SQL nvarchar(100)--set @SQL = 'select @TotalCount = count(*) from ' +@Tables+' '+ @strFilter
--exec sp_executesql @SQL,N'@TotalCount int output',@TotalCount out
--上限以3/4为界
--if (@strTotalNum/@TotalCount < 0.75) goto Paging_ASCD_ESC
--end--第一页
IF  @strTotalNum = 0 
beginexec('select top '+@PageSize+' '+@Fields+' from '+@Tables+' '+@strFilter+ @strGroup + ' ORDER BY ' + @Sort + @strAsc_Des+ ','+ @PK + @strAsc_Des)  
 PRINT '1'
end
ELSE
beginexec('select top '+@PageSize+' '+@Fields+' from '+@Tables+'  where '
+@PK+' not in(select top '
+@strTotalNum+' '+@PK+' from '+@Tables+' '+@strFilter+ @strGroup +
 ' ORDER BY ' + @Sort + @strAsc_Des + ','+ @PK + @strAsc_Des
+') '+@strSimpleFilter+ @strGroup + ' ORDER BY ' + @Sort + @strAsc_Des + ','+ @PK + @strAsc_Des)
PRINT '2'
end
RETURN
Paging_ASCD_ESC:

Answer 3

我修改了你的如下
ALTER PROCEDURE [SelectPages]
(
@p1 varchar(8000),     --SQL查询语句
@p2 bigint,            --页的大小
@p3 bigint,            --第几面，从0开始
@p4 varchar(8000),    --排序子句(最终列名,且不函表别名)
@recordTotal INT OUTPUT            --输出记录总数
)
as
begin 
set nocount on 
declare @tsql varchar(8000) 
DECLARE @tempCount NVARCHAR(1000)
--declare @tp1 varchar(8000) 
set @p1 = REPLACE(@p1,'@','''')
 --输出参数为总记录数
 SET @tempCount = 'SELECT @recordTotal = COUNT(*) FROM ('+@p1+ ') AS my_temp'
 EXECUTE sp_executesql @tempCount,N'@recordTotal INT OUTPUT',@recordTotal OUTPUT
 IF @p4=''
   SET @p4='getdate()'
 select @tsql='with t as '        
      +'(select row_number() over(order by '+@p4+') ''rn'' ,*'  
      +' from ('+@p1+') y) '      
      +'select top '+rtrim(@p2)+ ' * '    
      +'from t '         
      +'where rn>'+rtrim(@p2*@p3)
      PRINT @tsql
       
exec(@tsql)
END

Answer 4

问下 这个分页是干嘛的 百度了下说分页就是用row_number()或者in,not int 实现就OK 了.你这个分页指的是在前台应用程序里面实现翻页吗？（就是每页里面显示多少行。）

Answer 5

不是，是应用程序通过存储过程 查询一定的信息行数返回，SQL SERVER 分页貌似都用ROW_NUMBER 或TOP IN NOT IN实现

Answer 6

要的就是这样，这就是通用存储过程了，多个列表需要用的时候，可以提高开发效率和执行效率，开发人员只要写 SELECT * FROM A  或 SELECT * FROM B LEFT JOIN C ON... 存储过程会自动根据页码返回行数

Answer 7

CREATE PROC sp_PageView@tbname     sysname,           --要分页显示的表名@FieldKey   nvarchar(1000),     --用于定位记录的主键(惟一键)字段,可以是逗号分隔的多个字段@PageCurrent int=1,             --要显示的页码@PageSize   int=10,            --每页的大小(记录数)@FieldShow nvarchar(1000)='',  --以逗号分隔的要显示的字段列表,如果不指定,则显示所有字段@FieldOrder nvarchar(1000)='',      --以逗号分隔的排序字段列表,可以指定在字段后面指定DESC/ASC                                          用于指定排序顺序@Where    nvarchar(1000)='',    --查询条件@PageCount int OUTPUT           --总页数ASSET NOCOUNT ON--检查对象是否有效IF OBJECT_ID(@tbname) IS NULLBEGIN    RAISERROR(N'对象"%s"不存在',1,16,@tbname)    RETURNENDIF OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsTable')=0    AND OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsView')=0    AND OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsTableFunction')=0BEGIN    RAISERROR(N'"%s"不是表、视图或者表值函数',1,16,@tbname)    RETURNEND --分页字段检查IF ISNULL(@FieldKey,N'')=''BEGIN    RAISERROR(N'分页处理需要主键（或者惟一键）',1,16)    RETURNEND --其他参数检查及规范IF ISNULL(@PageCurrent,0)<1 SET @PageCurrent=1IF ISNULL(@PageSize,0)<1 SET @PageSize=10IF 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 NULLBEGIN    DECLARE @sql nvarchar(4000)    SET @sql=N'SELECT @PageCount=COUNT(*)'        +N' FROM '+@tbname        +N' '+@Where    EXEC sp_executesql @sql,N'@PageCount int OUTPUT',@PageCount OUTPUT    SET @PageCount=(@PageCount+@PageSize-1)/@PageSizeEND --计算分页显示的TOPN值DECLARE @TopN varchar(20),@TopN1 varchar(20)SELECT @TopN=@PageSize,    @TopN1=(@PageCurrent-1)*@PageSize --第一页直接显示IF @PageCurrent=1    EXEC(N'SELECT TOP '+@TopN        +N' '+@FieldShow        +N' FROM '+@tbname        +N' '+@Where        +N' '+@FieldOrder)ELSEBEGIN    --处理别名    IF @FieldShow=N'*'        SET @FieldShow=N'a.*'     --生成主键(惟一键)处理条件    DECLARE @Where1 nvarchar(4000),@Where2 nvarchar(4000),        @s nvarchar(1000),@Field sysname    SELECT @Where1=N'',@Where2=N'',@s=@FieldKey    WHILE CHARINDEX(N',',@s)>0        SELECT @Field=LEFT(@s,CHARINDEX(N',',@s)-1),            @s=STUFF(@s,1,CHARINDEX(N',',@s),N''),            @Where1=@Where1+N' AND a.'+@Field+N'=b.'+@Field,            @Where2=@Where2+N' AND b.'+@Field+N' IS NULL',            @Where=REPLACE(@Where,@Field,N'a.'+@Field),            @FieldOrder=REPLACE(@FieldOrder,@Field,N'a.'+@Field),            @FieldShow=REPLACE(@FieldShow,@Field,N'a.'+@Field)    SELECT @Where=REPLACE(@Where,@s,N'a.'+@s),        @FieldOrder=REPLACE(@FieldOrder,@s,N'a.'+@s),        @FieldShow=REPLACE(@FieldShow,@s,N'a.'+@s),        @Where1=STUFF(@Where1+N' AND a.'+@s+N'=b.'+@s,1,5,N''),         @Where2=CASE            WHEN @Where='' THEN N'WHERE ('            ELSE @Where+N' AND ('            END+N'b.'+@s+N' IS NULL'+@Where2+N')'     --执行查询    EXEC(N'SELECT TOP '+@TopN        +N' '+@FieldShow        +N' FROM '+@tbname        +N' a LEFT JOIN(SELECT TOP '+@TopN1        +N' '+@FieldKey        +N' FROM '+@tbname        +N' a '+@Where        +N' '+@FieldOrder        +N')b ON '+@Where1        +N' '+@Where2        +N' '+@FieldOrder)END