VBA在運行時添加到陣列

Question

我想在運行時從記錄集的結果創建一個int數組。

Do While Not rstSearchResult.EOF 

If rstSearchResult(ID) = blah Then 
    'Add this Id rstSearchResult(ID) to Array 
End If 

Call rstSearchResult.MoveNext() 
Loop 

我需要的是一個相同的結果，因爲這會給我Array(35588, 35589, 35595)

Answer 1

Dim myIntArray() as Integer 
Dim intDimension as Integer 

intDimension = 0 

Do While Not rstSearchResult.EOF 

If rstSearchResult(ID) = blah Then 
    'Add this Id rstSearchResult(ID) to Array 
    REDIM PRESERVE myIntArray(intDimension) 
    myIntArray(intDimension) = rstSearchResult(ID) 
    intDimension = intDimension +1 
End If 

Call rstSearchResult.MoveNext() 
Loop 

Answer 2

當我做VBA在Excel中我有一個類我使用的DB在其訪問我有一個返回記錄集的功能到一個數組。希望下面的幫助。

Public Function RSToArray(ByVal oRS, Optional ByVal iRows, Optional ByVal iStart, Optional ByVal aFieldsArray) 
    If iRows = 0 Then iRows = adGetRowsRest 
    If iStart = 0 Then iStart = adBookmarkfirst 

    RSToArray = "" ' return a string so user can check For (IsArray) 

    If IsObject(oRS) And oRS.State = adStateOpen Then 
     If Not oRS.BOF And Not oRS.EOF Then 
      If IsArray(aFieldsArray) Then 
       RSToArray = oRS.GetRows(iRows, iStart, aFieldsArray) 
      Else 
       If iRows <> adGetRowsRest Or iStart <> adBookmarkfirst Then 
        RSToArray = oRS.GetRows(iRows, iStart) 
       Else 
        RSToArray = oRS.GetRows() 
       End If 
      End If 
     End If 
    End If 
End Function 

Answer 3

當我需要從一個記錄複製到一個數組，它是多一點點高效REDIM你想要的數組的大小，而不是事先就ReDiming內循環的。

Dim myIntArray() as Integer 
Dim intDimension as Integer 

rstSearchResult.Filter = "ID = " & blah 
ReDim myIntArray(rstSearchResult.RecordCount - 1) 

intDimension = 0 
Do Until rstSearchResult.EOF 
    myIntArray(intDimension) = rstSearchResult!ID 
    intDimension = intDimension + 1 
    rstSearchResult.MoveNext 
Loop 

請注意，爲了使RecordCount工作，您需要將記錄集打開爲靜態。

rstSearchResult.Open "tblSearchResult", cnn, adOpenStatic