Excel VBA中的SQL UPDATE語句不起作用（不匹配錯誤）

Question

當我嘗試使用下面的代碼時，我收到錯誤消息“標准表達式中的數據類型不匹配”。

Call Connect_to_db
strSQL = "UPDATE StockTable " & _
         "SET [Selected] = '" & Sheets("InfoStockDes").Range("e" & x) & "' " & _
         "WHERE [OwnerName] = '" & Sheets("InfoStockDes").Range("a" & x) & "' " & _
         "AND [OwnerShipMethod] = '" & Sheets("InfoStockDes").Range("b" & x) & "' " & _
         "AND [StockName] = '" & Sheets("InfoStockDes").Range("c" & x) & "' " & _
         "AND [Quantity] = '" & Sheets("InfoStockDes").Range("d" & x) & "' "
         Debug.Print strSQL
cn.Execute strSQL
Call Close_db

Answer 1

好吧，從我之前的答案中刪除了兩個'，我不會把那里的數據了解得更多：)

我想這是應該的工作:)

Call Connect_to_db
strSQL = "UPDATE StockTable " & _
     "SET [Selected] = '" & Sheets("InfoStockDes").Range("e" & x) & "' " & _
     "WHERE [OwnerName] = '" & Sheets("InfoStockDes").Range("a" & x) & "' " & _
     "AND [OwnerShipMethod] = '" & Sheets("InfoStockDes").Range("b" & x) & "' " & _
     "AND [StockName] = '" & Sheets("InfoStockDes").Range("c" & x) & "' " & _
     "AND [Quantity] = " & Sheets("InfoStockDes").Range("d" & x) 
Debug.Print strSQL
cn.Execute strSQL
Call Close_db