VB中如何实现按条件查找？

怎么样实现VB 的多条件查询 急！！！在线等。。。。~

其实不用多条一条查询语句就够了，就是采用判断你输入的条件有几个，动态的位sql 语句设置查询的参数。就像楼上说的，用if判断，如过你传递过来的参数有两个就把那两个设置为sql语句的查询值。
dim objSql As New StringBuilder
objSql.Append(vbCrLf & "SELECT ")
objSql.Append(vbCrLf & "A, ") '
objSql.Append(vbCrLf & "B, ") '
objSql.Append(vbCrLf & "FROM ")
objSql.Append(vbCrLf & TAVLE001")
objSql.Append(vbCrLf & "WHERE ")
‘动态添加查询的值 ，
If frm001.text "" Then
objSql.Append(vbCrLf & " C = '" & frm001.text & "' ")
End If

If frm002.text "________" Then
objSql.Append(vbCrLf & "AND D = '" & frm002.text & "' ")
End If

'......

dim sql as String = objSql.ToString

还有一种方法就是事物。不过不推荐查询时使用。
Dim flag As Integer
Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
Dim sql4 As String
Dim sql As String
sql = ""
sql1 = ""
sql2 = "
sql3 = ""
sql4 = ""
sql5 = ""
On Error GoTo UpdateErr:

flag = con.BeginTrans
执行多条sql语句。
con.Execute sql
' con.Execute sql2
' con.Execute sql3
' con.Execute sql4
' con.Execute sql5
con.CommitTrans
flag = 0
MsgBox "UpdateSuccessful !"

Exit Function
UpdateErr: If flag = 1 Then con.RollbackTrans
MsgBox "Update Error !"

如果按838201892 改了还不行，就在修改查询语后，再在Set flex.DataSource = adobrs代码后面加入adobrs.Refresh
如：If Option1.Value = True Then
Set frmfind.adobrs = Nothing
select * from macs where 操作系统='" & text1.text & "' and 是否上网 = '" & text2.text & "'and 机器用途 = '" & text3.text & "',ADOCon, adOpenDynamic, adLockOptimistic, -1
Set flex.DataSource = adobrs
adobrs.Refresh

用SQL语句查询来实现。select 姓名，电话 from 表 where 姓名='某某' group by 姓名，电话

---

VB中如何实现按条件查找？视频