SQLite VB.net Query

Question

Я пытаюсь изучить кодирование с помощью VB.net, у меня есть простое приложение CRUD (VB.net и Sqlite), где данные отображаются в сетке. все работает, кроме поиска данных.

Я хочу найти БД на основе имени столбца, в котором пользователь выбирает в выпадающем списке.

исходный код:

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 
    ' search functions 
    connect() 
    Dim da As New SQLiteDataAdapter("SELECT * FROM tbl_biodata WHERE name like '%" & TextBox1.Text & "%'", connection) 
    Dim dt As New DataTable 

    da.Fill(dt) 
    DataGridView1.DataSource = dt 
    connection.Clone() 
    da.Dispose() 
End Sub 

исходный код работает, но я хотел бы иметь возможность поиска на основе имени столбца, поэтому я попробовал этот

модифицированный код:

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 
    ' search functions 
    connect() 
    Dim da As New SQLiteDataAdapter("SELECT * FROM tbl_biodata WHERE name like '%" & TextBox1.Text & "%'", connection) 
    Dim db As New SQLiteDataAdapter("SELECT * FROM tbl_biodata WHERE country like '%" & TextBox1.Text & "%'", connection) 
    Dim dt As New DataTable 
    If ComboBox1.SelectedValue = "name" Then 
     da.Fill(dt) 
    ElseIf ComboBox1.SelectedValue = "country" Then 
     db.Fill(dt) 

    End If 


    DataGridView1.DataSource = dt 
    connection.Clone() 
    da.Dispose() 
End Sub 

Я не могу заставить его работать. Я знаю, что моя основная проблема:

 Dim da As New SQLiteDataAdapter("SELECT * FROM tbl_biodata WHERE name like '%" & TextBox1.Text & "%'", connection) 

, но я больше не знаю, как это сделать. любая помощь очень ценится, спасибо.

Answer 1

нашел ответ, спасибо всем за помощь

If ComboBox1.SelectedIndex = 0 Then 
     Dim da As New SQLiteDataAdapter("SELECT * FROM tbl_biodata WHERE name like '%" & TextBox1.Text & "%'", connection) 
     da.Fill(dt) 
     DataGridView1.DataSource = dt 
     connection.Close() 
     da.Dispose() 
    Else 
     Dim da As New SQLiteDataAdapter("SELECT * FROM tbl_biodata WHERE country like '%" & TextBox1.Text & "%'", connection) 
     da.Fill(dt) 
     DataGridView1.DataSource = dt 
     connection.Close() 
     da.Dispose() 

    End If