[英]Run-time error on SQL UPDATE in VBA
我正在尝试编写一些代码,如果该项目已经存在,它将更新一行。 看起来像这样:
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 & ")"
您的UPDATE
-String的语法错误。 你需要写
UPDATE table_name
SET column1=value1,column2=value2,...
WHERE some_column=some_value;
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.