u011574786
amd8750
采纳率50%
2017-01-07 14: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 从今以后生命中的每一秒都属于我爱的人 4年前

    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

    点赞 评论 复制链接分享

相关推荐