VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1074|回复: 6

[讨论] 请问如何判断SQL语句值是否为空

[复制链接]
发表于 2019-4-22 16:45:43 | 显示全部楼层 |阅读模式
If InStr(1, Text2.Text, "%", vbTextCompare) > 0 Then
ic = "select 内码,品名,成份名,药品类别,规格,配伍禁忌 from 电子审方 where 简拼 Like '%" & Trim(Text2.Text) & "%'"
Else
ic = "select 内码,品名,成份名,药品类别,规格,配伍禁忌 from 电子审方 where 简拼 = '" & Trim(Text2.Text) & " '"
End If
Form2.Adodc1.RecordSource = ic

MsgBox "无货!"
Else
Set Form2.DataGrid1.DataSource = Form2.Adodc1
Form1.Hide
Form2.Show
End If
End Sub
End Sub

目的:IC没有结果时,提示无货,有结果时form2.show
发表于 2019-4-23 08:13:49 | 显示全部楼层
只要判断有没有记录,
记录数=0或大于0
或者用eof判断
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-8-22 04:14

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表