如何从 VBA 查询 PostgreSQL

Question

如何在 VBA 中查询 PostreSQL？我尝试了以下我在网上找到但似乎不起作用的方法。

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

当我尝试此操作时，我收到一条错误消息，提示“无法连接到服务器；无法连接，因为目标机器主动拒绝了它。”

当我与 pgadmin 连接时，我使用主机、端口、数据库、用户名和密码。所以我猜我在连接字符串中需要这些相同的东西，但不完全确定应该如何设置。我是这里的菜鸟。感谢您的帮助。

Answer 1

看起来它是正确的。我的问题是我有错误的服务器。我的错。感谢您的帮助！