VB错误提示至少一个参数没有被指定值什么原因呢？

答案:2 悬赏:20 手机版

解决时间 2021-03-06 17:45

提问者网友：精神病院里
2021-03-06 01:10

Private Sub Command1_Click()
Dim i As String
Dim sql1, sql2, sql3 As String
Dim y, w As Integer
cnn.Open
i = MsgBox("是否保存此条记录？", vbYesNo + vbOKOnly)
If i = vbYes Then
sql1 = "update tb_jcsb set 应还日期='" & DT1 & "'where (tb_jcsb.设备名称='" & Text1.Text & "' and tb_jcsb.借用人='" & Text3.Text & "' and tb_jcsb.借出日期=" & Chr(35) & Text2 & Chr(35) & " and tb_jcsb.应还日期=" & Chr(35) & DT1 & Chr(35) & ")"
sql2 = "update tb_jcsb set 借出数量='" & Text4 & "'where (tb_jcsb.设备名称='" & Text1.Text & "' and tb_jcsb.借用人='" & Text3.Text & "' and tb_jcsb.借出日期=" & Chr(35) & Text2 & Chr(35) & " and tb_jcsb.应还日期=" & Chr(35) & DT1 & Chr(35) & ")"
cnn.Execute (sql1)
cnn.Execute (sql2)
y = Val(Text4.Text)
w = z - y + x
sql3 = "update tb_cxsb set 可借数量='" & w & "'where (tb_jcsb.设备名称='" & Text1.Text & "')"
cnn.Execute (sql3) →（在这里提示至少一个参数没有被指定值）
MsgBox "保存成功！", vbInformation
End If
Adodc1.Refresh
Adodc2.Refresh
cnn.Close
End Sub
里面的x，y，z，w都定义过。在上边箭头那儿提示至少一个参数没有被指定值。求解。%>_<%

最佳答案

五星知识达人网友：爱难随人意
2021-03-06 01:56

where 前面要有空格！
语句中字段“可借数量”是文本类型吗？
如果是的话：
sql3 = "update tb_cxsb set 可借数量='" & w & "' where (tb_jcsb.设备名称='" & Text1.Text & "')"如果不是的话，不需要加单引号
sql3 = "update tb_cxsb set 可借数量=" & w & " where (tb_jcsb.设备名称='" & Text1.Text & "')"

全部回答

1楼网友：老鼠爱大米
2021-03-06 03:15

sqlstr1字符串有误，你val(text3.text)是在引号内，执行时会试图把“val(text3.text)”，'val(text10.text)', 'mark'字符串插入表，而实际上我猜你是想把text3.text、text10.text、mark内的值插入id。修改如下: sqlstr1 = "insert into 表1(id,波峰值,类别) values ( " & val(text3.text) & ", " & val(text10.text) & " , '" & mark & "')" 注：ms sql server的sql语句中对数值型数据的引用无需用单引号，如果是文本型的则需要加单引号。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息