使用 excel 单元格值更新数据库中的条目 - 类型不匹配

Question

我正在尝试使用 Excel 单元格中的数字更新 SQL 数据库中的条目。

当我尝试发送的数字没有小数部分时，代码可以正常工作，但如果数字有小数部分，宏会返回类型不匹配错误。

DB字段的类型是：(float, null)。 excel中的单元格格式为“常规”。格式化为“数字”会得到相同的结果。

我已经尝试过 Range("C2").Value，但结果是一样的。 我应该如何从单元格中读取值以将其正确发送到数据库？

Sub Send2DB()

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sConnString As String
    Dim strResult As String

    ' Connection string.
    sConnString = .......

    ' Connection and Recordset 
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    ' Open connection
    conn.Open sConnString

    ' Read Cell
    Set rs = conn.Execute("UPDATE dbo.TABLE_A SET m_value = '" + Range("C2").Text + "' FROM TABLE_B AS b INNER JOIN TABLE_C AS c ON c.tc_id=b.tb_id WHERE c.ref_value LIKE '" + ActiveSheet.Name + "%'")

Answer 1

这可能是由小数分隔符引起的。 SQL Server 需要 '.'作为十进制分隔符，因此请尝试将分隔符（例如“，”）替换为“。”

update = "UPDATE dbo.TABLE_A SET m_value = " & VBA.Strings.Replace(Range("C2").Value, ",", ".")

Set rs = conn.Execute(update)

此代码将在 SQL Server 上作为 SQL 执行：

UPDATE dbo.TABLE_A SET m_value = 8.8