毫秒级百万数据分页存储过程[欢迎转载]【转】

原文连接http://shinylife.net/blog/article.asp?id=1063

这个是基于SQL 2005 的ROW_NUMBER的, SQL 2000 不适用; SQL 2008 我没有安装,所以也没有测试过!估计应该可以运行.
2种算法可以选择 1. 使用  BETWEEN   ;  2.  TOP  ; 代码中已经注释了.
我测试了一下2种方法基本没有什么区别;代码如下:

 引用内容

USE [DATA_TEMP]
GO
/****** 对象:  StoredProcedure [dbo].[im531_Page]    脚本日期: 11/26/2010 10:52:35 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

-- =============================================
-- Author:        im531 
-- Create date: 2010-10-25
-- Description: SQL 2005 ROW_NUMBER 分页
-- Modify Date: 2010-10-26
-- =============================================

Create PROCEDURE [dbo].[im531_Page]
    @TabeName AS NVARCHAR(50),
    @Fields AS NVARCHAR(1024),
    @SearchWhere AS NVARCHAR(1024),
    @OrderFields AS NVARCHAR(1024),
    @pageNumber AS INT,
    @page AS INT
AS
BEGIN
    SET NOCOUNT ON;
    DECLARE @sqlType AS TINYINT
    SET @sqlType = 0  -- 0 BETWEEN   1 TOP
    DECLARE @sql AS NVARCHAR(MAX)
    IF @SearchWhere <> '' SET @SearchWhere = ' Where ' + @SearchWhere
    IF @page < 2 SET @page = 1
    IF @page = 1
        BEGIN
            SET @sql = 'Select TOP ' + CONVERT(NVARCHAR(20),@pageNumber) + ' ' + @Fields
                + 'FROM [' + @TabeName + '][a] WITH(NOLOCK) ' + @SearchWhere + ' orDER BY ' + @OrderFields
        END
    ELSE
        BEGIN
            --临时表
            SET @sql = ';WITH [Page_____Table] AS('
                + 'Select ROW_NUMBER() OVER(ORDER BY ' + @OrderFields + ') AS [RowNow],' + @Fields
                + 'FROM ['+ @TabeName +' ][a] WITH(NOLOCK) ' + @SearchWhere
                + ')'
            --查找当前页面记录
            IF @sqlType = 0
                BEGIN
                -- A USE BETWEEN
                    SET @sql = @sql + 'Select *'
                        + 'FROM [Page_____Table] WITH(NOLOCK)'
                        + 'Where [RowNow] BETWEEN ' + CONVERT(NVARCHAR(20),(@page - 1) * @pageNumber + 1) + ' AND ' + CONVERT(NVARCHAR(20),@page * @pageNumber)
                        + 'ORDER BY [RowNow]'
                END
            ELSE
                BEGIN
                -- B USE TOP
                    SET @sql = @sql + 'Select TOP ' + CONVERT(NVARCHAR(20),@pageNumber) + ' *'
                        + 'FROM [Page_____Table] WITH(NOLOCK)'
                        + 'Where [RowNow] > ' + CONVERT(NVARCHAR(20),(@page - 1) * @pageNumber)
                        + 'ORDER BY [RowNow]'
                END
        END
    EXEC(@sql)
END

然后测试分页性能;每页显示20条记录, 百万数据最大50000页,当前页采用随机数取值;

 引用内容

DECLARE @d DATETIME
SET @d = GETDATE()

DECLARE @M AS INT;DECLARE @N AS INT;DECLARE @cPage AS INT
SET @M = 50000;SET @N = 1
SET @cPage = CAST((rand()*(@M-@N)+@N) AS INT)

EXECUTE [im531_Page]
    @TabeName = 'Table_1',
    @Fields = '[a],[b]',
    @SearchWhere = '[a] > 0',
    @OrderFields = '[a] DESC',
    @pageNumber = 20,
    @page = @cPage


Select [当前页] = @cPage,[分页执行耗时间(毫秒)] = DATEDIFF(ms,@d,GETDATE())