记录修改的问题

[one]

Case "xiugai"

sSql = "update 图书 set 图书编号='" & Text1.Text & " ',条码号='" & Text2.Text & " ',索取号='" & Text3.Text & " ',书名='" & Text4.Text & " ',柜号='" & Text5.Text & " ',层号='" & Text6.Text & " ',作者='" & Text7.Text & " ',出版社='" & Text8.Text & " ',出版日期='" & Text9.Text & " ',页数='" & Text10.Text & " ',ISBN='" & Text11.Text & " ',图书类别='" & Text12.Text & " ',入库日期='" & Text13.Text & " ',状态='" & Text14.Text & " ',价格='" & Text5.Text & " ',借出次数='" & Text16.Text & " ',简介='" & Text16.Text & " ' where 图书编号='" & Text1.Text & " '"

[of123]

sSql = "update 图书 set 条码号='" & Text2.Text & "',索取号='" & Text3.Text & "',书名='" & Text4.Text & "',柜号='" & Text5.Text & "',层号='" & Text6.Text & "',作者='" & Text7.Text & "',出版社='" & Text8.Text & "',出版日期='" & Text9.Text & "',页数='" & Text10.Text & "',ISBN='" & Text11.Text & "',图书类别='" & Text12.Text & "',入库日期='" & Text13.Text & "',状态='" & Text14.Text & "',价格='" & Text15.Text & "',借出次数='" & Text16.Text & "',简介='" & Text17.Text & "' where 图书编号='" & Text1.Text & "'"

[vansoft]

最煩的就是這種寫法。

sSql = "update 图书 set 条码号=？,索取号=？,书名=？,柜号=？,层号=？,作者=？,出版社=？,出版日期=？,页数=？,ISBN=？,图书类别=？,入库日期=？,状态=？,价格=？,借出次数=？,简介=？ where 图书编号=？"

然後用ADO的command對象來做。
把每個？號的值傳進去。

[frankwong]

晕就一个字,