通过VBA MS-ACCESS在PostgreSQL数据库中插入值

Question

在如何在MS Access中使用VBA将值插入数据库表之前，我已经看过本主题，但是它并不能解决我的问题。 我正在创建一个表单，将值插入到包含数组[]文本的postgresql表中。 用户必须选择要添加的项目，然后通过单击按钮执行SQL语句。 所以我首先创建一个按钮和一个文本框来加载要添加到数组中的项目，这是代码

Private Sub cmdSig_Click()
 Dim registros As String
 registros = "'" & [memo] & "'" & ", "
 [resu] = registros & [resu]
End Sub

然后，我创建按钮以执行SQL INSERT INTO语句。 这是代码：

    Private Sub cmdPruebas_Click()
    Dim strsql As String, resultado As String, salida As String

        Dim db As Database
        dbconnect = "ODBC;DRIVER=PostgreSQL ANSI;UID=***;PWD=***;PORT=5432;SERVER=***.***.**.**;DATABASE=somedb;DSN=C:\***"
        Set db = OpenDatabase("", False, False, dbconnect)
        resultado = [resu]

        strsql = "insert into prueba_arrays (tipo_intervencion) values "
        salida = "(array[" & resultado & "]);"




        DoCmd.SetWarnings False
        DoCmd.RunSQL strsql & salida
        DoCmd.SetWarnings True
End Sub

如果我在PostgreSQL中执行结果，例如“插入某个表（array_field）值（array ['value1'，'value2'，'value3']）;“ 它工作正常。 但是在MS-Access中它说：错误3075'执行时间'查询'array ['value1'，'value2'，'value3']'中缺少运算符。 有什么想法吗？ 提前致谢！

Answer 1

DoCmd.RunSQL strsql & salida行在Access currentDb中执行SQL。 将该行替换为：

db.Execute strsql & salida

这样就可以从您打开的数据库对象执行 SQL，并连接到PostgreSQL。

Answer 2

DoCmd.RunSQL通过Access数据库引擎运行SQL字符串。 那里[..]被解释为参数，因此错误消息。

您已打开与PostgreSQL数据库的数据库连接，但未使用它。

它可能像更改一样简单

DoCmd.RunSQL strsql & salida

至

db.Execute strsql & salida, dbSQLPassThrough

通过直通查询，SQL字符串直接传递到数据库。