更新SQL，没有错误，没有更新

Question

我正在尝试根据填写到表单中的数据更新表格。
变量是从这样的表单中提取的：

_JEBatchDate = IIf(Me.textJEBatchDate.Text.Trim.Length > 0, Me.textJEBatchDate.Text.Trim, "")

更新sql长这样……

UPDATE [MAIN] SET [CheckNumber] = @checknumber, [CheckDate] = @checkdate, [CheckCashDate] = @checkcashdate, [CheckAmount] = @checkamount, [PayeeNumber] = @payeenumber, [AccountNumber] = @accountnumber, [Bank] = @bank, [ToTheOrderOf] = @totheorderof, [CheckType] = @checktype, [DatePaperworkSentToPayee] = @datepaperworksenttopayee, [DatePaperworkSentToBank] = @datepaperworksenttobank, [IncompleteReason] = @incompletereason, [RejectReason] = @rejectreason, [CaseNumber] = @casenumber, [BankStatus] = @bankstatus, [CorrWithPayee] = @corrwithpayee, [Comments] = @comments, [BankCredit] = @bankcredit, [Refund] = @refund, [DateFundsRecdFromBank] = @datefundsrecdfrombank, [DateRefundRecd] = @daterefunded, [DateTargetSent] = @datetargetsent, [NumberOfTargets] = @numberoftargets, [DateCreditPostedToCLI] = @datecreditpostedtocli, [DateSentToSGForRepayment] = @datesenttosgforrepayment, [DateClaimWasRepaid] = @dateclaimwasrepaid, [NewCheckNumber] = @newchecknumber, [NewCheckAmount] = @newcheckamount, [ARCHIVED] = @archived, [JEBatchName] = @jebatchname, [JEBatchDate] = @jebatchdate WHERE [ID] = @ID;

所有的值都以这种方式构造：

strValues = strValues & "[JEBatchDate] = @jebatchdate "

在 Try...Catch 中，参数是这样构造的：

 Try
        Using updateCmd As New OleDb.OleDbCommand(UpdateSQL, HMOConnection)
            updateCmd.Parameters.AddWithValue("@ID", Me.labelID.Text)
            updateCmd.Parameters.AddWithValue("@checknumber", _checkNumber)
            updateCmd.Parameters.AddWithValue("@checkdate", _checkDate)

我使用updateCmd.ExecuteNonQuery() 来执行查询。
代码通过 Try...Catch 运行而没有错误，但没有对记录进行更新。我已经仔细检查了所有的名称、拼写和连接，但仍然没有更新。任何想法或建议表示赞赏！

编辑
如果我将此行从顶部移到底部，则会出现数据类型不匹配错误：

updateCmd.Parameters.AddWithValue("@ID", Me.labelID.Text)

Answer 1

有各种各样的问题：

无更新

显示的代码不足以知道发生了什么（例如可能是空的Catch）。这将告诉您 Provider 是否成功：

Dim rows = updateCmd.ExecuteNonQuery()

如果它不为零，则它确实更新了。如果您看不到更改，并且数据库是项目的一部分，那么您可能正在查看错误的数据库副本。见Why saving changes to a database fails?

数据类型不匹配

永远不要使用AddWithValue（除非你的名字是 Gordon Linoff 或 Gord Thompson……或者可能是 Steve）。这会导致提供者根据数据假定数据类型：

updateCmd.Parameters.AddWithValue("@ID", Me.labelID.Text)

如果 ID 列是整数，则您传递的是一个字符串 - 是数据不匹配。其他数据库可能会出现非常非常错误的情况；使用Add:

updateCmd.Parameters.Add("@ID", OleDbType.Integer).Value = Convert.ToInt32(labelID.Text)

我确保所有参数都正确，将参数名称与变量匹配。

接下来，OleDB 不使用这样的命名参数 - 您必须按照它们在 SQL 中出现的确切顺序提供每个参数。你的 SQL：

UPDATE [MAIN] SET [CheckNumber] = @checknumber, 
       [CheckDate] = @checkdate, 
       [CheckCashDate] = @checkcashdate,...

但是您没有按顺序提供参数：

updateCmd.Parameters.AddWithValue("@ID", Me.labelID.Text)
updateCmd.Parameters.AddWithValue("@checknumber", _checkNumber)
updateCmd.Parameters.AddWithValue("@checkdate", _checkDate)

@ID 应该在最后，因为它在 SQL 中出现在最后

不要使用IIF

_JEBatchDate = IIf(textJEBatchDate.Text.Trim.Length > 0,
                   textJEBatchDate.Text.Trim, 
                   "")

“新”If 运算符被短路，因此只执行真假部分：

_JEBatchDate = If(textJEBatchDate.Text.Trim.Length > 0,
                       textJEBatchDate.Text.Trim, 
                       "")