Question

vb sql 如何实现多条件查询（各位大侠帮忙！）

这是代码，但是实现不了。
我在页面上放了一些组合框和文本框，希望随机输入条件能实现查询。
Dim sql As String

sql = "select * from 被盗车辆信息表 where 1=1 "
If Combo1.Text <> "" Then
sql = sql + "and 车辆类型 like '%" + Combo1.Text + "%'"
End If
If Combo2.Text <> "" Then
sql = sql + "and 性别 like '%" + Combo2.Text + "%'"
End If
If Text1.Text <> "" Then
sql = sql + "and 品牌 like '%" + Text1.Text + "%'"
End If
If Text2.Text <> "" Then
sql = sql + "and 颜色 like '%" + Text2.Text + "%'"
End If
If Text3.Text <> "" Then
sql = sql + "and 牌照号 like '%" + Text3.Text + "%'"
End If
If Text4.Text <> "" Then
sql = sql + "and 发动机号 like '%" + Text4.Text + "%'"
End If
If Text5.Text <> "" Then
sql = sql + "and 车驾号 like '%" + Text5.Text + "%'"
End If
If Text6.Text <> "" Then
sql = sql + "and 被盗时间 like '%" + Text6.Text + "%'"
End If
If Text7.Text <> "" Then
sql = sql + "and 被盗地点 like '%" + Text7.Text + "%'"
End If
If Text8.Text <> "" Then
sql = sql + "and 价值 like '%" + Text8.Text + "%'"
End If
If Text9.Text <> "" Then
sql = sql + "and 车主姓名 like '%" + Text9.Text + "%'"
End If

If Text10.Text <> "" Then
sql = sql + "and 年龄 like '%" + Text10.Text + "%'"
End If
If Text11.Text <> "" Then
sql = sql + "and 联系电话 like '%" + Text11.Text + "%'"
End If

If Text12.Text <> "" Then
sql = sql + "and 家庭住址 like '%" + Text12.Text + "%'"
End If
If Text13.Text <> "" Then
sql = sql + "and 年龄 like '%" + Text13.Text + "%'"
End If

Adodc1.CommandType = adCmdTable
'Adodc1.RecordSource = "select * from 被盗车辆信息表 where 车辆类型,品牌,颜色,牌照号,发动机号,车驾号,被盗时间,被盗地点,价值,车主姓名,性别,年龄,联系电话,家庭住址,工作单位"
Adodc1.RecordSource = sql
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "没有找到你要的相关记录", vbOKOnly + vbInformation, "信息检索"
End If

Answer 1

空格问题..
其实你在查询之前,先把sql 输出来自己看一下对不对,这样稳妥点.

Answer 2

<>是不等号。。。
lz你最好在每个and前面加个空格

Answer 3

感谢楼下的教我.........