ADODB.Connection undefined

Posted by Wes Groleau on Stack Overflow See other posts from Stack Overflow or by Wes Groleau
Published on 2009-11-18T23:03:18Z Indexed on 2010/05/01 2:07 UTC
Read the original article Hit count: 291

Filed under:
|
|

Reference http://stackoverflow.com/questions/1690622/excel-vba-to-sql-server-without-ssis

After I got the above working, I copied all the global variables/constants from the routine, which included

    Const CS As String = "Driver={SQL Server};" _
                       & "Server=**;" _
                       & "Database=**;" _
                       & "UID=**;" _
                       & "PWD=**"
    Dim DB_Conn As ADODB.Connection
    Dim Command As ADODB.Command
    Dim DB_Status As String
into a similar module in another spreadsheet. I also copied
Sub Connect_To_Lockbox()
    If DB_Status <> "Open" Then
        Set DB_Conn = New Connection
        DB_Conn.ConnectionString = CS
        DB_Conn.Open  ' problem!
        DB_Status = "Open"
    End If
End Sub
I added the same reference (ADO 2.8)

The first spreadsheet still works; the seccond at DB_Conn.Open pops up "Run-time error '-214767259 (80004005)': [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified" Removing the references on both, saving files, re-opening, re-adding the references doesn't help. The one still works and the other gets the error.

?!?

© Stack Overflow or respective owner

Related posts about excel

Related posts about vba