[SQL] 행 집합은 뒤로 스크롤을 지원하지 않습니다

행 집합은 뒤로 스크롤을 지원하지 않습니다

나는 코드 아래에 MySQL 데이터베이스를 조회하는 것을 시도하고있다 :

'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

때마다 나는 위의 오류, 어떤 제안을 '행 집합은 뒤로 스크롤 지원하지 않습니다'얻을 실행?

해결법

1. ==============================

   1.adOpenDynamic는 VBScript로 선언 따라서 당신이 CursorType이 속성을 할당 할 때 0으로 변환됩니다있는 빈에 해당되지 않습니다. 0 adOpenForwardOnly이며, 앞으로 만 이동 뒤로, Find 메서드가 원하는 능력을 지원하지 않습니다.

   adOpenDynamic는 VBScript로 선언 따라서 당신이 CursorType이 속성을 할당 할 때 0으로 변환됩니다있는 빈에 해당되지 않습니다. 0 adOpenForwardOnly이며, 앞으로 만 이동 뒤로, Find 메서드가 원하는 능력을 지원하지 않습니다.

   당신은 문자 그대로의 값으로 adOpenDynamic을 교체해야합니다 :

   Recordset.CursorType = 2 'adOpenDynamic
   

   , 모두 스크립트의 첫 번째 행으로 명시 장소 옵션을 오류의이 클래스를 방지하려면.

2. ==============================

   2.행 집합이 뒤로 이동을 허용하지 않기 때문이다; 오류 메시지가 있듯이. 귀하의 코드를 사용하지 않는; 당신은 라인을 교체해야하므로

   행 집합이 뒤로 이동을 허용하지 않기 때문이다; 오류 메시지가 있듯이. 귀하의 코드를 사용하지 않는; 당신은 라인을 교체해야하므로

   Recordset.CursorType = adOpenDynamic 와 Recordset.CursorType = adOpenForwardOnly (또는 동등한 값 0)

   더 나은 모두 선을두고; 기본값은 앞으로 커서입니다.

from https://stackoverflow.com/questions/14122308/rowset-does-not-support-scrolling-backward by cc-by-sa and MIT license