rowSet không hỗ trợ di chuyển ngược

Question

tôi đang cố gắng để truy vấn cơ sở dữ liệu MySQL với mã dưới đây:

'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 

Bất cứ khi nào tôi thực hiện trên, chúng tôi nhận được một lỗi 'rowset không hỗ trợ di chuyển lạc hậu', bất cứ đề nghị?

Answer 1

adOpenDynamic không được khai báo trong VBScript và do đó bằng Empty, được chuyển đổi thành 0 khi bạn gán thuộc tính CursorType.
0 là adOpenForwardOnly và chỉ chuyển tiếp không hỗ trợ di chuyển ngược, khả năng phương thức Find muốn.

Bạn nên thay thế adOpenDynamic với giá trị văn chương của nó:

Recordset.CursorType = 2 'adOpenDynamic 

Để tránh lớp này lỗi hoàn toàn, đặt Option Explicit như dòng đầu tiên của kịch bản của bạn.

Answer 2

Đó là bởi vì các rowset không cho phép di chuyển lạc hậu; như thông báo lỗi cho thấy. Mã của bạn không sử dụng chúng; vì vậy bạn nên thay thế dòng

Recordset.CursorType = adOpenDynamic với Recordset.CursorType = adOpenForwardOnly (hoặc giá trị tương đương 0)

Better rời khỏi dây chuyền hoàn toàn; mặc định là con trỏ chuyển tiếp.