Skip to content

Instantly share code, notes, and snippets.

@AntonGoedecke AntonGoedecke/Oracle_Access 1 Secret
Created Jan 20, 2019

Embed
What would you like to do?
Dim Server As String
Server = "xxx.xxx.xxx.xxx"
Dim Port As Integer
Port = 1521
Dim User As String
User = "username"
Dim Password As String
Password = "password"
Dim ServiceName As String
ServiceName = "MyServiceName"
Dim OdbcDriverName As String
OdbcDriverName = "{Oracle in OraClient12Home1}"
Dim DatabaseName As String
DatabaseName = "odbc;Driver=" & OdbcDriverName & ";dbq=" & Server & ":" & Port _
& "/" & ServiceName & ";uid=" & User & ";pwd=" & Password
Dim TableName As String
TableName = "MY_TABLE_NAME"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.