vb.net – Access数据库无法正确保存十进制值

Dim price as Decimal
ProductsTableAdapter.Insert(id,name,price)

Dim price2 As String
price2 = price.ToString.Replace(",",".")
ProductTableAdapter.Insert(id,price2)

我已经能够重现这个问题.在Windows系统区域设置不使用句点字符(.)作为小数符号的计算机上运行时,它似乎是Access OLEDB提供程序的“不幸功能”.

使用以下代码

Dim price As Decimal = Convert.ToDecimal("8,7")
Dim sb As New System.Text.StringBuilder("""price"" is a ")
sb.Append(price.GetType.FullName)
sb.Append(" whose value is ")
If price < 1 Or price > 10 Then
    sb.Append("NOT ")
End If
sb.Append("between 1 and 10.")
Debug.Print(sb.ToString)

ProductsTableAdapter.Insert("myProduct",price)

当我运行Windows设置为“英语(美国)”时,我看到调试输出

"price" is a System.Decimal whose value is NOT between 1 and 10.

并且值87被插入到数据库中,因为字符串“8,7”不是该语言环境中的有效小数.

Windows设置为“西班牙语(西班牙)”,现在生成相同的代码

"price" is a System.Decimal whose value is between 1 and 10.

但值87仍然插入.

将Windows设置为“French(Canada)”时,调试输出是相同的

"price" is a System.Decimal whose value is between 1 and 10.

但是,插入失败,“条件表达式中的数据类型不匹配”.

通过替换实现了完全相同的结果

ProductsTableAdapter.Insert("myProduct",price)

同

Dim myConnStr As String
myConnStr =
        "Provider=Microsoft.ACE.OLEDB.12.0;" &
        "Data Source=C:UsersPublicDatabase1.accdb"
Using con As New OleDbConnection(myConnStr)
    con.Open()
    Using cmd As New OleDbCommand("INSERT INTO Products ([name],price) VALUES (?,?)",con)
        cmd.Parameters.AddWithValue("?","oledbTest")
        cmd.Parameters.AddWithValue("?",price)
        cmd.ExecuteNonQuery()
    End Using
End Using

证明这是System.Data.OleDb和Access OLEDB提供程序之间的问题,而不仅仅是TableAdapter的特性.但是,TableAdapters似乎完全依赖于OleDb,所以不幸的是它们可能在这些条件下无法工作.

好消息是,简单地将OleDb代码转换为Odbc似乎解决了“西班牙语(西班牙)”和“法语(加拿大)”Windows语言环境的问题

Dim myConnStr As String
myConnStr =
        "Driver={Microsoft Access Driver (*.mdb,*.accdb)};" &
        "DBQ=C:UsersPublicDatabase1.accdb"
Using con As New OdbcConnection(myConnStr)
    con.Open()
    Using cmd As New OdbcCommand("INSERT INTO Products ([name],"odbcTest")
        cmd.Parameters.AddWithValue("?",price)
        cmd.ExecuteNonQuery()
    End Using
End Using

所以一种可能的解决方法可能是使用OdbcDataAdapter而不是TableAdapter.