作者hatedog5566 (黑狗)
看板Visual_Basic
标题[VBA ] 关於EXCEL 连结 ACCESS (automation错误)
时间Sun Dec 1 19:17:42 2013
小弟想使用excel的vba去连结access抓资料 版本是2010
但发生了以下错误
执行阶段错误 -2147467259 (80004005)
Automation 错误
无法指出的错误
----------------------------
以下是我的程式码
Sub test3()
Dim rst As New ADODB.Recordset
Dim mydeta, SQLstr As String
mydeta = ThisWorkbook.Path & "\System.accdb"
If Dir(mydeta) = "" Then
MsgBox "资料库档案不存在！请联系程序维护人！", vbExclamation, "无法连接资料
库"
Exit Sub
End If
rst.ActiveConnection = _
"Provider = Microsoft.ACE.OLEDB.12.0;" & _
"Data Source = C:\Users\ATC\Desktop\System.accdb;"
SQLstr = " SELECT * FROM 产品 "
rst.Open SQLstr
'MsgBox rst.GetString
Sheet3.Range("A1").CopyFromRecordset rst
rst.Close
Set rst = Nothing
End Sub
-------------------------
主要是红色那段发生错误 但网路查似乎找不太到
恳请各位板上大大指教错误 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.224.218.48
※ 编辑: hatedog5566 来自: 61.224.218.48 (12/01 19:19)