vba mysql查询数组中_怎样用VBA取得Access数据库中的查询结果？

展开全部

对于这种写法不是很e68a843231313335323631343130323136353331333238656631了解，如果用ado+sql可以帮到你。

Sub bb()

Dim cnn As ADODB.Connection

Dim rs As ADODB.Recordset

Set cnn = New ADODB.Connection

mydata = ThisWorkbook.Path & "\123.mdb"

With cnn

.Provider = "microsoft.jet.oledb.4.0"

.Open mydata

End With

Set rs = New ADODB.Recordset

Sql = "select Flux_Amount from Mytable"

rs.Open Sql, cnn, 3, 2

ReDim arr(rs.RecordCount)

For i = 0 To rs.RecordCount - 1

arr(i) = rs.Fields("Flux_Amount")

rs.MoveNext

Next i

MsgBox Join(arr, ",")

End Sub

应该说这种用法比较主流，复制代码到vbe，然后引用ado 2.8,将access与excel文件放在一个文件夹，将数据库名变动一下，就可以测试了。(要改为同你的access,表名，字段名一致)