VB.NET：BindingSource与TableAdapter失效问题及DataAdapter替代方案

优先排查TableAdapter自身配置问题 #

• 检查更新命令的有效性：打开数据集设计器，查看tblPurOrdTableAdapter的Update/Insert/Delete命令。如果是VS自动生成的，大概率是因为表结构问题（比如无主键、主键字段是自动编号但配置错误）导致CommandBuilder无法生成正确的更新语句。手动核对每个命令的SQL，确保WHERE子句包含主键字段，参数和表字段一一对应。
• 确认表主键存在：Access表tblPurOrd必须设置明确的主键。没有主键的话，TableAdapter无法定位要更新的行，更新操作会静默失败。
• 匹配字段类型：数据集里的字段类型要和Access表完全一致，比如日期类型是否都是Date/DateTime，数值类型的精度、小数位数是否匹配，类型不兼容会导致更新无法生效。

改用手动控制的DataAdapter实现（仅增删改时连接数据库） #

如果自动生成的TableAdapter不稳定，可以手动实现数据更新逻辑，全程控制连接生命周期：

Private Sub SavePurOrdChanges()
    ' 确保BindingSource结束编辑状态
    tblPurOrdBindingSource.EndEdit()
    
    ' 提取数据集里的变更行
    Dim changedRows As DataTable = YourDataSet.tblPurOrd.GetChanges()
    If changedRows Is Nothing Then Exit Sub
    
    ' 用Using块自动管理连接和对象生命周期
    Using conn As New OleDbConnection(YourConnectionString)
        Dim dataAdapter As New OleDbDataAdapter("SELECT * FROM tblPurOrd", conn)
        Dim cmdBuilder As New OleDbCommandBuilder(dataAdapter)
        
        Try
            conn.Open()
            ' 仅更新有变更的行
            dataAdapter.Update(changedRows)
            ' 提交数据集里的变更，避免重复操作
            YourDataSet.tblPurOrd.AcceptChanges()
            MessageBox.Show("保存成功")
        Catch ex As Exception
            MessageBox.Show($"保存失败：{ex.Message}")
            ' 回滚变更，让用户可以重新编辑
            YourDataSet.tblPurOrd.RejectChanges()
        End Try
    End Using
End Sub

额外排查方向 #

• 优化TableAdapter的更新方式：如果继续使用VS生成的TableAdapter，不要直接调用UpdateAll，而是改用tblPurOrdTableAdapter.Update(YourDataSet.tblPurOrd.GetChanges())，只更新有变更的行，减少无效操作。
• 验证运行时连接路径：在代码里输出连接字符串对应的实际文件路径，确认确实指向了你修改的那个.accdb文件，避免因为路径拼接错误导致更新到了其他文件。
• 捕获并发异常：如果存在多用户或多进程操作该表的情况，更新时捕获DBConcurrencyException，提示用户数据已被其他操作修改，避免数据丢失。

内容的提问来源于stack exchange，提问作者Masieu Dilesiano