CREATE PROC myx_prPageRecordset
    @queryStr nvarchar(1000),
    @keyField nvarchar (200),
    @pageSize int,
    @pageNumber int
    AS
    BEGIN
    DECLARE @sqlText AS nvarchar(4000)
    DECLARE @sqlTable AS nvarchar(4000)
    SET @sqlTable = 'SELECT TOP ' + CAST((@pageNumber + 1) * @pageSize AS varchar(30)) + ' ' + @queryStr
    SET @sqlText =
    'SELECT TOP ' + CAST(@pageSize AS varchar(30)) + ' * ' +
    'FROM (' + @sqlTable + ') AS tableA ' +
    'WHERE ' + @keyField + ' NOT IN(SELECT TOP ' +
    CAST(@pageNumber * @pageSize AS varchar(30)) + ' ' + @keyField +
    ' FROM (' + @sqlTable + ') AS tableB)'
    EXEC (@sqlText)
    END

    GO

    核心代码
    Dim strsql As String
    myComm = New SqlClient.SqlCommand("myx_prPageRecordset", myConn)
    myComm.CommandType = CommandType.StoredProcedure
    myComm.Parameters.Add(New SqlClient.SqlParameter("@queryStr", SqlDbType.NVarChar, 1000))
    myComm.Parameters("@queryStr").Value = " * from tbpage order by id DESC"
    myComm.Parameters.Add(New SqlClient.SqlParameter("@keyField", SqlDbType.NVarChar, 200))
    myComm.Parameters("@keyField").Value = "[id]"
    myComm.Parameters.Add(New SqlClient.SqlParameter("@pageSize", SqlDbType.NVarChar, 1000))
    myComm.Parameters("@pageSize").Value = PageSize
    myComm.Parameters.Add(New SqlClient.SqlParameter("@pageNumber", SqlDbType.NVarChar, 1000))
    myComm.Parameters("@pageNumber").Value = myPage - 1

    呵呵,执行几W条的代码只需150毫秒左右

    建立一个test(id,name,fid)

    向test添充几十条数据,使id=1,2,3,4.........(即递增的integer),其他任意在T-sql Debugger给改存储过程分别传递如下参数:

    @queryStr= * from test
    @keyField=[ID]
    @pageSize=3
    @pageNumber=1

    问题出来了,看输出结果(注意id):
    id name fid
    4 kwklover 2
    5 kwklover 2
    6 kwklover 2

    根据传入参数,我们的预期应该是:
    id name fid
    1 kwklover 2
    2 kwklover 2
    3 kwklover 2

    下面是我参照小春的存储分页写的分页存储过程,可以解决上面的问题:
    CREATE Procedure prGetRecordByPage
    (
    @PageSize int, --每页的记录条数
    @PageNumber int, --当前页面
    @QuerySql varchar(1000),--部分查询字符串,如* From Test order by id desc
    @KeyField varchar(500)
    )
    AS
    Begin

    Declare @SqlTable AS varchar(1000)
    Declare @SqlText AS Varchar(1000)

    Set @SqlTable='Select Top '+CAST(@PageNumber*@PageSize AS varchar(30))+' '+@QuerySql
    Set @SqlText='Select Top '+Cast(@PageSize AS varchar(30))+' * From '
    +'('+@SqlTable+') As TembTbA '
    +'Where '+@KeyField+' Not In (Select Top '+CAST((@PageNumber-1)*@PageSize AS varchar(30))+' '+@KeyField+' From '
    +'('+@SqlTable+') AS TempTbB)'
    Exec(@SqlText)

    End
    GO