如何在查询中忽略空文本框的内容

mi6236 mi6236 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
Private Sub cmdfind_Click()
Dim sql As String
sql = "select * from articlebook where aid=" & Val(Text1.Text) & " and Title ='" & Trim(Text2.Text) & "'and author = '" & Trim(Text3) & "' and atype='" & Trim(Text4.Text) & "' and afrom='" & Trim(Text5.Text) & "'"
rs.Open sql, str
If rs.EOF = True Then
MsgBox "对不起此处没有你要找的信息", vbOKOnly, "警告"
End If
rs.Close
End Sub
每个文本框中的内容为查询条件(每个文本框对应数据库中的一个字段)组合查询
问题:当有文本框为空时查询结果为空,怎样才能忽略空的文本框,程序该怎样写
...全文
评论 7
收藏 已收藏
分享
返回顶部
mi6236
VB基础类 7,788 成员 197,583 内容