Access食谱数据库批量添加配料遇runtime error '3063'求助

错误原因 #

你遇到的3063错误是因为INSERT语句中重复指定了name_ing作为字段目标——一次性插入6种配料时，错误地将多个值绑定到同一个字段，或者SQL语法里重复声明了该字段。

正确的批量插入写法 #

配料表仅含ID（自动编号）和name_ing字段，要一次性插入6种配料，有两种可行写法：

方法1：多行VALUES语法（适用于Access 2010及以上） #

假设表单中配料对应的控件是txtIng1到txtIng6，SQL语句如下：

Dim sql As String
sql = "INSERT INTO 配料表 (name_ing) " & _
      "VALUES ('" & Me.txtIng1 & "'), " & _
      "('" & Me.txtIng2 & "'), " & _
      "('" & Me.txtIng3 & "'), " & _
      "('" & Me.txtIng4 & "'), " & _
      "('" & Me.txtIng5 & "'), " & _
      "('" & Me.txtIng6 & "');"
CurrentDb.Execute sql, dbFailOnError

方法2：UNION ALL语法（兼容旧版Access） #

Dim sql As String
sql = "INSERT INTO 配料表 (name_ing) " & _
      "SELECT '" & Me.txtIng1 & "' AS name_ing " & _
      "UNION ALL SELECT '" & Me.txtIng2 & "' " & _
      "UNION ALL SELECT '" & Me.txtIng3 & "' " & _
      "UNION ALL SELECT '" & Me.txtIng4 & "' " & _
      "UNION ALL SELECT '" & Me.txtIng5 & "' " & _
      "UNION ALL SELECT '" & Me.txtIng6 & "';"
CurrentDb.Execute sql, dbFailOnError

更安全的参数化写法（避免SQL注入） #

如果配料名包含单引号等特殊字符，上面的写法会出错，建议用参数化查询：

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim i As Integer

Set db = CurrentDb
For i = 1 To 6
    Set qdf = db.CreateQueryDef("", "INSERT INTO 配料表 (name_ing) VALUES (@ing)")
    qdf.Parameters("@ing") = Me("txtIng" & i)
    qdf.Execute dbFailOnError
    Set qdf = Nothing
Next i
Set db = Nothing

排查原代码的常见错误 #

检查你原来的SQL是否存在以下问题：

• 错误地重复声明字段，比如INSERT INTO 配料表 (name_ing, name_ing, ...)
• 在SELECT语句中多次返回name_ing列，导致Access无法识别唯一的输出目标

内容的提问来源于stack exchange，提问作者Murilo Mendes Pedra