Обновление данных в DB Access

[krukovis84]

Делаю так:

Код: Выделить всё

        'путь к бд и имя таблицы для выполнения запроса
        Dim DBFileName As String = Application.StartupPath & "\Lector.mdb"
        Dim DBTableName As String = "[tabStudent]"
        'инициализируем объекты для работы с бд
        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFileName)
        Dim da As New OleDb.OleDbDataAdapter()
        Dim tbl As New DataTable
        Dim dbCommandBuilder As New OleDb.OleDbCommandBuilder(da)
        'Объявляем команду выбора
        da.UpdateCommand = New OleDb.OleDbCommand( _
                "UPDATE " & DBTableName & _
                " SET txtScndName = " & txtScndName.Text & _
                " , txtName = " & txtName.Text & _
                " , txtPatr = " & txtPatr.Text & _
                " , txtOrg = " & txtOrg.Text & _
                " , txtSection = " & txtSection.Text & _
                " , txtPost = " & txtPost.Text & _
                " , dtStartWork = " & dtStartWork.Text & _
                " , txtEducation = " & txtEducation.Text & _
                " , txtExp = " & txtExp.Text & _
                " , txtTraining = " & txtTraining.Text & _
                " WHERE ID = " & lblID.Text, cn)
        da.UpdateCommand.UpdatedRowSource = UpdateRowSource.Both

Ошибок не выдает , запись не обновляется... Че делать?

И вопрос нужна ли вот такая приписка:

Код: Выделить всё

        With da.UpdateCommand.Parameters
            .Add(txtScndName.Text, OleDb.OleDbType.VarWChar).SourceColumn = "txtScndName"
            .Add(txtName.Text, OleDb.OleDbType.VarWChar).SourceColumn = "txtName"
            .Add(txtPatr.Text, OleDb.OleDbType.VarWChar).SourceColumn = "txtPatr"
            .Add(txtOrg.Text, OleDb.OleDbType.VarWChar).SourceColumn = "txtOrg"
            .Add(txtSection.Text, OleDb.OleDbType.VarWChar).SourceColumn = "txtSection"
            .Add(txtPost.Text, OleDb.OleDbType.VarWChar).SourceColumn = "txtPost"
            .Add(dtStartWork.Text, OleDb.OleDbType.VarWChar).SourceColumn = "dtStartWork"
            .Add(txtEducation.Text, OleDb.OleDbType.VarWChar).SourceColumn = "txtEducation"
            .Add(txtExp.Text, OleDb.OleDbType.VarWChar).SourceColumn = "txtExp"
            .Add(txtTraining.Text, OleDb.OleDbType.VarWChar).SourceColumn = "txtTraining"
            .Add(lblID.Text, OleDb.OleDbType.VarWChar).SourceColumn = "ID"
        End With

Я по примеру http://bit.pirit.info/forum/viewtopic.php?t=9571 пытаюсь разобраться. Там есть, но по-моему оно не надо.
Подскажите как быть?

[FireFenix]

И вопрос нужна ли вот такая приписка

Если указываешь все данные в запросе - приписка не нужна

Ошибок не выдает , запись не обновляется... Че делать?

Открыть соединение + выполнить запрос

Код: Выделить всё

Public Shared Function UpdateRows(ByVal connectionString As String, ByVal queryString As String, ByVal tableName As String) As DataSet

    Dim dataSet As DataSet = New DataSet

    Using connection As New OleDbConnection(connectionString)
        Dim adapter As New OleDbDataAdapter()
        adapter.SelectCommand = New OleDbCommand(queryString, connection)
        Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)

        connection.Open()

        adapter.Fill(dataSet, tableName)

        ' Code to modify data in DataSet here

        builder.GetUpdateCommand()

        ' Without the OleDbCommandBuilder this line would fail.
        adapter.Update(dataSet, tableName)
    End Using

    Return dataSet
End Function

http://msdn.microsoft.com/ru-ru/library ... ilder.aspx

[krukovis84]

FireFenix, спасибо! Но, пример ты привел не в тему немного по-моему =). Зато совет дал очень правильный!
Кто будет смотреть эту тему расшифрую что имел ввиду FireFenix:

Открыть соединение + выполнить запрос

Код: Выделить всё

       
        Dim DBFileName As String = Application.StartupPath & "\BD.mdb" 'Путь к вашему файлу БД.
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFileName
        Dim sqlQuery As String = "Ваш запрос" 
        Dim connection As New OleDbConnection(connectionString)
        connection.Open()
        Dim cmd As OleDbCommand
        cmd = New OleDbCommand(sqlQuery, connection)
        cmd.ExecuteNonQuery()

Это работает четко и напрямую с базой данных без всяких промежуточных DataSet и прочей ерунды.

[FireFenix]

FireFenix, спасибо! Но, пример ты привел не в тему немного по-моему =)

Ну в первом посте небыло - как именно требуется выполнить запрос, и используется класс OleDbDataAdapter, который может быть связан с чем-то - вот я привёл пример

Вообще при большом желании - можно было посмотреть соседние темы и найти мой код viewtopic.php?f=29&t=42327#p6745468
или заюзать поиск по используемым классам, что также бы нашло мой пост и + viewtopic.php?f=5&t=42466#p6746658

[krukovis84]

Ну так я ж пинка ждал! Откуда я знал в какую сторону искать .
Получил волшебный пендель и разобрался. Дописал сейчас все остальные действия через запросы. Очень доволен собой
Все просто и понятно. И работает как я сказал, а не как какой то Builder придумает.