Office中国论坛/Access中国论坛

标题: Excel VBA用ADODB访问access的问题 [打印本页]

作者: olderdream2007@ 时间: 2015-2-9 23:36
标题: Excel VBA用ADODB访问access的问题
下面的EXCEL VBA访问ACCESS（accdb格式），不成功，请高人指点下

Sub getdatafromaccess()
Dim conn As ADODB.Connection
Dim str As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "provider=microsoft.jet.oledb.12.0;data source=" & ThisWorkbook.Path & "\" & "wt.accdb

ersist Security Info=False"
Set str = conn.Execute("select * from a")
ActiveSheet.Range("a2").CopyFromRecordset str
End Sub

[attach]55648[/attach]

如果ACCESS是旧格式的mdb,则连接字符稍微改动下就可以了，不明白上面的代码为何不成功
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\" & "wt.mdb"

作者: olderdream2007@ 时间: 2015-2-9 23:39
[attach]55649[/attach]

错误提示如上，搞不懂了 {:soso_e127:}请高人帮忙指点一下谢谢了

作者: roych 时间: 2015-2-10 09:05
microsoft.jet.oledb.12.0用错了
如果是2007版本，应该是：
microsoft.ace.oledb.12.0
如果是2003版本则是：
microsoft.jet.oledb.4.0

作者: olderdream2007@ 时间: 2015-2-10 22:53

roych 发表于 2015-2-10 09:05
microsoft.jet.oledb.12.0用错了
如果是2007版本，应该是：
microsoft.ace.oledb.12.0

谢谢指点明白了

作者: ak47ok 时间: 2015-11-28 13:04
每次回帖、谢谢！辛苦了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)