VBAの "行セットは後方にフェッチをサポートしていません" .cursertypeが調整されたエラー

Question

次のコードを使用して、SQLサーバーとの接続を開き、結果を配列に直接ドロップします。私の問題は、私は私の配列をredimする必要がある行数のエラーを取得することです。私が手にエラーを以下に示すライン上にあり、

が

私は問題のように、カーソルの種類を提案する見つけることができるすべての答えを「行セットは後方フェッチをサポートしていません」と書かれ、私はこれを変更しました私の知る限り。ロングコードのための謝罪は、私はそれが最高のスタートを残すように感じた私は、これは、この質問の重複であることを信じていません

Function ConnectServer() As String() 
'Working SQL Server connection 

Dim conn As ADODB.Connection 
Dim rs As ADODB.Recordset 
Dim sConnString As String 
Dim strSqlQuery As String 
Dim iCols As Long 


' Create the connection string. 
sConnString = "Provider=SQLOLEDB;Data Source=wait;" & _ 
       "Initial Catalog=what;" & _ 
       "User Id=foo;" & _ 
       "Password=bar;" 

' Create the Connection and Recordset objects. 
Set conn = New ADODB.Connection 
Set rs = New ADODB.Recordset 
rs.CursorType = adOpenDynamic 
rs.CursorLocation = adUseClient 
conn.CommandTimeout = 50 

' Open the connection and execute. 
conn.Open sConnString 

' Debug.Print strSqlQuery 
Set rs = conn.Execute("SELECT DISTINCT a FROM b") 

' Check we have data. 
If Not rs.EOF Then 
'*****************Problem here******************** 
    rs.MoveLast 
    Debug.Print rs.RecordCount 

'Read into array and cleanup... 
End If 

End Function 

：。私はすでに組み込まれているので

Rowset does not support scrolling backward

私のコードへの答えと問題は依然として続きます。

Answer 1

問題は、conn.Executeを使用してレコードセットを満たすことによって発生します。レコードセットのアクティブな接続をADODB.Connectionに設定し、レコードセットのopenメソッドを使用すると、問題が解決されます。

Function ConnectServer() As String() 
    'Working SQL Server connection 

    Dim conn As ADODB.Connection 
    Dim rs As ADODB.Recordset 
    Dim sConnString As String 
    Dim strSqlQuery As String 
    Dim iCols As Long 

    ' Create the connection string. 
    sConnString = "Provider=SQLOLEDB;Data Source=wait;" & _ 
        "Initial Catalog=what;" & _ 
        "User Id=foo;" & _ 
        "Password=bar;" 

    ' Create the Connection and Recordset objects. 
    Set conn = New ADODB.Connection 
    conn.ConnectionString = sConnString 
    conn.Open 

    Set rs = New ADODB.Recordset 

    With rs 
     .ActiveConnection = conn 
     .CursorType = adOpenDynamic 
     .LockType = adLockOptimistic 
     .Source = "SELECT * FROM b" 
     .Open 
    End With 

    ' Check we have data. 
    If Not rs.EOF Then 

     rs.MoveLast 
     Debug.Print rs.RecordCount 

     'Read into array and cleanup... 
    End If 

End Function 

Recordset.GetRows（）を使用して配列を埋め込むことができます。それを薄暗くする必要はありません。 GetRows Method (ADO)