vb筛选access数据

Question

想问下怎么进行数据筛选，用vb来筛选access的内容
     Set qsglczdb = sushe.Execute("select * from ss where 楼号 = '" & Combo1.Text & "'")
我这么做他只能选择到一个数据。
比如说
现在在我数据库中有两个1栋,1个2栋
1栋  101
1栋  102
2栋  103
我现在combo1中输入查找值1栋。他只能显示数据库中的最前的一行数据，也就是1栋101，另一个1栋102则不显示了
请教高手们，如何才能做到同时显示出 1栋 101和1栋 102来。

Answer 1

不太明白你具体想在哪个位置里显示?sql="select * from ss where 楼号 = '" & Combo1.Text & "'"
set qsglczdb = sushe.Execute(sql)do while not sushe.eof
.........(这里把查找到的内容添加到指定的容器中).........text1.text=sushe.fields(0).value & space(2) & sushe.fields(1).value
sushe.movenext
loop不知能否对你有所帮助

Answer 2

我想让他显示在listview1中里面
之前写的一此代码
Private Sub Command1_Click()
     
     Dim qsglczdb As New ADODB.Recordset
     Set qsglczdb = sushe.Execute("select * from ss where 楼号 = '" & Combo1.Text & "'")
           MsgBox "成功", vbOKOnly, "成功"
           ListView1.ListItems.Clear
        
'           With ListView1
'              .View = lvwReport
'              .GridLines = True
'              .Checkboxes = False
'              .FullRowSelect = True
'              .ColumnHeaders.Add , , "", 10
'              .ColumnHeaders.Add , , "楼号", 1000, lvwColumnCenter
'              .ColumnHeaders.Add , , "寝室号", 1500, lvwColumnCenter
'
'           End With
               CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\date\ssfj.mdb"
               SQL = "Select * From ss"
               RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic
           On Error Resume Next
               Set LVRow = ListView1.ListItems.Add(, , "")
                  LVRow.SubItems(1) = qsglczdb.Fields("楼号")
                  LVRow.SubItems(2) = qsglczdb.Fields("寝室号")
              
              RST.Close: Set RST = Nothing
              CNN.Close: Set CNN = Nothing