connect to Oracle : Oracle « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Oracle

connect to Oracle

 
Sub Oracle()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    With conn
        .Provider = "MSDAORA"
        .ConnectionString = "Data Source=Catwoman;User ID=steve;Password=steve"
        .Mode = adModeRead
        .Open
    End With
    MsgBox "Connected to " & conn.Provider, vbInformation
End Sub

 

Related examples in the same category