sql 存储过程分页

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