全部答案

2017-07-27 14:42:59

•   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。

  全部
  

  這***

  2017-07-27 14:42:59

  53 8 评论

  分享
  提交评论