VBA中SQL UPDATE的運行時錯誤

Question

我正在嘗試編寫一些代碼，如果該項目已經存在，它將更新一行。 看起來像這樣：

updateStr = "UPDATE platinum_paste SET ([aluminium], [calcium], [chrome], [iron], [lead], [silicon], [zirconium]) VALUES (" & aluminium & "," & _
                                                                                                                              calcium & "," & _
                                                                                                                              chrome & "," & _
                                                                                                                              iron & "," & _
                                                                                                                              lead & "," & _
                                                                                                                              silicon & "," & _
                                                                                                                              zirconium & _
                                                                                                                              ") WHERE [lot_number] = " & lotNumber

Debug.Print updateStr

If MsgBox("Item already exists. Do you want to update its details?", vbYesNo) = vbYes Then
            objMyConn.Execute updateStr, dbFailOnError

Else
            'Do nothing

End If

當我嘗試運行它時，在MsgBox中單擊“是”將導致錯誤：

運行時錯誤'-2147217900（80040e14）'：

自動化錯誤

誰能告訴我我在做什么錯？我試圖添加所有我能想到的調試功能。 數據庫連接對於SELECT和INSERT 。 這是我的INSERT字符串，可以正常工作：

insertStr = "INSERT INTO platinum_paste ([lot_number], [aluminium], [calcium], [chrome], [iron], [lead], [silicon], [zirconium]) VALUES (" & lotNumber & "," & _
                                                                                                                                                 aluminium & "," & _
                                                                                                                                                 calcium & "," & _
                                                                                                                                                 chrome & "," & _
                                                                                                                                                 iron & "," & _
                                                                                                                                                 lead & "," & _
                                                                                                                                                 silicon & "," & _
                                                                                                                                                 zirconium & ")"

Answer 1

您的UPDATE -String的語法錯誤。 你需要寫

 UPDATE table_name
 SET column1=value1,column2=value2,...
 WHERE some_column=some_value;

有關更多信息，請訪問http://www.w3schools.com/sql/sql_update.asp