set di righe non supporta lo scorrimento all'indietro

Question

Sto cercando di interrogare un database MySQL con il codice qui sotto:

'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 

Ogni volta che eseguo quanto sopra si ottiene un errore 'set di righe non supporta lo scorrimento all'indietro', qualche suggerimento?

Answer 1

adOpenDynamic non è dichiarata nel VBScript e quindi uguale Empty, che viene convertito in 0 quando si assegna la proprietà CursorType.
0 è adOpenForwardOnly e l'inoltro non supporta solo lo spostamento all'indietro, un'abilità richiesta dal metodo Find.

È necessario sostituire adOpenDynamic con il suo valore letterale:

Recordset.CursorType = 2 'adOpenDynamic 

Per evitare questa classe di errori del tutto, posizionare Option Explicit come prima linea del vostro script.

Answer 2

Ciò è dovuto al fatto che il set di righe non consente le mosse all'indietro; come suggerisce il messaggio di errore. Il tuo codice non li sta usando; così si dovrebbe sostituire la linea di

Recordset.CursorType = adOpenDynamic con Recordset.CursorType = adOpenForwardOnly (o il valore equivalente 0)

Meglio lasciare la linea del tutto; il valore predefinito è il cursore in avanti.