Как искать данные из базы данных sql в listview, используя текстовое поле

Question

Я новичок в VB6, как искать данные из базы данных, используя listview

Answer 1

Private Sub Form_Load()
Dim headertxt As ColumnHeader
    Set headertxt = ListView1.ColumnHeaders.Add(, , "Checkitem")
    Set headertxt = ListView1.ColumnHeaders.Add(, , "Criteria")
    Set headertxt = ListView1.ColumnHeaders.Add(, , "ItemNo")
    Set headertxt = ListView1.ColumnHeaders.Add(, , "AMstart")
    Set headertxt = ListView1.ColumnHeaders.Add(, , "PMstart")

End Sub 
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim con As New ADODB.Connection
    Dim rec As New ADODB.Recordset
    Dim cmd As New ADODB.Command

    con.ConnectionString ="Provider=SQLOLEDB;Server=mypc\mis;Database=MYDB;Uid=sa;Pwd=12345;" 'Connection details here example' 
    If searchBox.Text = "" Then
    MsgBox ("no value")
    Else
    rec.Open "select Checkitem,Criteria,ItemNo,AMstart,AMafter,PMstart,PMafter from table_check where ItemNo = '" & searchBox.Text & "'", con
    Dim listitem As ListItem
    Set listitem = Listview.ListItems.Add( , , rec.Fields("Checkitem")) 'Index and Key is set null so , ,'
        listitem.SubItems(1) = rec.Fields("Criteria")
        listitem.SubItems(2) = rec.Fields("ItemNo")
        listitem.SubItems(3) = rec.Fields("AMstart")
        listitem.SubItems(4) = rec.Fields("PMstart")

    End If
End Sub

Попробуйте что-то похожее на приведенный выше код или, если вам нужно, чтобы в режиме реального времени изменилось среднее значение Sql Query, используя метод подстановки

"select * from sometable where ItemNo = '" & searchBox.Text & "'" %"

, затем введите код в TextBox1_Change() или TextBox1_KeyUp мероприятие. Если вам нужно, вы можете использовать or в предложении где, чтобы получить список поиска из нескольких столбцов