在Access VBA中附加到表的错误

Question

[我有一个带有VBA模块的Access数据库，该模块在一个简单表：JsonStr2中包含两个字段的变量：JSONforAPI中组装了一个JSON字符串：

• ID =自动编号和
• JSON =长字符串。

JSON有效，并且Jsonstr2在Debug.Print的立即窗口中打印。

当我运行代码行时：

DoCmd.RunSQL "INSERT INTO JSONforAPI (JSON) VALUES (" & Jsonstr2 & ")" 

我得到：

运行时错误“ 3075”，查询表达式“ {{order”：{“ CustomerID”：“ 19””中的GUID格式错误。”

单击帮助，我得到：

此命令不可用。您单位的管理员已关闭使用此功能所需的服务。

即使创建查询定义也一样。

如果有人能告诉我哪里出了问题，我将非常感激。

Answer 1

由于您将值与SQL语句的其余部分连接在一起，所以Jsonstr2所保存的字符串中的定界符或其他特殊字符都不会被转义，因此，您最终会在其中包含各种格式错误的字符串SQL语句。

Answer 2

您可以尝试以下方法：