【发布时间】:2011-10-20 08:05:58
【问题描述】:
我有以下代码:
Dim PageNum AS Integer = 1
Dim ThePageSize As Integer = 30
Dim RowCT As Integer = 0
Dim SqlStr As String = "SELECT * FROM TheTable"
Dim TCConStr As String = ConfigurationManager.ConnectionStrings("TCConStr").ConnectionString
Dim Objrs As New ADODB.Recordset
Objrs.Open(SqlStr, TCConStr, 3, 3)
If Not Objrs.EOF Then
Objrs.MoveFirst()
Objrs.PageSize = ThePageSize
Dim TotalPages As Integer = Objrs.PageCount
Objrs.AbsolutePage = PageNum
End If
While Not Objrs.EOF And RowCT < Objrs.PageSize
RowCT = RowCT + 1
'Do Stuff
Objrs.MoveNext()
End While
Objrs.Close()
Objrs = Nothing
当我尝试运行它时,我得到: “System.Runtime.InteropServices.COMException:当前记录集不支持书签。这可能是提供程序或所选游标类型的限制。” 错误页面指向“Objrs.AbsolutePage = PageNum”
如果我在这里做错了什么,或者我能做些什么来解决它,有什么想法吗?在一页上显示 500 条记录会很臭。
【问题讨论】:
标签: asp.net vb.net oracle com ado