VB.NET使用OLEDB更新Access报No value given for required parameters错误求助

• 最核心的问题是WHERE子句中的StaffName筛选值直接拼接字符串，没有加单引号也没有用参数传递。如果Label2.Text返回的是文本内容（比如“张三”），拼接后生成的SQL语句为where [StaffName] = 张三，Access会把未被单引号包裹的文本识别为未赋值的参数，直接触发“缺少必要参数”的报错。同时直接拼接SQL还存在SQL注入的安全风险。
• 参数使用不规范：OLE DB驱动的参数是按传入顺序匹配，而非按参数名匹配，你当前代码中只声明了两个参数，WHERE子句中隐式生成的第三个参数没有对应赋值。
• 存在类型不匹配隐患：你直接将标签的文本（字符串类型）赋值给StaffHours（大概率为数值类型）、RecordedTime（大概率为日期时间类型）字段，后续如果文本格式不符合字段要求会触发新的报错。
• 冗余代码：使用Using声明数据库连接时，执行结束后会自动释放资源、关闭连接，不需要手动调用conn.Close()。

Private Sub TestButton_Click(sender As Object, e As EventArgs) Handles TestButton.Click
    Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\DatabasePath\database.accdb"
    ' 所有变量全部用参数传递，不要拼接SQL
    Dim SqlString As String = "update SaintStaff set [StaffHours]=@CAHours,[RecordedTime]=@Time where [StaffName] = @StaffName"

    Using conn As New OleDbConnection(ConnString)
        conn.Open()
        Using cmd As New OleDbCommand(SqlString, conn)
            cmd.CommandType = CommandType.Text
            ' 按SQL中参数的顺序依次传值，建议根据字段类型做显式转换
            ' 如果StaffHours是数值类型，这里可以改为 Convert.ToInt32(Label6.Text) 或者 Convert.ToDecimal(Label6.Text)
            cmd.Parameters.AddWithValue("@CAHours", Label6.Text)
            ' 如果RecordedTime是日期类型，这里改为 Convert.ToDateTime(Label10.Text)
            cmd.Parameters.AddWithValue("@Time", Label10.Text)
            ' 补充StaffName的参数赋值
            cmd.Parameters.AddWithValue("@StaffName", Label2.Text)
            cmd.ExecuteNonQuery()
        End Using
    End Using
End Sub

如果运行后仍然报错，可以先检查是否存在字段名拼写错误、参数值为空的情况。

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