开发学院数据库MSSQL Server 利用Top n实现的分页存储过程 阅读

利用Top n实现的分页存储过程

 2009-11-13 00:00:00 来源:WEB开发网   
核心提示:存储过程为:--=--Author:<李培>--Createdate:<2009-11-11>--Description:<利用Topn实现的分页存储过程>--=CREATEPROCEDURE[dbo].[CommonPager]@strTableNamesysname,--必填:进

存储过程为:

-- =============================================
-- Author:        <李培>
-- Create date: <2009-11-11>
-- Description:    <利用Top n实现的分页存储过程>
-- =============================================
CREATE PROCEDURE [dbo].[CommonPager]
    @strTableName sysname,                    --必填:进行分页的表名
    @strKeyField nvarchar(1000) = N'',        --必填:主键或唯一键(数值类型),推荐添加索引
    @intPageNumber int = 1,                    --选填:显示的页码,默认值为 1
    @intPageSize int = 10,                    --选填:显示的页面大小,默认值为 10
    @strShowFields nvarchar(1000) = N'',    --选填:显示的字段,默认为 全部字段
    @strWhereFilter nvarchar(1000) = N'',    --选填:Where 条件句
    @strOrderFields nvarchar(1000) = N'',    --选填:排序字段列表,以逗号分隔
    @intPageCount int OUTPUT
AS
BEGIN
    -- SET NOCOUNT ON added to prevent extra result sets from
    -- interfering with SELECT statements.
    SET NOCOUNT ON;
    
    -- ******************参数检查及处理:开始******************
    -- 表名
    IF OBJECT_ID(@strTableName) IS NULL
        BEGIN
            RAISERROR(N'对象"%s"不存在',1,16,@strTableName)
            RETURN
        END
    IF OBJECTPROPERTY(OBJECT_ID(@strTableName),N'IsTable')=0
        AND OBJECTPROPERTY(OBJECT_ID(@strTableName),N'IsView')=0
        AND OBJECTPROPERTY(OBJECT_ID(@strTableName),N'IsTableFunction')=0
        BEGIN
            RAISERROR(N'"%s"不是表、视图或者表值函数',1,16,@strTableName)
            RETURN
    END
    -- 主键字段
    IF ISNULL(@strKeyField,N'')=''
        BEGIN
            RAISERROR(N'分页处理需要主键或唯一键(数值类型)',1,16)
            RETURN
        END
    -- 显示字段
    IF ISNULL(@strShowFields,N'')=N'' 
        SET @strShowFields=N'*'
    -- Where 条件句
    IF ISNULL(@strWhereFilter,N'') != N''
        SET @strWhereFilter = N' AND ' + @strWhereFilter + N' '
    -- 排序语句
    IF ISNULL(@strOrderFields,N'') != N''
        SET @strOrderFields = N' ORDER BY ' + @strOrderFields + N' '
    -- 页码
    IF ISNULL(@intPageNumber,0)<1 
        SET @intPageNumber=1
    -- 页大小
    IF ISNULL(@intPageSize,0)<1 
        SET @intPageSize=10
    -- ******************参数检查及处理:结束******************
    
    -- 计算总页数
    DECLARE @selectItemsCount nvarchar(4000)
    SET @SelectItemsCount = N'SELECT @intPageCount = COUNT( ' + @strKeyField + N' ) FROM ' + @strTableName + N' WHERE 1=1 ' + @strWhereFilter
    EXEC sp_executesql @selectItemsCount , N'@intPageCount int OUTPUT,@strKeyField nvarchar(1000),@strTableName nvarchar(1000),@strWhereFilter nvarchar(1000)' 
        ,@intPageCount OUTPUT,@strKeyField,@strTableName,@strWhereFilter
    SET @intPageCount = (@intPageCount + @intPageSize -1) / @intPageSize
    
    -- 计算
    DECLARE @TopNForMain nvarchar(50)
    DECLARE @TopNForChild nvarchar(50)
    SET @TopNForMain = @intPageSize
    SET @TopNForChild = @intPageSize * (@intPageNumber - 1)
    -- 返回数据集
    IF @intPageNumber = 1
        BEGIN
            DECLARE @queryStr1 nvarchar(4000)
            SET @queryStr1 = N'SELECT TOP '+ @TopNForMain + N' ' + @strShowFields + N' FROM ' + @strTableName + N' WHERE 1=1 ' + @strWhereFilter + N' ' + @strOrderFields
            EXEC sp_executesql @queryStr1
                ,N'@TopNForMain nvarchar(50),@strShowFields nvarchar(1000),@strTableName sysname,@strWhereFilter nvarchar(1000),@strOrderFields nvarchar(1000)'
                ,@TopNForMain,@strWhereFilter,@strTableName,@strShowFields,@strOrderFields
            PRINT @queryStr1
        END
    ELSE
        BEGIN
            DECLARE @queryStr2 nvarchar(4000)
            SET @queryStr2 = N'SELECT TOP ' + @TopNForMain + N' ' + @strShowFields + N' FROM ' + @strTableName + N' WHERE ' + @strKeyField 
                + N' NOT IN ( SELECT TOP ' + @TopNForChild + N' ' + @strKeyField + N' FROM ' + @strTableName + N' WHERE 1=1 ' + @strWhereFilter + N' ' + @strOrderFields + N' )'
                + @strWhereFilter + @strOrderFields
            EXEC sp_executesql @queryStr2
                ,N'@TopNForMain nvarchar(50),@strShowFields nvarchar(1000),@strTableName sysname,@strKeyField nvarchar(1000),@TopNForChild nvarchar(50),@strWhereFilter nvarchar(1000),@strOrderFields nvarchar(1000)'
                ,@TopNForMain,@strShowFields,@strTableName,@strKeyField,@TopNForChild,@strWhereFilter,@strOrderFields
            PRINT @queryStr2
        END
    
END

1 2  下一页

Tags:利用 Top 实现

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接