sql - 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