Private Sub txtpb_Validate(Cancel As Boolean)
rstcnn4.MoveFirst
Dim pb01 As Double
Dim pb02 As Double
Dim intbzxl As Integer
Dim i As Integer
pb01 = CDbl(rstcnn4!bzpb)
pb02 = CDbl(txtpb.Text)
cnn1.Execute "update tmpbzsj0 set bzmin = bzmin*pb01/pb02" '执行到这儿,出现错误提示。
End Sub
为什么一执行到update ... set ...这个语句就出现“至少一个参数没有被指定值”错误提示?
数据库为acess2000格式。我的tmpbzsj0表中确有bzmin这个字段存在,并且我的表tmpbzsj0中的字段bzmin为double类型.我的目的是将表tmpbzsj0中的bzmin字段的所有纪录都进行bzmin=bzmin*pb01/pb02这种运算,并将得到的bzmin值替换原来的bzmin值。另外参与运算的所有纪录的bzmin都有有效值,没有空值出现,pb01与pb02也都有有效值。怎么还报这样的错!!原因何在?
rstcnn4.MoveFirst
Dim pb01 As Double
Dim pb02 As Double
Dim intbzxl As Integer
Dim i As Integer
pb01 = CDbl(rstcnn4!bzpb)
pb02 = CDbl(txtpb.Text)
cnn1.Execute "update tmpbzsj0 set bzmin = bzmin*pb01/pb02" '执行到这儿,出现错误提示。
End Sub
为什么一执行到update ... set ...这个语句就出现“至少一个参数没有被指定值”错误提示?
数据库为acess2000格式。我的tmpbzsj0表中确有bzmin这个字段存在,并且我的表tmpbzsj0中的字段bzmin为double类型.我的目的是将表tmpbzsj0中的bzmin字段的所有纪录都进行bzmin=bzmin*pb01/pb02这种运算,并将得到的bzmin值替换原来的bzmin值。另外参与运算的所有纪录的bzmin都有有效值,没有空值出现,pb01与pb02也都有有效值。怎么还报这样的错!!原因何在?
解决方案 »
- 请问计算机并口能否驱动继电器?
- N多重循环怎么写简练
- 关于Listview1 读取本地文件
- 无法注册OCX问题。
- 大家好,我VB很菜(很垃圾),有事相求,如果顶的详细马上结贴!谢大家啦!
- 请问如何在水晶报表9中指定使用某台打印机打印?
- 狂送100分(12)
- 叩首求教高人:怎样用vb实现新建:文件夹及快捷方式
- 非常急!多人同时插入数据时,如何防止死锁。用什么锁类型。★★★★★
- 用DataBase.TableDefs.Delete "tablename"能否删除有记录的表,我试了几次,都不行!
- 调用EXCEL打印时如何动态设网格?
- Vb6.0如何访问Access2000数据库,我用Ado直接联到数据库上,不用ODBC
cnn1.Execute "update tmpbzsj0 set bzmin = bzmin*" & cstr(pb01/pb02)
minajo21(大眼睛)的是错的。
update tmpbzsj0 set bzmin = bzmin*pb01/pb02
pb01、pb02是你的程序定义的变量,数据库引擎不知道他们是什么东西
dim sSQL as string
ssql= "update tmpbzsj0 set bzmin = bzmin*" & cstr(pb01/pb02)
msgbox ssql
cnn1.Execute ssql这下应该清楚了吧,
如果写成"update tmpbzsj0 set bzmin = bzmin*pb01/pb02"
ADO则认为bzmin、pb01、pb02都是tmpbzsj0表中的字段,而实际上表中没有pb01和pb02这两个字段,所以就出现“至少一个参数没有被指定值”这样的提示。