私はvbaの初心者ですが、VBAを使用してOracleSQLに接続するためのサポートをいただければ幸いです。私はMSServer用のそのようなコードを持っており、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
私の質問は次のとおりです。OracleDeveloper以外のものをインストールする必要がありますか?もしそうなら、何ですか?コードを変更して機能させるにはどうすればよいですか?
よろしくお願いします!! よろしく、Maciej