Oracle２

Sub OracleConnectionExample()
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")

' 接続文字列の設定
Dim connectionString As String
connectionString = "Provider=OraOLEDB.Oracle;Data Source=YourOracleDB;User ID=YourUsername;Password=YourPassword;"

' Oracleに接続
conn.Open connectionString

' 接続成功した場合の処理
If conn.State = 1 Then
MsgBox "Oracleに接続しました。"

' SQL文の実行例（任意のクエリを実行できます）
Dim strSQL As String
strSQL = "SELECT * FROM YourTable"

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")

rs.Open strSQL, conn

' レコードの読み取り
If Not rs.EOF Then
Do Until rs.EOF
' レコードの処理（例えば、データの表示）
MsgBox rs.Fields("ColumnName").Value

rs.MoveNext
Loop
Else
MsgBox "データがありません。"
End If

rs.Close
Set rs = Nothing

conn.Close
Set conn = Nothing
Else
MsgBox "Oracleへの接続に失敗しました。"
End If
End Sub