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;"