搜索所有字段VB6 Listview

时间:2014-02-16 07:39:17

标签: database listview search vb6

这是我的搜索代码。但它只是在我的字段产品名称中搜索。我想搜索我的所有字段或我的数据库。这是我的其他领域。 ProductNumber,ProductName,GenericName,PrescriptedTo,Weight,StockPiece,PricePiece,DateArrived,Expiry

Private Sub txtSearch_Change()
ListView1.ListItems.Clear
ConnectDB
 rs.Open "Select * from inventory where ProductName LIKE '%" & txtSearch & "%' ORDER BY Expiry ASC", db, 3, 3
    Do Until rs.EOF
        Set list = ListView1.ListItems.Add(, , rs(0))
            For x = 1 To 8
                list.SubItems(x) = rs(x)
        Next x
    rs.MoveNext
    Loop
Set rs = Nothing
db.Close: Set db = Nothing

End Sub

有什么建议吗?

1 个答案:

答案 0 :(得分:0)

您有几个选择:

  1. 使用or指定您要搜索的每个列。
  2. 连接您要搜索的所有列。例如:

    "... where ProductName+ProductNumber+GenericName like '%" & txtSearch & "%'"
    
  3. 然而,它们需要是字符字段(或转换为字符字段)才能使连接起作用。