VB.Net使用OleDbCommand更新Access报参数缺失错误如何解决

错误触发原因 #

• 表名或字段名拼写错误：Access无法识别的标识符会被判定为未赋值的参数，触发该报错。请先核对DELIVERY表名、delivery_status字段名是否和数据库内完全一致，如果是Access保留字、字段名含特殊字符/空格，需要用方括号包裹，例如写成[delivery_status]。
• OLEDB驱动参数规则不匹配：ACE OLEDB驱动不支持@参数名的命名参数匹配逻辑，要求使用?作为参数占位符，参数赋值顺序必须和占位符在SQL中出现的顺序完全对应。
• 额外注意：你当前的UPDATE语句没有加WHERE过滤条件，执行后会更新全表所有记录的交付状态，若你需要只更新指定记录，必须补充对应过滤规则（例如按订单ID匹配）。

修正后代码 #

Private Const strConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Traicy\Downloads\MWL(11-30-2021)\MadeWithLove\MadeWithLove\MadeWithLove.mdb;"

Public Sub DeliveredUpdate()
    ' 注意：如果需要更新指定记录，补充WHERE条件，例如后面加 WHERE order_id = ?
    Const SQL As String = "UPDATE DELIVERY SET delivery_status = ?"
    ' 使用Using块自动释放连接、命令对象资源，无需手动关闭
    Using conn As New OleDbConnection(strConn)
        Using cmd As New OleDbCommand(SQL, conn)
            ' 参数按占位符顺序赋值
            cmd.Parameters.AddWithValue("", "Delivered")
            Try
                conn.Open()
                If cmd.ExecuteNonQuery() > 0 Then
                    MsgBox("The delivery status was successfully updated.")
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Using
    End Using
End Sub

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