问题

解决rs.absolutepage=-1的问题

小云
106
2023-08-14 15:09:42
栏目: 编程语言

在解决rs.absolutepage=-1的问题时,可以尝试以下几种方法:

  1. 使用rs.movefirst将记录指针移动到结果集的第一条记录,然后再使用rs.movelast将记录指针移动到结果集的最后一条记录。这样可以获取到结果集的总记录数,并计算出需要移动到倒数第一页时的absolutepage值。
rs.movefirst
rs.movelast
totalRecords = rs.recordcount
pageSize = 10 ' 每页显示的记录数
lastPage = Int(totalRecords / pageSize) + 1 ' 计算出总页数
rs.absolutepage = lastPage ' 移动到最后一页
  1. 使用rs.move方法将记录指针移动到指定位置。可以先获取到结果集的总记录数,并计算出需要移动到倒数第一页时的记录位置,然后再使用rs.move将记录指针移动到该位置。
totalRecords = rs.recordcount
pageSize = 10 ' 每页显示的记录数
lastPagePosition = totalRecords - ((lastPage - 1) * pageSize) + 1 ' 计算出倒数第一页的记录位置
rs.move lastPagePosition ' 移动到倒数第一页
  1. 在打开记录集时,使用adOpenStaticadLockReadOnly作为参数,这样可以将结果集的游标类型设置为静态,以便后续可以使用absolutepage属性。
Set rs = New ADODB.Recordset
rs.Open strSQL, conn, adOpenStatic, adLockReadOnly
  1. 在打开记录集时,使用adCmdTableDirect作为参数,这样可以避免使用absolutepage属性,而是使用rs.move方法来移动记录指针。
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM YourTable", conn, adOpenStatic, adLockReadOnly, adCmdTableDirect

以上是一些常见的解决方法,根据具体的情况选择适合的方法来解决rs.absolutepage=-1的问题。

0
看了该问题的人还看了