SQL 表更新有效，但仅从一行中获取值

Question

我正在创建一个自动文件以在单击按钮时更新 CurrencyTable (dB) 中的货币汇率。我参考了this post 中的示例。 我的Excel数据如下：

CsName    Rate
AUD       1.23
BHD       2.23
BND       3.23
EUR       4.23
IDR       5.23
INR       6.23
MYR       7.23
OMR       8.23
SGD       9.23
THB       10.23
USD       11.23

代码似乎工作正常，但它没有根据 Excel 数据进行更新，相反，它只取了所有内容的第 4 行值。 Here are the updated result.

以下是我的代码：

Sub UpdateCR()

Dim con As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim i As Long
Dim vDB As Variant
Dim Ws As Worksheet

con.ConnectionString = "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=False;User ID=Guest;Initial Catalog=ABC;Data Source=XYZ"
con.Open

Set cmd.ActiveConnection = con
Set Ws = ActiveSheet

vDB = Ws.Range("a1").CurrentRegion

For i = 2 To UBound(vDB, 1)
    cmd.CommandText = "UPDATE CurrencyTable SET Rate='" & vDB(i, 2) & "' WHERE CsName ='" & vDB(i, 1) & "' "
    cmd.Execute
Next i

con.Close


MsgBox "Exchange rates successfully updated"

Set con = Nothing

End Sub

有人知道为什么会这样吗？和UBound函数有关系吗？

对此的任何帮助将不胜感激！

Answer 1

您要更新的表中的所有 CSName 是否正确？它们是否都从其他东西设置为欧元，也许编码这个。可能听起来很明显，但以防万一:)

Answer 2

首先这不是答案，我在这里发帖解释 排除故障，因为 cmets 无济于事。

我所说的是打印另一列中正在执行的字符串。 例如： 试试这个后，能否请您显示第 3 列中的图像？

    Sub UpdateCR()

    Dim con As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim i As Long
    Dim vDB As Variant
    Dim Ws As Worksheet
    
    con.ConnectionString = "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=False;User ID=Guest;Initial Catalog=ABC;Data Source=XYZ"
    con.Open
    
    Set cmd.ActiveConnection = con
    Set Ws = ActiveSheet
    
    vDB = Ws.Range("a1").CurrentRegion
    
    For i = 2 To UBound(vDB, 1)
        cmd.CommandText = "UPDATE CurrencyTable SET Rate='" & vDB(i, 2) & "' WHERE CsName ='" & vDB(i, 1) & "' "
        cmd.Execute
        Cells(i, 3) = "UPDATE CurrencyTable SET Rate='" & vDB(i, 2) & "' WHERE CsName ='" & vDB(i, 1) & "' "
    Next i
    
    con.Close
    
    
    MsgBox "Exchange rates successfully updated"
    
    Set con = Nothing

End Sub

对我来说，结果如下所示，你也一样吗？