INSERT INTO语句语法错误：Visual Studio向Access提交数据报错如何解决

核心错误原因 #

• 最直接的语法问题：拼接fvalue变量时末尾遗漏了闭合单引号，导致整个INSERT语句的VALUES子句未正确闭合，直接触发语法报错
• 数据类型不匹配：Access中日期类型字段需要用#包裹而非单引号，如果DATEENCODED、ENTRYDATE等是日期类型，直接用单引号包裹日期值会报错；如果INPUT、OUTPUT、REJECTS等是数值类型，用单引号包裹数字也会触发类型不匹配报错
• 特殊字符打断语法：如果任意输入框的内容包含单引号（比如零件名称为O'型圈），会直接打断SQL字符串的闭合结构，导致语法错误
• 空值判断逻辑写反：当前代码判断所有输入框都为空时提示添加成功，明显不符合业务逻辑，应该是有任意必填项为空时提示用户补全信息

最优解决方案：使用参数化查询 #

不要再直接拼接SQL字符串，改用参数化查询可以一次性解决上述所有语法、类型、特殊字符问题，还能避免SQL注入风险，示例代码如下：

' 先修正空值判断逻辑：任意必填项为空时提示
If String.IsNullOrWhiteSpace(txtLot.Text) OrElse String.IsNullOrWhiteSpace(cmbPartsList.Text) OrElse String.IsNullOrWhiteSpace(txtYear.Text) Then
    LBLMSG.Text = "请补全所有必填信息"
    LBLMSG.BackColor = Color.Red
    LBLMSG.ForeColor = Color.White
    cmbPartsList.Focus()
    Beep()
    Return
End If

' 查重逻辑保留，也建议改成参数化
Dim helperKey = $"{txtLot.Text}-{txtPartNumber.Text}-{txtProcess.Text}-{txtYear.Text}{txtMonth.Text}{txtDate.Text}{txtShift.Text}"
query = "SELECT * FROM ProdOutput1 WHERE HELPERKEY=?"
retrieveSingleResult(query, helperKey) ' 对应修改retrieveSingleResult方法支持参数传递即可

If dt.Rows.Count > 0 Then
    LBLMSG.Text = $"{txtPartName.Text}存在重复数据，请重新检查"
    LBLMSG.BackColor = Color.Red
    LBLMSG.ForeColor = Color.White
    Beep()
Else
    ' 参数化INSERT语句，不需要手动拼接符号
    Dim insertSql = "INSERT INTO ProdOutput1 (DATEENCODED, PROCESS, LOTNUMBER, INPUT, OUTPUT, PARTNUMBER, PARTNAME, OPERATOR, ENTRYDATE, LOTNUMBERANDPARTNUMBER, REJECTS, HELPER, LOTMONTHANDYEAR, INTDATE, SHIFT, PROCMONTH, PARTSLIST, ENTRYYEAR, MONTHPROC, MACHINE, HELPERKEY) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
    Using conn As New OleDbConnection("你的Access连接字符串")
        Using cmd As New OleDbCommand(insertSql, conn)
            ' 按SQL中字段的顺序添加参数，OleDb不区分参数名仅按顺序匹配
            cmd.Parameters.AddWithValue("?", dtpEntryDate.Value) ' 日期类型直接传值，不需要加任何包裹符号
            cmd.Parameters.AddWithValue("?", txtProcess.Text)
            cmd.Parameters.AddWithValue("?", txtLot.Text)
            cmd.Parameters.AddWithValue("?", CInt(txtInput.Text)) ' 数值类型转换为对应类型后直接传
            cmd.Parameters.AddWithValue("?", CInt(txtOutput.Text))
            cmd.Parameters.AddWithValue("?", txtPartNumber.Text)
            cmd.Parameters.AddWithValue("?", txtPartName.Text)
            cmd.Parameters.AddWithValue("?", txtOperator.Text)
            cmd.Parameters.AddWithValue("?", $"{txtYear.Text}{txtMonth.Text}{txtDate.Text}{txtShift.Text}")
            cmd.Parameters.AddWithValue("?", $"{txtLot.Text}-{txtPartNumber.Text}")
            cmd.Parameters.AddWithValue("?", CInt(txtReject.Text))
            cmd.Parameters.AddWithValue("?", $"{txtLot.Text}-{txtPartNumber.Text}-{txtProcess.Text}")
            cmd.Parameters.AddWithValue("?", $"HTI{txtYear.Text}{txtMonth.Text}")
            cmd.Parameters.AddWithValue("?", CInt(txtDate.Text))
            cmd.Parameters.AddWithValue("?", txtShift.Text)
            cmd.Parameters.AddWithValue("?", $"{txtYear.Text}{txtMonth.Text}")
            cmd.Parameters.AddWithValue("?", cmbPartsList.Text)
            cmd.Parameters.AddWithValue("?", CInt(txtYear.Text))
            cmd.Parameters.AddWithValue("?", CInt(txtMonth.Text))
            cmd.Parameters.AddWithValue("?", txtMCLot.Text)
            cmd.Parameters.AddWithValue("?", helperKey)
            
            conn.Open()
            cmd.ExecuteNonQuery()
        End Using
    End Using
    LBLMSG.Text = $"{txtPartName.Text}已成功添加到库存"
    LBLMSG.BackColor = Color.Aquamarine
    LBLMSG.ForeColor = Color.Black
End If

临时排查方案 #

如果你暂时不想调整为参数化，可以在执行cudfunctionNOmsg(query)之前加一行代码把生成的完整SQL语句输出到调试窗口或者文本框，直接查看SQL结构就能快速定位少引号、语法断裂的问题。

内容的提问来源于stack exchange，提问作者bertot