Question

VB Access实时错误'-2147217904':至少有一个参数没有指定值

部分代码如下：
If rs!编号 = Val(Text4.Text) Then
y = rs!recordnum
cnn.Execute "update wzdz set recordnum=recordnum-1 where recordnum > y" 注：这边用y不行，要改为" & Val(y) & "，但是access数据库y我设置的是整形，为啥还用val转为数字
rs.Delete
rs.Close
cnn.Close
MsgBox ("删除记录成功！")
Adodc1.Refresh

Answer 1

cnn.Execute "update wzdz set recordnum=recordnum-1 where recordnum > " & y

因为通过 Execute 方法提交的SQL语句是字符串，不需要用Val函数。