VB用MSHFlexgrid更新Access数据库

luffy9202 学生  2015-11-15 06:58:23
Access数据库中有一个“产品资料”表,其中有字段“产品编码”,“库存”,当进货的时候用MSHFlexgrid输入产品信息,然后更新“产品资料”里的库存。代码如下。
conn.Execute "update 产品资料 set 库存 = val(产品资料.库存)+val(MS1.TextMatrix(j,4)) where 产品编码 = '" & MS1.TextMatrix(j, 1) & "'"
运行时提示有错,是val(产品资料.库存)+val(MS1.TextMatrix(j,4))这句有错,不知道怎么改。。。

请大家帮忙看看是哪里的问题啊。谢啦~
...全文
299 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
luffy9202 2015-12-02
回楼上 我也不造啊 结贴了哈 不能回了
回复
lfshf 2015-11-18
Debug.Print "update 产品资料 set 库存 = val(产品资料.库存)+val(MS1.TextMatrix(j,4)) where 产品编码 = '" & MS1.TextMatrix(j, 1) & "'" 把这句的运行结果贴出来看看?估计 产品编码 = ‘1’ 这里不需要引号 产品编码 =1
回复
luffy9202 2015-11-18
引用 2 楼 lfshf 的回复:
Debug.Print "update 产品资料 set 库存 = val(产品资料.库存)+val(MS1.TextMatrix(j,4)) where 产品编码 = '" & MS1.TextMatrix(j, 1) & "'" 把这句的运行结果贴出来看看?估计 产品编码 = ‘1’ 这里不需要引号 产品编码 =1
谢谢二楼回复 找到问题了,是set后边这句,改成set 库存 = 产品资料.库存+" & MS1.TextMatrix(j, 4) & " 就好了。。。可这样明明是文本格式啊。。。我也不知道咋回事。。。
回复
qq_32853953 2015-11-18
下载资料还要积分,怎么得积分啊?
回复
luffy9202 2015-11-18
引用 3 楼 luffy9202 的回复:
[quote=引用 2 楼 lfshf 的回复:] Debug.Print "update 产品资料 set 库存 = val(产品资料.库存)+val(MS1.TextMatrix(j,4)) where 产品编码 = '" & MS1.TextMatrix(j, 1) & "'" 把这句的运行结果贴出来看看?估计 产品编码 = ‘1’ 这里不需要引号 产品编码 =1
谢谢二楼回复 找到问题了,是set后边这句,改成set 库存 = 产品资料.库存+" & MS1.TextMatrix(j, 4) & " 就好了。。。可这样明明是文本格式啊。。。我也不知道咋回事。。。[/quote] 啊啊啊啊 这样的话如果库存为空又不行了!!!快来人呀!
回复
luffy9202 2015-11-17
没有人回答我!!!快来个大神吧!!!
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2015-11-15 06:58
社区公告
暂无公告