Question

VB代码错误

SQL = "Insert Into [kcb](纱号,原有数量,入库,出库,储位,结存,批号,单价,金额,备注) Values(sh,0,rk,ck,cw,rk-ck,ph,42,(rk-ck)*42,bz)"
cn.Execute SQL
提示：实时错误‘-2147217904 (80040e10)'
至少有一个参数没有被告指定值

请问，怎么改？

Answer 1

SQL = "Insert Into [kcb] (纱号,原有数量,入库,出库,储位,结存,批号,单价,金额,备注) Values(" & sh & ",0," & rk & "," & ck & "," & cw & "," & rk-ck & "," & ph & ",42," & (rk-ck)*42 & ",'" & bz & "')"

另外，纱号,原有数量,入库,出库,储位,结存,批号,单价,金额这几个字段都是数值型的吗？如果有字符型的，那么以上代码还要改

追问

这些数据我都是用TEXT框控件输入的

追答

跟Text控件无关的，关键看数据库里面的设置。关键是 纱号和批号 这两个，其他的应该都是数值型的。

追问

数值型：原有数量，入库，出库，结存
字符型：纱号，储位，批号，备注
货币型：单价，金额

追答

SQL = "Insert Into [kcb] (纱号,原有数量,入库,出库,储位,结存,批号,单价,金额,备注) Values('" & sh & "',0," & rk & "," & ck & ",'" & cw & "'," & rk-ck & ",'" & ph & "',42," & (rk-ck)*42 & ",'" & bz & "')"

Answer 2

你变量引用的不对
楼上说的对