sql存储过程分页

王朝mssql·作者佚名 2008-05-19

宽屏版字体: 小|中|大|超大

CREATE PROC myx_prPageRecordset

@queryStr nvarchar(1000),

@keyField nvarchar (200),

@pageSize int,

@pageNumber int

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

核心代码

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)

)

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