GridControl修改内容无法写入Access数据库问题排查求助

使用DevExpress GridControl（或标准DataGridView）从Access数据库加载数据正常，但执行adapter.Update(table)无报错却无法将修改保存回数据库，核心原因及解决方法如下：

1. 查询语句未包含主键列（最常见原因） #

OleDbCommandBuilder必须依赖表的主键才能生成有效的UPDATE/DELETE命令。如果你的SELECT语句没有包含主键列，CommandBuilder无法生成正确的更新逻辑，导致Update操作看似执行但实际无变更写入数据库。

解决：修改查询语句，加入表的主键列（假设你的Contacts_export_test表主键为ContactID）：

Dim query As String = "SELECT ContactID, FileAs, Dateoflastvisit, Dateoflastservice ,EmailAddress  FROM Contacts_export_test"

同时确认数据库表Contacts_export_test已设置主键（这是CommandBuilder正常工作的前提）。

2. 数据库路径错误，更新了其他文件 #

你的连接字符串使用相对路径\.\test_databases\Database1.accdb，程序运行时的工作目录可能和你预期的不一致（比如WinForms Debug模式下程序在bin\Debug目录运行），导致实际修改的是另一个位置的数据库文件，而你查看的是原始文件。

解决：使用程序启动目录构建绝对路径：

Dim dbPath As String = Path.Combine(Application.StartupPath, "test_databases\Database1.accdb")
connectionString = $"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={dbPath};Persist Security Info=False;"

确保test_databases文件夹位于程序运行目录下（比如bin\Debug）。

3. 网格编辑状态未提交到DataTable #

如果网格处于编辑状态，修改可能还没同步到绑定的DataTable，导致Update时没有可提交的变更。

解决：保存前强制结束网格编辑并提交当前行：

GridControl1.CloseEditor()
GridView1.UpdateCurrentRow()

4. 手动管理连接导致异常 #

OleDbDataAdapter的Fill和Update方法会自动处理连接的打开与关闭（如果连接原本是关闭的），手动打开连接反而可能引发未知问题。

解决：删除保存代码中手动打开/关闭连接的逻辑，让DataAdapter自行处理。

5. 验证CommandBuilder是否生成有效命令 #

可以在初始化时检查adapter的UpdateCommand是否生成，确认CommandBuilder工作正常：

commandBuilder = New OleDbCommandBuilder(adapter)
If adapter.UpdateCommand Is Nothing Then
    MessageBox.Show("无法生成更新命令，请检查表是否有主键且查询包含主键列")
End If

完整修改代码 #

Imports System.Data.OleDb
Imports System.IO

Public Class Form1
  
    Dim connectionString As String
    Dim adapter As OleDbDataAdapter
    Dim table As DataTable
    Dim commandBuilder As OleDbCommandBuilder

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 构建正确的数据库路径
        Dim dbPath As String = Path.Combine(Application.StartupPath, "test_databases\Database1.accdb")
        connectionString = $"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={dbPath};Persist Security Info=False;"

        ' 包含主键列的查询语句
        Dim query As String = "SELECT ContactID, FileAs, Dateoflastvisit, Dateoflastservice ,EmailAddress  FROM Contacts_export_test"

        adapter = New OleDbDataAdapter(query, connectionString)
        commandBuilder = New OleDbCommandBuilder(adapter)

        ' 验证更新命令是否生成
        If adapter.UpdateCommand Is Nothing Then
            MessageBox.Show("无法生成更新命令，请确保表已设置主键且查询包含主键列")
        End If

        table = New DataTable
        adapter.Fill(table)

        GridControl1.DataSource = table
    End Sub
  

    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
        Try
            ' 结束编辑，同步变更到DataTable
            GridControl1.CloseEditor()
            GridView1.UpdateCurrentRow()

            Dim rowsUpdated As Integer = adapter.Update(table)
            
            If rowsUpdated = 0 Then
                MessageBox.Show("没有检测到需要更新的行，请检查数据是否修改或主键是否正确", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show($"成功更新 {rowsUpdated} 行数据！", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

        Catch ex As Exception
            MessageBox.Show("保存变更出错: " & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class

内容的提问来源于stack exchange，提问作者Darren Rose