oracle vba 数组_使用ODBC连接从Excel VBA宏更新Oracle表

我在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数据库.