Concurrency violation: the UpdateCommand affected 0 records.
Dim myDA As OleDbDataAdapter Dim myDataSet As DataSet Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=|DataDirectory|\MYDB.mdb") ' Use relative path to database file Dim cmd As OleDbCommand = New OleDbCommand("SELECT A.TUTAR+2 , A.* FROM CARTH001 A WHERE KAYITNO = 1", con) con.Open() Dim dt = New DataTable() myDA = New OleDbDataAdapter(cmd) Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(myDA) myDataSet = New DataSet() myDA.Fill(myDataSet, "CARTM001") DataGridView1.DataSource = myDataSet.Tables("CARTM001").DefaultView con.Close() con = Nothing End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Validate() Me.myDA.Update(Me.myDataSet.Tables("CARTM001")) Me.myDataSet.AcceptChanges() End Sub End Class
Me.myDA.Update(Me.myDataSet.Tables("CARTM001")) Me.myDataSet.Tables("CARTM001").AcceptChanges() Me.myDA.Fill(Me.myDataSet.Tables("CARTM001"))
AcceptChanges
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)