Visual Basic 2010通过数据集更新Access mdb出现精度丢失问题

成因 #

• 核心问题是Visual Studio 2010自动生成的TableAdapter存在类型映射bug：针对Access MDB的Double字段生成插入、更新命令时，会错误将对应参数的OleDbType设置为Single（单精度浮点数）。单精度浮点数仅支持6~7位有效数字，你的测试数值为9位有效数字，超出了单精度的精度上限，自然会出现截断误差，和你遇到的误差表现完全吻合。
• 次要排查点：DataGridView对应列未显式设置ValueType为Double，输入数据时隐式转换为低精度类型后再写入DataSet，也会引发精度丢失。

解决方法 #

• 修正TableAdapter参数类型 #

  打开DataSet设计器，选中对应TableAdapter右键点击「配置」，进入命令编辑界面，分别找到插入、更新命令中对应数值字段的参数，将OleDbType修改为Double、DbType同步修改为Double，保存配置即可解决绝大多数此类问题。

• 手动编写TableAdapter的更新命令 #

  关闭TableAdapter的自动生成命令选项，手动编写SQL语句并指定参数类型，避免自动映射的bug，示例代码如下：

  ' 手动定义TableAdapter的Update命令
  Dim updateCmd As New OleDb.OleDbCommand("UPDATE 你的表名 SET 数值字段名 = @val WHERE 主键字段名 = @id", yourOleDbConnection)
  updateCmd.Parameters.Add("@val", OleDb.OleDbType.Double).SourceColumn = "DataSet中对应数值字段名"
  updateCmd.Parameters.Add("@id", OleDb.OleDbType.Integer).SourceColumn = "DataSet中对应主键字段名"
  yourTableAdapter.Adapter.UpdateCommand = updateCmd
  

• 修正DataGridView绑定配置 #

  选中DataGridView中对应数值列，将其ValueType属性设置为GetType(Double)，避免控件输入时自动做低精度类型转换。

• 提交前显式转换类型 #

  在调用TableAdapter.Update()方法前，添加校验逻辑，确保写入DataSet的数值为Double类型：

  For Each row As DataRow In yourDataSet.你的表名.GetChanges(DataRowState.Modified Or DataRowState.Added).Rows
      row("数值字段名") = Convert.ToDouble(row("数值字段名"))
  Next
  

内容的提问来源于stack exchange，提问作者Michael LivingInfo