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