例外：VB.NET和MS-ACCESS数据库中的一个或多个所需参数没有给出值

Question

我使用库存系统。我的代码有错误，它说

没有给出一个或多个必需参数的值。

并且错误发生在cmd.ExecuteNonQuery()。这是什么意思？有人能帮我吗？顺便说一句，这段代码是用来扣除数据库上的物料数量。对不起，我的英语不好。

con.Open() 
Dim sqlQry As String = "UPDATE [tbl_Stocks] 
         SET [Quantity] = [Quantity] - @QU 
         WHERE Products='" & lbPro.Text & "'" 
Using cmd As New OleDbCommand(sqlQry, con) 
    cmd.Parameters.AddWithValue("@QU", lbQuan.Text) 
    cmd.ExecuteNonQuery() 
    con.Close() 
    MsgBox("Save Successfully!") 
End Using 

Answer 1

我没有看到任何缺陷。试试这个替代品（一个小调整通过参数发送两个输入端）

con.Open() 
Dim sqlQry As String = "UPDATE [tbl_Stocks] SET [Quantity] = [Quantity] - @QU " & 
         "WHERE Products=@prod" 
Using cmd As New OleDbCommand(sqlQry, con) 
    cmd.Parameters.AddWithValue("@QU", lbQuan.Text) 
    cmd.Parameters.AddWithValue("@prod", lbPro.Text) 
    cmd.ExecuteNonQuery() 
    con.Close() 
    MsgBox("Save Successfully!") 
End Using