Problem writing changes back to access database from gridcontrol

Question

Hi

I am populating a grid with data from an access database file (.accdb), and it works fine for showing my data.

But I can't seem to get it to save changes from the grid back to the database file, my adapter.update(table) command completes without error, but the changes are not written back to the file.

What am I missing?

Public Class Form1
  
    Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\test_databases\Database1.accdb;Persist Security Info=False;"

    Dim connection As OleDbConnection
    Dim adapter As OleDbDataAdapter
    Dim dataSet As DataSet
    Dim commandBuilder As OleDbCommandBuilder
    Dim table As DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        ' Connect to Access Database
        connection = New OleDbConnection(connectionString)

        ' Query to select data from a table
        Dim query As String = "SELECT FileAs, Dateoflastvisit, Dateoflastservice ,EmailAddress  FROM Contacts_export_test"

        ' Create DataAdapter
        adapter = New OleDbDataAdapter(query, connection)

        ' Create command builder to generate update commands
        commandBuilder = New OleDbCommandBuilder(adapter)

        ' Create and fill table
        table = New DataTable
        adapter.Fill(table)

        ' Bind the Table to the GridControl
        GridControl1.DataSource = table

    End Sub
  

    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
       
        Try

            ' Ensure the connection is open
            If connection.State = ConnectionState.Closed Then connection.Open()

            ' Update changes to the database
            adapter.Update(table)

            ' Close connection
            connection.Close()

            MessageBox.Show("Changes saved to the database successfully!", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception
         MessageBox.Show("Error saving changes: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub


End Class

Answer 1

Problem resolved - was down to a simple mistake - database file in project was set to Copy Always to project folder rather than Copy If Newer!