Функция поиска в форме VB. Net windows с использованием sqlite - PullRequest
Новая
       4

Функция поиска в форме VB. Net windows с использованием sqlite

0 голосов
/ 02 апреля 2020

У меня возникли некоторые проблемы при попытке заставить это работать, я пытаюсь ввести код в верхней строке, нажмите 'Go', и он появится в ListBox слева. Я надеюсь, что один из вас может помочь мне с этим, я прикрепил нижеприведенный код для ввода данных из таблицы 'stock' из моей базы данных в список, но я застрял в сужении его с помощью функции поиска. Я также приложил изображение моей формы.

https://i.stack.imgur.com/zD9EZ.png

    Private Sub LoadStockFromDb()
    Dim stockInfo As DataRow = Nothing
    Dim sql As String = "SELECT * FROM stock;"

    Try
        Dim current_index As Int16 = lb_stock.SelectedIndex
        Using conn As New SQLiteConnection(connectionString.ToString)
            Using cmd As New SQLiteCommand(conn)
                cmd.CommandText = sql
                conn.Open()
                Using da As New SQLiteDataAdapter(cmd)
                    Dim dt As New DataTable
                    da.Fill(dt)

                    If dt.Rows.Count > 0 Then
                        lb_stock.DisplayMember = "int_code"
                        lb_stock.ValueMember = "entry_id"
                        lb_stock.DataSource = dt
                    End If
                End Using
            End Using
        End Using
        If current_index > 0 Then
            lb_stock.SelectedIndex = current_index
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

End Sub
...