如何使用VBA连接到Oracle SQL？

Question

我是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

Answer 1

您需要在计算机上安装Oracle客户端软件。 最小的设置是使用Oracle Instant Client，请参见http://www.oracle.com/technetwork/database/features/instant-client/index-097480.html 。

您需要在程序中更改的唯一一件事就是连接字符串