Excel-VBA SQL UPDATE错误“没有给出一个或多个必需参数的值”

Question

我正在尝试将NUM_ID更新为1，其中NUM_ID为4。

我的表看起来像这个范围A1：A6

NUM_ID 1 1 4 2 2

Excel在下面的代码中返回错误“没有给出一个或多个必需参数的值”。

---

Sub Update()

  Dim strNUM_ID As Double
  Dim strSQL As String
  Dim cnn As ADODB.Connection

  strNUM_ID = 1

  strSQL = "UPDATE [Sheet1$] " & _
         "SET [NUM_ID] = strNUM_ID " & _
         "WHERE [NUM_ID] = 4;"

  Debug.Print strSQL

  Set cnn = New ADODB.Connection
  With cnn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=C:\Temp" & _
        "Test.xlsm;" & _
      "Extended Properties=Excel 12.0;"
    .Open
    .Execute strSQL, DbFailOnError
  End With

  cnn.Close
  Set cnn = Nothing

End Sub

---

使用Excel 2010

Answer 1

更改以下行

strSQL = "UPDATE [Sheet1$] " & _
         "SET [NUM_ID] = strNUM_ID " & _
         "WHERE [NUM_ID] = 4;"

至

strSQL = "UPDATE [Sheet1$] " & _
         "SET [NUM_ID] = " & strNUM_ID & " " & _
         "WHERE [NUM_ID] = 4;"