如何在 UPDATE 命令的 WHERE 子句中使用三个条件更新单个记录？

Question

我使用 Visual Basic 2015 作为前端，使用 Access 数据库作为后端。我想在以下三个基础上更新表中的单个记录：在哪里Sap_No = TxtSap_No ANDMNT (i. e. Month) = CmbMonth.Text (i. e. ComboBox Text) ANDYR (i.e. Year) = CmbYear.Text (i. e. ComboBox Text)我的更新命令如下：尝试LvMasterCmd.CommandText = "UPDATE LeaveMaster SET  Sap_No= @Sap_No, From_Date= @From_Date, To_Date= @To_Date, LeaveType= @LeaveType, Days= @Days, LeaveStatus= @LeaveStatus , MNT = @MNT , YR = @YR WHERE Sap_No=  " & CInt(TxtSapID.Text) & " AND MNT=  " & MN & " ;"LvMasterCmd.Parameters.AddWithValue("@Sap_No", TxtSapID.Text)LvMasterCmd.Parameters.AddWithValue("@From_Date", DtpFrom.Value)LvMasterCmd.Parameters.AddWithValue("@To_Date", DtpTo.Value)LvMasterCmd.Parameters.AddWithValue("@LeaveType", LT)LvMasterCmd.Parameters.AddWithValue("@Days", LblDays.Text)LvMasterCmd.Parameters.AddWithValue("@MNT", MN)LvMasterCmd.Parameters.AddWithValue("@YR", YRR)LvMasterCmd.Parameters.AddWithValue("@LeaveStatus", "Y")LvMasterReader.Close()LvMasterCmd.ExecuteNonQuery()LvMasterCmd.Parameters.Clear()Exit SubCatch ex As ExceptionMessageBox.Show(ex.Message)End Try但是是节目没有给一个或多个标准表达式赋值此代码有什么问题以及如何更正？请帮忙。

Answer 1

如果条件中的任何值无效，则无法更新任何列……因此您应该确保这些值存在于数据库中，然后尝试这种格式

Try

 LvMasterCmd.Parameters.AddWithValue("@Sap_No", TxtSapID.Text)

 LvMasterCmd.Parameters.AddWithValue("@From_Date", DtpFrom.Value)

 LvMasterCmd.Parameters.AddWithValue("@To_Date", DtpTo.Value)

 LvMasterCmd.Parameters.AddWithValue("@LeaveType", LT)

 LvMasterCmd.Parameters.AddWithValue("@Days", LblDays.Text)

 LvMasterCmd.Parameters.AddWithValue("@MNT", MN)

 LvMasterCmd.Parameters.AddWithValue("@YR", YRR)

 LvMasterCmd.Parameters.AddWithValue("@LeaveStatus", "Y")

 LvMasterCmd.CommandText = "UPDATE LeaveMaster SET Sap_No= @Sap_No, From_Date= @From_Date, To_Date= @To_Date, LeaveType= @LeaveType, Days= @Days, LeaveStatus= @LeaveStatus , MNT = @MNT , YR = @YR WHERE Sap_No = " & CInt(TxtSapID.Text) & " AND MNT = '" & MN & "'"

 LvMasterReader.Close()

 LvMasterCmd.ExecuteNonQuery()

 LvMasterCmd.Parameters.Clear()

 Exit Sub

 Catch ex As Exception

 MessageBox.Show(ex.Message)

End Try

Answer 2

我注意到您的年份变量是YR但在LvMasterCmd.Parameters.AddWithValue("@YR", YRR)您使用中YRR ，您的问题是否会像变量命名为拼写错误一样简单？

您将问题陈述解释为包括 MN 和 YR，但您输入了 YRR。

——先从最明显的问题说起。