Member 14588284 Ответов: 1

Доступ к обновлению. MDB с элементом управления datagridview


Всем привет
у меня есть коды для обновления таблицы доступа

когда я добавляю столбец в запрос, то получаю ошибку

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

ZurdoDev

И в чем же ошибка?

Member 14588284

сори :)
Нарушение параллелизма: команда UpdateCommand затронула 0 записей.

ZurdoDev

Посмотрим, поможет ли это, https://www.codeproject.com/Questions/153263/Solved-concurrency-violation-Updated-0-of-the-exp

Member 14588284

К сожалению я не нашел ответа

Sandeep Mewara

Когда вы отлаживаете, какая строка выдает вам эту ошибку.

Member 14588284

Я.myDataSet.Метод acceptchanges()

Эта линия

Member 14588284

как я могу это сделать?
в моем запросе я добавляю разные столбцы

1 Ответов

Рейтинг:
1

Sandeep Mewara

Попробуй:

Me.myDA.Update(Me.myDataSet.Tables("CARTM001"))
Me.myDataSet.Tables("CARTM001").AcceptChanges()
Me.myDA.Fill(Me.myDataSet.Tables("CARTM001"))

AcceptChanges на уровне стола.


Member 14588284

Опять та же ошибка :(

на этой линии
Меня.myda представляет.Обновление(Меня.myDataSet.Таблицы("CARTM001"))

Member 14588284

Как я могу добавить строку в эти коды?