comment datatable peut être mis à jour la base de données dans vb.net

Question

Je suis en train de résoudre un problème mais ne parviennent pas jusqu'à présent

mon avis DataGrid est lié à BindingSource mais lorsque je supprime une ligne de mon datagriview la mise à jour (tableau) commande exécute mais ne fait aucun changement à ma base de données

Je chargeais datagridview dans ce code

Private Sub loadSalueUnits(ByVal itemName As String) 

    table.Clear() 
    If (itemName <> "0") Then 
     ItemID = db.GetVal("select RawItemId from tblRawItem where RawItemName='" & itemName & "'") 
     dsSaleUnit = db.GetData("SELECT * from tblItemSaleUnits where RawItemId=" & ItemID & "") 
    Else 
     ItemID = "0" 
    End If 
    loadComboBox() 

    'SaleUnit 
    If (ItemID = "0") Then 
     Try 

      Dim objNetworksetting As New NetworkSetting 
      Dim source As String = objNetworksetting.ReadConnectionXML() 
      Dim connectionString As String = source 

      Dim selectCommand As String = "SELECT * from tblItemSaleUnits where RawItemId=" & ItemID & "" 
      Me.dataAdapter = New OdbcDataAdapter(selectCommand, connectionString) 
      Dim commandBuilder As New OdbcCommandBuilder(Me.dataAdapter) 
      table.Locale = System.Globalization.CultureInfo.InvariantCulture 
      Me.dataAdapter.Fill(table) 
      Me.bindingSource.DataSource = table 
      data.Locale = System.Globalization.CultureInfo.InvariantCulture 
      dgvSaleUnit.DataSource = Me.bindingSource 
      SaleUnit.DataPropertyName = "Unit" 
      UnitDifference.DataPropertyName = "UnitDifference" 
      For i As Integer = 0 To table.Rows.Count - 1 
       dgvSaleUnit.Rows(i).Cells("UnitDifference").Value() = table.Rows.Item(i)(3) 
       dgvSaleUnit.Rows(i).Cells("SaleUnit").Value() = table.Rows.Item(i)(2) 
       dgvSaleUnit.Rows(i).Cells("SalePrice").Value() = table.Rows.Item(i)(4) 
      Next 

      Me.dgvSaleUnit.AutoResizeColumns(_ 
      DataGridViewAutoSizeColumnsMode.AllCells) 
      dgvSaleUnit.Columns(2).Visible = False 
      dgvSaleUnit.Columns(3).Visible = False 
      dgvSaleUnit.Columns(4).Visible = False 
      dgvSaleUnit.Columns(5).Visible = False 
      dgvSaleUnit.Columns(6).Visible = False 
     Catch ex As Exception 
      MessageBox.Show(ex.Message) 
     End Try 

    ElseIf dsSaleUnit.Tables(0).Rows.Count <> 0 Then 

     Try 

      Dim objNetworksetting As New NetworkSetting 
      Dim source As String = objNetworksetting.ReadConnectionXML() 
      Dim connectionString As String = source 

      Dim selectCommand As String = "SELECT * from tblItemSaleUnits where RawItemId=" & ItemID & "" 
      Me.dataAdapter = New OdbcDataAdapter(selectCommand, connectionString) 
      Dim commandBuilder As New OdbcCommandBuilder(Me.dataAdapter) 
      table.Locale = System.Globalization.CultureInfo.InvariantCulture 
      Me.dataAdapter.Fill(table) 
      Me.bindingSource.DataSource = table 
      data.Locale = System.Globalization.CultureInfo.InvariantCulture 
      dgvSaleUnit.DataSource = Me.bindingSource 
      SaleUnit.DataPropertyName = "Unit" 
      UnitDifference.DataPropertyName = "UnitDifference" 
      salePrice.DataPropertyName = "SalePrice" 
      For i As Integer = 0 To table.Rows.Count - 1 
       dgvSaleUnit.Rows(i).Cells("UnitDifference").Value() = table.Rows.Item(i)(3) 
       dgvSaleUnit.Rows(i).Cells("SaleUnit").Value() = table.Rows.Item(i)(2) 
       dgvSaleUnit.Rows(i).Cells("SalePrice").Value() = table.Rows.Item(i)(4) 
      Next 

      Me.dgvSaleUnit.AutoResizeColumns(_ 
      DataGridViewAutoSizeColumnsMode.AllCells) 
      dgvSaleUnit.Columns(2).Visible = False 
      dgvSaleUnit.Columns(3).Visible = False 
      dgvSaleUnit.Columns(4).Visible = False 
      dgvSaleUnit.Columns(5).Visible = False 
      dgvSaleUnit.Columns(6).Visible = False 

     Catch ex As Exception 
      MessageBox.Show(ex.Message) 
     End Try 
    End If 

End Sub 

et après la suppression de la ligne de datagridiew mise à jour dans ce code

Dim objNetworksetting As New NetworkSetting 
      Dim source As String = objNetworksetting.ReadConnectionXML() 
      Dim connectionString As String = source 
      Dim con As New OdbcConnection(connectionString) 
      con.Open() 

      Dim selectCommand As String = "SELECT * from tblItemSaleUnits" 
      Me.dataAdapter = New OdbcDataAdapter(selectCommand, connectionString) 
      Dim commandBuilder As New OdbcCommandBuilder(Me.dataAdapter) 
      table.Locale = System.Globalization.CultureInfo.InvariantCulture 
      dataAdapter.Fill(table) 


      dataAdapter.UpdateCommand = commandBuilder.GetUpdateCommand() 
      table = Me.bindingSource.DataSource 
      table.AcceptChanges() 
      Me.dataAdapter.Update(table) 

il exécute mais ne ot faire aucun changement à la base de données

Answer 1

dataAdapter.UpdateCommand = commandBuilder.GetUpdateCommand() 
     table = Me.bindingSource.DataSource 
     table.AcceptChanges() 
     Me.dataAdapter.Update(table) 

De cette façon, nous pouvons mettre à jour la base de données datatable