使用列表框搜索算法

Posted 2021-04-18

我正在尝试使用访问数据库创建一个搜索框/栏。我希望代码搜索记录，然后当我搜索另一条记录时，从列表框中删除/隐藏记录。我的程序在下面搜索记录并显示它，但是几乎没有问题。

1. 再次搜索时不会删除/隐藏记录。
2. 如果记录不在数据库中或搜索框为空，则不响应。

---

 Dim con As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=C:UsersjacobDesktopMS Officeproject.mdb")
    Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM tblProduct WHERE productID LIKE '" & txtSearch_Bar.Text & "'", con)
    con.Open()
    Dim sdr As OleDbDataReader = cmd.ExecuteReader()

    While (sdr.Read())

        lstbSearchResult.Items.Add(sdr("ProductID"))

    End While

我还想把它变成一个动态搜索栏。

答案

我认为你的第一个要求在评论中得到了解决。对于第二个要求，请在While循环之前添加以下内容。

If Not sdr.HasRows Then
    MessageBox.Show("No Matches")
    Exit Sub
End If