Question

我有這樣的代碼更新與SQL數據庫，但它不工作

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

Answer 1

這是你的代碼發佈，但隨後一些額外的換行，並概述。也許你現在可以更好地發現明顯的錯誤？

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

在這個版本我已​​經改變了額外的WHERE子句AND，我haev增加了一些明顯缺失的「和‘

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

我想這shoudl更好地工作，媒體鏈接，如果它不’ t請告訴我們什麼不能正常工作，什麼錯誤信息，如果有的話，你得到的，和請在執行之前顯示strSQL的實際內容。在一個簡單的SQL語句中，但可能存在錯誤，所以請仔細閱讀，並在必要時發佈給我們看看:)