2 u011574786 u011574786 于 2017.01.07 22:51 提问

VB 数据库查询为Null 如何强制为其他提示语?

rs.Open "SELECT * FROM 商品库 where 商品编号 ='" & (商品编号.Text) & "'", mcon, 1, 1

If Not rs.EOF Then
商品编号 = rs.Fields("商品编号").Value & ""
商品名称 = rs.Fields("商品名称").Value & ""

Insert_show
商品编号 = ""
商品名称 = ""
Insert_show
End If

            请问,这句代码如何修改,才可以改为SQL语句查询结果为Null时,显示查无此商品?谢谢

1个回答

caozhy
caozhy   Ds   Rxr 2017.01.07 23:48
已采纳

on error goto errproc:
rs.Open "SELECT * FROM 商品库 where 商品编号 ='" & (商品编号.Text) & "'", mcon, 1, 1

If Not rs.EOF Then
商品编号 = rs.Fields("商品编号").Value & ""
商品名称 = rs.Fields("商品名称").Value & ""

Insert_show
输出纳税人名称 = ""
商品名称 = ""
Insert_show
End If
exit sub或function
errproc:
msgbox "查无此商品"
end sub/function

caozhy
caozhy 回复amd8750: 就这么写,不是给你代码了么
11 个月之前 回复
u011574786
u011574786 您好,查询结果是空,就在text显示“查无此商品”,这个刚才您给的语句中 怎么实现呢? 谢谢
11 个月之前 回复
caozhy
caozhy 回复amd8750: if 商品名称 = "" then textbox1.text = "查无此物"
11 个月之前 回复
u011574786
u011574786 回复caozhy:原来的语句查询结果是 香烟 那么 商品名称.text 就显示香烟,如果查询结果是空,那么商品名称.text也就是空,我现在想的就是 如果查询结果是空,那么商品名称.text就显示“查无此商品”谢谢您
11 个月之前 回复
caozhy
caozhy 回复amd8750: 根据你的需求啊
11 个月之前 回复
u011574786
u011574786 您好,谢谢您的回答,我的想法是不是弹出提示窗口,我本来的的数据是输出在textbox里面,原来的语句结果是“如果查询后返还值为nall,则强制为空”现在想强制为 "查无此商品",还如何修改,谢谢
11 个月之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!