如何使用VBA连接到Oracle SQL？

我是vba的新手，如果能使用vba连接到Oracle SQL，我将不胜感激。 我为MS Server编写了这样的代码，需要以某种方式对其进行修改（或创建一个新代码），以便它与Oracle SQL一起工作

代码如下：

Public Const sConnect As String = "xxx; Initial Catalog=xxx; User ID=xxx;Password=xxx;"

Sub GetData1()

Sheets(1).Range("a1:ao20000").ClearContents

Dim rsConnection As ADODB.Connection
Dim rsRecordset As ADODB.Recordset
Dim sQuerry As String

sQuerry = "select * from xxx"

Set rsConnection = New ADODB.Connection
Set rsRecordset = New ADODB.Recordset

rsConnection.ConnectionString = sConnect
rsConnection.Open

Set rsRecordset = rsConnection.Execute(sQuerry)

Worksheets(1).Range("A2").CopyFromRecordset rsRecordset

rsConnection.Close

Set rsConnection = Nothing
Set rsRecordset = Nothing

End Sub

我的问题是： 我是否需要安装Oracle Developer以外的其他软件？如果是，什么？ 如何更改代码使其工作

提前多谢！！ 当做

---

Maciej

您需要在计算机上安装Oracle客户端软件。最小的设置是使用Oracle instant client，请参阅

---

您需要在程序中更改的唯一内容是连接字符串

假设代码现在可以工作，那么应该可以帮助您获得连接。正如肖恩所指出的，这主要取决于您的连接字符串。