VBA OR ODBC连接PostgreSQL

要使用VBA或ODBC连接到PostgreSQL数据库，您需要安装PostgreSQL的ODBC驱动程序，并设置ODBC数据源。以下是使用VBA进行连接的示例代码：

Sub ConnectToPostgreSQL()
    ' 定义变量
    Dim conn As Object
    Dim rs As Object
    Dim query As String
    Dim connectionString As String
    Dim userName As String
    Dim password As String
    
    ' 初始化变量
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    query = "SELECT * FROM your_table;" ' 替换为您的查询
    connectionString = "Driver={PostgreSQL ANSI};Server=your_server;Port=your_port;Database=your_database;Uid=your_username;Pwd=your_password;"
    userName = "your_username" ' 替换为您的用户名
    password = "your_password" ' 替换为您的密码
    
    ' 打开连接
    conn.Open connectionString
    
    ' 执行查询并获取结果
    rs.Open query, conn, 3, 3 ' 3, 3 表示adOpenStatic, adLockOptimistic
    
    ' 遍历结果
    While Not rs.EOF
        Debug.Print rs.Fields(0).Value ' 打印第一列的值
        rs.MoveNext
    Wend
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 清理
    Set rs = Nothing
    Set conn = Nothing
End Sub

请确保将 connectionString 中的 your_server, your_port, your_database, your_username, 和 your_password 替换为您的实际信息。同样，将 query 替换为您要执行的实际SQL查询。

注意：在使用此代码之前，请确保您的计算机上安装了PostgreSQL的ODBC驱动程序，并且已经创建了ODBC数据源。