我正在处理 Excel VBA 宏，我想从 MS Access 数据库中检索数据（.accdb file).
我尝试使用下面的连接字符串，它抛出运行时错误“438”
Dim cn As Object, rs As Object,DBFullName As String,Target As Range
DBFullName = "D:\Tool_Database\Tool_Database.accdb"
Set Target = Sheets("Sheet1").Range("A1")
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & DBFullName & ";"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM test", cn, , , adCmdText
For int i = 0 To rs.Fields.Count - 1
Target.Offset(1, i).Value = rs.Fields(i).Name
Next
Target.Offset(1, 0).CopyFromRecordset rs
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
请帮助我解决该错误
我尝试使用下面的连接字符串，它抛出运行时错误“438”
Run-time error: '438'意味着Object doesn't support this property or method..
你收到这个错误是因为你正在混合VB.Net with VBA
This
For int i = 0 To rs.Fields.Count - 1
应该
For i = 0 To rs.Fields.Count - 1
除了以上，我想DBFullName = "D:\Tool_Database\Tool_Database.mdb"是你使用时的拼写错误.Accdb?
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
