1

I'm trying to connect to Vertica via VBA code. But I'm facing this error:

 Run Time Error '-2147467259 (80004005)':
 Automation error
 Unspecified error

What am I doing wrong?

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset

Dim strConn As String
strConn = "Driver={Vertica}; Servername=localhost; 
Database=jdbc:vertica://JSVERTICA:5433/PVXDW; Username=admin; Password=pass"

cn.Open strConn
cn.Close
Set cn = Nothing
MsgBox "Connected"
Pri Mar
  • 105
  • 1
  • 6
  • What line causes that error? – Maciej Los Jul 13 '21 at 20:00
  • cn.Open strConn – Pri Mar Jul 13 '21 at 20:02
  • Follow these steps: [Testing an ODBC DSN Using Excel](https://www.vertica.com/docs/9.2.x/HTML/Content/Authoring/ConnectingToVertica/ClientODBC/TestingADSNUsingExcel.htm) – Maciej Los Jul 13 '21 at 20:04
  • This might help too: [Creating an ODBC DSN for Windows Clients](https://www.vertica.com/docs/9.2.x/HTML/Content/Authoring/ConnectingToVertica/InstallingDrivers/Windows/CreatingAnODBCDSNForWindowsClients.htm?tocpath=Connecting%20to%20Vertica%7CClient%20Libraries%7CCreating%20an%20ODBC%20Data%20Source%20Name%20(DSN)%7CCreating%20an%20ODBC%20DSN%20for%20Windows%20Clients%7C_____0) – Maciej Los Jul 13 '21 at 20:13
  • Here's [another answer](https://stackoverflow.com/q/5807510/5162073) that may be helpful. – Brian M Stafford Jul 13 '21 at 20:15

1 Answers1

0

Please change strConn value as below and try to connect the database.

strConn = "Provider=VerticaOLEDB.1;Data Source=JSVERTICA;Initial Catalog=PVXDW;User ID=admin;Password=pass;"
Hibiki
  • 26
  • 3