amd8750 2017-01-07 14:51 采纳率: 50%
浏览 1475
已采纳

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条回答

  • threenewbee 2017-01-07 15: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

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 spring后端vue前端
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥65 汇编语言除法溢出问题
  • ¥15 Visual Studio问题