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

从SQL中提取一列值并将它们放入数组VBA中

1 个答案: