尝试使用 VBA 连接到 Oracle DB 服务器

Question

As the title states I'm trying to connect to an oracle DB for a vba script.

I was using this article here on how to do it: https://blogs.perficient.com/2015/12/17/connectcompare-databases-excel-macro/

I just have very basic code for connecting and I'm getting an error that says "[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified"

My code is:

Private Sub CommandButton1_Click()
    Dim dbConnection As ADODB.Connection
    Dim recordSet As ADODB.recordSet
    Set dbConnection = New ADODB.Connection
    Set recordSet = New ADODB.recordSet
    conString = "Driver = {Microsoft ODBC for Oracle};DBQ=####;Uid=<####>;Pwd=<####>;"
    dbConnection.Open (conString)

End Sub

One thing I am not sure on is what exactly is DBQ is. I have set DBQ to the name of the database I'm interested in. Not sure if I'm setting that parameter properly.

Thank you and all help is appreciated it.

Answer 1

First question: Did you install an Oracle Client on your machine?

According to your connection string you use the Microsoft ODBC for Oracle driver. Connection string must be like this:

Driver={Microsoft ODBC for Oracle};Server=myServerAddress;Uid=myUsername;Pwd=myPassword;

Note, the connection string is slightly different to the Oracle ODBC driver, see ODBC Driver Microsoft vs.ODBC Driver Oracle

Second question: Is your Excel 32-bit or 64-bit?

The Oracle Client and the ODBC driver must be the same architecture (ie 32-bit vs. 64-bit) as your Excel. The ancient Microsoft ODBC for Oracle driver exist only for 32-bit. If your Excel is 64-bit then you have to use the Oracle ODBC driver.

Another note, the default Oracle Instant client does not include the ODBC driver, you have to download and install the "ODBC Package", from Oracle Instant Client Downloads

Answer 2

There is a comment above to use this format which I believe is correct "DSN={MyDataSource};UID={MyUserID};PWD={MyPassword};SERVER={MyOracleServer}"

From the Microsoft documentation and here