为什么更新不了

Question

我连着用两条语句，第二个怎么不好使？
txtsql = "insert into BHD (BHD_sl) values ( '" & quantity & " ')"
cnn.Execute txtsql
remain=sl-quantity
txtsql1 = "update CK set CK_sl='" & remain & " 'where CK_bh=' " & cpid & " 'and CK_ckbh='" & ckid & " '"
cnn.Execute txtsql1
其中bhd和ck是两个表，我先插入bhd后再对ck进行更新，为何更新在数据库中没有反映？

Answer 1

txtsql1 = "update CK set CK_sl=" & remain & " where CK_bh=' " & cpid & " 'and CK_ckbh='" & ckid & " '"'remain引用时无需单引号

Answer 2

txtsql1 = "update CK set CK_sl=sl - " & qiantity & " where CK_bh=' " & cpid & " ' and CK_ckbh='" & ckid & " '"