DB的值怎样给到动态数组呀???(在线等.......)

Question

DB中的值的个数不确定,把DB中的某个字段全部读出来,赋给一个数组,应该是动态数组吧,谁给一段代码呀,谢谢

Answer 1

参考（把Access库表中某个列的所有值读入到数组里）：'引用Excel（"工程"/"引用"/Microsoft ActiveX Data Object 2.X Library）
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;User Id=admin;Password=;"
    rs.Open "select 某个字段名 from 表名", cn, adOpenDynamic, adLockOptimistic
    Dim strRlt() As String, i As Long
    i = 0
    
    While Not rs.EOF
        ReDim Preserve strRlt(i)
        strRlt(i) = rs(0)
        rs.MoveNext
        i = i + 1
    Wend
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub