我在Excel 2010中有一个工作表,它从Oracle数据库中提取QueryTables中的数据,通过ODBC DSN连接.
我需要从电子表格中获取数据并使用它来更新同一Oracle数据库中的表.我无法从QueryTable进行更新,但这是我能够使用ODBC的唯一连接方法.
我已经尝试设置ADODB连接,但我得到了一个
'Run-time error '-2147467259 (80004005'):
Automation error
Unspecified error
这是我使用的代码:
Sub Upload_Click()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
.Provider = "MSDASQL"
.ConnectionString = "DSN=xcognosD;"
.Open
End With
cn.Close
End Sub
添加注释,我在Windows 7上使用64位odbc驱动程序,连接到Oracle 11数据库.