Как заполнить AutoCompleteCustomSource

Question

Как заполнить список AutoCompleteCustomSource результатами запроса с помощью средства чтения данных в vb.net?

Требуется пример кода.

Редактировать 1:

Это то, что я пробовал, и оно не работает

Private Sub cbEmployeeNo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbEmployeeNo.Click

cbEmployeeNo.AutoCompleteCustomSource.Clear()

Dim mySelectQuery As String = "SELECT * FROM EmployeeTable WHERE " & cbSearch.Text & " LIKE '" & cbEmployeeNo.Text & "' AND Status LIKE '" & cbStatus.Text & "'"
Dim myConnString As String = "Data Source=" & Application.StartupPath & "\Database\SimpleDB.db3"
Dim sqConnection As New SQLiteConnection(myConnString)
Dim sqCommand As New SQLiteCommand(mySelectQuery, sqConnection)
sqConnection.Open()

Try
    Dim sqReader As SQLiteDataReader = sqCommand.ExecuteReader()
    Dim m As Integer

    Do While sqReader.Read

        For m = 1 To sqReader.FieldCount() - 1
            If (Not sqReader.IsDBNull(m)) Then
                If cbSearch.Text = "EmployeeID" Then
                    cbEmployeeNo.AutoCompleteCustomSource.Add(sqReader.GetInt32(m))
                Else
                    cbEmployeeNo.AutoCompleteCustomSource.Add(sqReader.GetString(m))
                End If
            End If
        Next m
    Loop

    sqReader.Close()

Catch ex As Exception
    MsgBox("Error: " & ex.ToString, vbExclamation)
Finally
    sqConnection.Close()
End Try
End Sub

Редактировать 2: Это второй код, который я пробовал (по ссылке в ответе DevExpress). Его тоже не работает

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim sStringColl As New AutoCompleteStringCollection
    Dim mySelectQuery As String = "SELECT * FROM EmployeeTable WHERE " & cbSearch.Text & " LIKE '" & cbEmployeeNo.Text & "' AND Status LIKE '" & cbStatus.Text & "'"
    Dim myConnString As String = "Data Source=" & Application.StartupPath & "\Database\SimpleDB.db3"
    Dim sqConnection As New SQLiteConnection(myConnString)
    Dim sqCommand As New SQLiteCommand(mySelectQuery, sqConnection)
    sqConnection.Open()
    Dim sqReader As SQLiteDataReader = sqCommand.ExecuteReader()

While sqReader.Read()
    sStringColl.AddRange(New String() {sqReader(0)})
End While
cbEmployeeNo.AutoCompleteCustomSource = sStringColl
End Sub

Answer 1

Я нашел код, который вы ищете:

AutoCompleteCustomSource