How to query PostgreSQL from VBA

Question

How can I query PostreSQL in VBA? I have tried the following which I found online but doesn't seem to work.

Sub query()

'Create Connection
Set conn = CreateObject("ADODB.Connection")
strCnx = "Driver={PostgreSQL UNICODE};Server=localhost;Database=databasename;uid=username;pwd=password123;"
conn.Open strCnx

'Query the Database
Set rs = CreateObject("ADODB.recordset")
rs.Open "select * from dm.acct_dim limit 10", conn

Record = rs.GetRows()
rs.Close
conn.Close

'Write results to file
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\dbData.txt", 8, True)

For Each Item In Record
  objFile.WriteLine (Item)
Next

objFile.Close

End Sub

When I try this i get an error saying "could not connect to the server; No Connection could be made because the target machine actively refused it."

When I connect with pgadmin i use host, port, database, username and password. So I'm guessing i need those same things in the connection string but not exactly sure how that should be setup. I'm a rookie here. thanks for any help.

stackoverflow.com/questions/9117516/…

Robin Mackenzie
– Robin Mackenzie

2017-04-29 02:10:50 +00:00
Commented Apr 29, 2017 at 2:10 — Robin Mackenzie
– Robin Mackenzie, Commented Apr 29, 2017 at 2:10

Robert Petty · Accepted Answer · 2017-05-01 19:17:50Z

0

Looks like it was correct as it was. My problem was that I had wrong server. My bad. Thanks for trying to help!

answered May 1, 2017 at 19:17

Robert Petty

4551 gold badge6 silver badges22 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to query PostgreSQL from VBA

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related