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之外的任何其他东西？如果是这样，什么？如何更改代码以使其工作？

提前多多感谢!! 问候，马切伊

Answer 1

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

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

如何使用VBA连接到Oracle SQL？

1 个答案: