行集不支持向后滚动 [英] Rowset does not support scrolling backward
问题描述
我正在尝试使用以下代码查询 MySQL 数据库:
I am trying to query a MySQL database with the below code:
'declare the variables
Dim Connection
Dim Recordset
Dim SQL
'declare the SQL statement that will query the database
SQL = "SELECT * FROM CUSIP"
'create an instance of the ADO connection and recordset objects
Set Connection = CreateObject("ADODB.Connection")
Set Recordset = CreateObject("ADODB.Recordset")
'open the connection to the database
Connection.Open "DSN=CCS_DSN;UID=root;PWD=password;Database=CCS"
Recordset.CursorType=adOpenDynamic
'Open the recordset object executing the SQL statement and return records
Recordset.Open SQL,Connection
Recordset.MoveFirst
If Recordset.Find ("CUSIP_NAME='somevalue'") Then
MsgBox "Found"
Else
MsgBox "Not Found"
End If
'close the connection and recordset objects to free up resources
Recordset.Close
Set Recordset=nothing
Connection.Close
Set Connection=nothing
每当我执行上述操作时,我都会收到错误消息行集不支持向后滚动",有什么建议吗?
Whenever I execute the above I get an error 'rowset does not support scrolling backward', any suggestions?
推荐答案
adOpenDynamic
未在 VBScript 中声明,因此等于 Empty
,被转换为 0
当您分配 CursorType
属性时.0
是 adOpenForwardOnly
,而 forward only 不支持向后移动,这是 Find
方法想要的能力.
adOpenDynamic
is not declared in VBScript and therefore equals Empty
, which gets converted to 0
when you assign the CursorType
property.
0
is adOpenForwardOnly
, and forward only does not support moving backwards, an ability the Find
method wants.
您应该将 adOpenDynamic
替换为其文字值:
You should replace adOpenDynamic
with its literal value:
Recordset.CursorType = 2 'adOpenDynamic
要完全避免此类错误,请将 Option Explicit
作为脚本的第一行.
To avoid this class of errors altogether, place Option Explicit
as the first line of your script.
这篇关于行集不支持向后滚动的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!