VB.NETはMSAccessデータベースのレコードを更新できません

Question

Private Sub btnPurchaseSave_Click(sender As Object, e As EventArgs) Handles btnPurchaseSave.Click 
    Dim InvNo As Integer 
    Dim ItmName As String 
    Dim ItmType As String 
    Dim ItmQuantity As Double 
    Dim ItmPurPrice As Double 
    Dim itmTotalCost As Double 
    Dim DateFormat = "dd/MM/yyyy" 
    Dim InvTotal As Double 

    InvNo = CInt(txtInvoiceNo.Text) 
    InvTotal = TotalCost() 

    Dim InvDate = Format(CDate(txtInvoiceDate.Text), DateFormat) 

    ConnectDatabse() 

    If blnPurchNew = True Then 

     myConnection.Open() 
     ObjCommand.CommandText = "Insert into Invoice (Invoice_No,Invoice_Date,Supplier_Name,Invoice_Total) values (@Invoice_No, @Invoice_Date,@Supplier_Name,@Invoice_Name)" 
     ObjCommand.Connection = myConnection 
     ObjCommand.Parameters.AddWithValue("Invoice_No", InvNo) 
     ObjCommand.Parameters.AddWithValue("Invoice_Date", InvDate) 
     ObjCommand.Parameters.AddWithValue("Supplier_Name", txtSupplierName.Text) 
     ObjCommand.Parameters.AddWithValue("Invoice_Total", InvTotal) 

     ObjCommand.ExecuteNonQuery() 
     ObjCommand.Dispose() 

     ' Try 
     For i = 0 To DGPurchase.Rows.Count - 2 

      ObjCommand.CommandText = "Insert into Item_Invoice (Invoice_No,Item_Name,Item_Type,Item_Quantity,Item_Total_Cost,Item_Purchase_Price) values (@Invoice_No,@Item_Name,@item_Type, @Item_Quantity,@Item_Total_Cost,@Item_Purchase_Price)" 
      ObjCommand.Connection = myConnection 

      ItmName = DGPurchase.Rows(i).Cells(0).Value.ToString 
      ItmType = DGPurchase.Rows(i).Cells(1).Value.ToString 
      ItmQuantity = CDbl(DGPurchase.Rows(i).Cells(2).Value) 
      itmTotalCost = CDbl(DGPurchase.Rows(i).Cells(3).Value) 
      ItmPurPrice = CDbl(DGPurchase.Rows(i).Cells(4).Value) 

      ObjCommand.Parameters.AddWithValue("Invoice_No", InvNo) 
      ObjCommand.Parameters.AddWithValue("Item_Name", ItmName) 
      ObjCommand.Parameters.AddWithValue("Item_Type", ItmType) 
      ObjCommand.Parameters.AddWithValue("Item_Quantity", ItmQuantity) 
      ObjCommand.Parameters.AddWithValue("Item_Total_Cost", itmTotalCost) 
      ObjCommand.Parameters.AddWithValue("Item_Purchase_Price", ItmPurPrice) 
      ObjCommand.ExecuteNonQuery() 
      ObjCommand.Dispose() 

     Next i 

     ' Catch ex As Exception 

     'MsgBox(ex.Message) 
     ' End Try 
     MessageBox.Show("تم حفظ فاتوة المشتريات") 
     lblTotalCost.Text = " الاجمالي : " 
     clear() 
     blnPurchNew = False 

    Else 
     If blnPurchModify = True Then 

      myConnection.Open() 
      ObjCommand.CommandText = "UPDATE Invoice SET Invoice_Date=@Invoice_Date,Supplier_Name=@Supplier_Name,Invoice_Total=@Invoice_Total WHERE Invoice_No=" & CInt(txtInvoiceNo.Text) & " " 
      ObjCommand.Connection = myConnection 
      ObjCommand.Parameters.AddWithValue("Invoice_Date", InvDate) 
      ObjCommand.Parameters.AddWithValue("Supplier_Name", txtSupplierName.Text) 
      ObjCommand.Parameters.AddWithValue("Invoice_Total", InvTotal) 

      ObjCommand.ExecuteNonQuery() 
      ObjCommand.Dispose() 

      ' Try 
      For i = 0 To DGPurchase.Rows.Count - 2 

       ' ObjCommand.CommandText = "UPDATE Item_Invoice SET Item_Name=@Item_Name,item_Type=@item_Type, Item_Quantity=@Item_Quantity,Item_Total_Cost=@Item_Total_Cost,Item_Purchase_Price=@Item_Purchase_Price WHERE Invoice_No=@Invoice_NO" 
       ObjCommand.Connection = myConnection 
       ObjCommand.CommandText = "Update Item_Invoice Set Item_Name=@Item_Name Where Invoice_No=@Invoice_No" 
       ItmName = DGPurchase.Rows(i).Cells(0).Value.ToString 
       ItmType = DGPurchase.Rows(i).Cells(1).Value.ToString 
       ItmQuantity = CDbl(DGPurchase.Rows(i).Cells(2).Value) 
       itmTotalCost = CDbl(DGPurchase.Rows(i).Cells(3).Value) 
       ItmPurPrice = CDbl(DGPurchase.Rows(i).Cells(4).Value) 

       ObjCommand.Parameters.AddWithValue("Invoice_No", InvNo) 
       ObjCommand.Parameters.AddWithValue("Item_Name", ItmName) 
       ObjCommand.Parameters.AddWithValue("Item_Type", ItmType) 
       ObjCommand.Parameters.AddWithValue("Item_Quantity", ItmQuantity) 
       ObjCommand.Parameters.AddWithValue("Item_Total_Cost", itmTotalCost) 
       ObjCommand.Parameters.AddWithValue("Item_Purchase_Price", ItmPurPrice) 
       ObjCommand.ExecuteNonQuery() 
       ObjCommand.Dispose() 

      Next i 



      MessageBox.Show("تم تعديل فاتوة المشتريات") 
      lblTotalCost.Text = " الاجمالي : " 
      clear() 
      blnPurchModify = False 
     End If 
    End If 

    myConnection.Close() 
    myConnection.Dispose() 
    ObjCommand.Dispose() 


End Sub 

両方のテーブルを保存して最初の "請求書"を更新​​することはできますが、アイテム請求書更新に関する2番目の部分の何が問題なのか分かりません。 私はエラーが発生していません。テーブルデータベースのデータが変更されずに更新の成功メッセージが表示されます。

申し訳ありませんが、長いコードのために、私はそれを明確にしたいと思いました。

ご協力いただきありがとうございます。

Answer 1

更新の問題は、パラメータの定義順です。
OleDbは、パラメータの名前を調べず、パラメータがコレクションに追加された順序で表示します。
更新SQL文では、最初にInvoice_Noパラメータを追加してからItem_nameを追加します。しかし、クエリでは、最初のパラメータのプレースホルダはItem_Nameで、最後はInvoice_Noです。

パラメータを追加するときは、プレースホルダの順序に従う必要があります。

For i = 0 To DGPurchase.Rows.Count - 2 
    ..... 
    ObjCommand.Connection = myConnection 
    ObjCommand.CommandText = "Update Item_Invoice 
      Set Item_Name=@Item_Name 
      Where Invoice_No=@Invoice_No" 
    .... 

    ObjCommand.Parameters.AddWithValue("Item_Name", ItmName) 
    ' the Invoice_No should be the last parameter added not the first 
    ObjCommand.Parameters.AddWithValue("Invoice_No", InvNo) 
    ..... 
    ObjCommand.ExecuteNonQuery() 

私のアドバイスを繰り返します。常に同じOleDbCommandを使用し、使用を終了するまでは処理しないでください。
また、各ExecuteNonQuery間でパラメータコレクションをクリアする必要があります。それ以外の場合は引き続きパラメータを追加して、間違った値を挿入したり、データベースにレコードを複製したりすることがあります。これはあなたの問題の原因ですが、ループ内の最初の行は、あなたが同じのOleDbCommandにパラメータを追加していきそう_objCommand.Parameters.Clear_すべきかどう

Private Sub btnPurchaseSave_Click(sender As Object, e As EventArgs) Handles btnPurchaseSave.Click 

    .... 
    ConnectDatabse() 

    If blnPurchNew = True Then 

     myConnection.Open() 
     .... 
     ObjCommand.ExecuteNonQuery() 

     ' Do not destroy the objCommand 
     ' ObjCommand.Dispose() 

     ' Try 
     For i = 0 To DGPurchase.Rows.Count - 2 
      ObjCommand.Parameters.Clear() 
      ObjCommand.CommandText = ..... 
      ObjCommand.ExecuteNonQuery() 

      ' No destroy 
      ' ObjCommand.Dispose() 

     Next i 
     .... 
    Else 
     If blnPurchModify = True Then 
      myConnection.Open() 
      ObjCommand.CommandText = "UPDATE ...." 
      .... 
      ObjCommand.ExecuteNonQuery() 
      ' ObjCommand.Dispose() 

      For i = 0 To DGPurchase.Rows.Count - 2 
       ObjCommand.Parameters.Clear() 
       ObjCommand.CommandText = "UPDATE Item_Invoice ...." 
       .... 
       ObjCommand.ExecuteNonQuery() 

      Next i 
      .... 
     End If 
    End If 

    myConnection.Close() 
    myConnection.Dispose() 
    ObjCommand.Dispose() 
End Sub