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