Вытягивание столбца значений из SQL и помещение их в массив VBA

Question

Я пытаюсь получить список номеров сотрудников из нашей базы данных, чтобы я мог проходить через них, чтобы найти информацию, указанную номером сотрудника. Они не являются последовательными, поэтому счетчик не работает. Я понятия не имею, как получить все эти данные и использовать их, не помещая их в электронную таблицу.

Любая помощь была бы принята с благодарностью. Не стесняйтесь спрашивать, есть ли у вас дополнительные вопросы.

Answer 1

Я думаю, что это должно сработать, чтобы поместить поле в массив.

Option Compare Database 

Sub field_to_array() 

    Dim db As Database 
    Dim rs As Recordset 
    Dim eID As Field 
    Dim myArray() As String 
    Dim i As Integer 
    Dim rcount As Integer 


    Set db = CurrentDb() 
    Set rs = db.OpenRecordset("MyTable") 
    Set eID = rs.Fields("employee_id") 

    rcount = rs.RecordCount 
    i = 1 

    ReDim myArray(1 To rcount) 

    For i = 1 To rcount 
     myArray(i) = name 
     rs.MoveNext 
    Next 

    rs.Close 

End Sub 

Function call_col_array() 
    field_to_array 
End Function