vb 高级查询access

来源：百度知道 编辑：UC知道 时间：2024/06/07 13:26:09
代码如下
Private Sub Command1_Click()
If Text2.Text = "" And Text3.Text = "" And Text4.Text = "" And Text5.Text <> "" Then
SQL = "select * from zjpp where gh like '%" & Text1.Text & "%'"
rs.Open SQL, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End If
End Sub
第一个问题：单击搜索后没有反应，我想弄成如果在text1输入关键字后，当text2\3\4\5都没有输入关键字时，搜索text1输入的关键字。
第二个问题：如果text1和2输入关键字后，text3\4\5没有输入，搜索1和2的关键字，分别在两个不同的字段里搜索，如1在a字段搜索，2在b字段搜索，然后本条数据如果符合1和2的关键字，则显示出来。
本人新手多多见谅=。=，希望可以详细点回答，好的可以加分。

第一，按你的条件text5.text<>""应该改成text5.text=""。
第二，如果要两个功能都实现的话你的代码改成以下代码比较好
Private Sub Command1_Click()
If Text3.Text = "" And Text4.Text = "" And Text5.Text <> "" Then
if text2.text="" then
SQL = "select * from zjpp where gh like '%" & Text1.Text & "%'"
else
SQL = "select * from zjpp where gh like '%" & Text1.Text & "%' and b like '%" & text2.text & "%'"
End If
end if
rs.Open SQL, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub