Question

access中VBA读取表记录

如题，d:\db1.mdb中表“节点”包含字段 i , j ,m ，用access中的VBA如何读取 i，j，m字段的全部记录到一个动态二维数组（列数为3）中？谢谢

Answer 1

说明需要引用 ADO2 到项目

Dim vaSqlStr As String, rst As New ADODB.Recordset,n as Integer
Dim vaFldValue()
vaSqlStr = "Select * From tbl1"
Set rst = CurrentDb.OpenRecordset(vaSqlStr)
redim vaFldValue(3,rst.RecordCount-1)
for n=0 to rst.RecordCount-1
vaFldValue(1,n)=rst.Fields(i).Value
vaFldValue(2,n)=rst.Fields(j).Value
vaFldValue(3,n)=rst.Fields(m).Value
next
rst.close

追问

运行时报错：运行时错误'13'，类型不匹配，调试指向Set rst = CurrentDb.OpenRecordset(vaSqlStr)
请问这是怎么回事啊？

追答

rst As New ADODB.Recordset 改成 rst As Recordset 試一下。
有問題歡迎聯繫我，謝謝！
本人QQ SKYPE laq637 (1211553555)
需要的話加我百度好友

追问

还是不行啊，我Q1064752091，你的Q查不到