How can I search using parameters

Hollowman 41

Hi Parameters I want to search using but I have no idea how to do it, can you help me?

    Try


            Dim DB_Path As String = "Data Source=" & source & "\\Data" + "\" + "Data.db;"
            Dim conn As New SQLiteConnection(DB_Path)
            conn.Open()
            Dim SQL As String = "SELECT * from krp;"
            Dim da As New SQLiteDataAdapter(SQL, conn)
            Dim ds As New DataSet
            da.Fill(ds, "krp")
            conn.Close()
            FlowLayoutPanel1.Controls.Clear()
            For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
                Dim Useram As New UserControl1
                Useram.no.Text = ds.Tables(0).Rows(i).Item(0).ToString()
                Useram.GunaLinkLabel1.Text = ds.Tables(0).Rows(i).Item(1).ToString()
                Useram.GunaLineTextBox1.Text = ds.Tables(0).Rows(i).Item(2).ToString()
                Useram.GunaLineTextBox2.Text = ds.Tables(0).Rows(i).Item(3).ToString()
                FlowLayoutPanel1.Controls.Add(Useram)
            Next
            Label1.Text = ds.Tables(0).Rows.Count

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Karen Payne MVP 35,036 Reputation points

2021-08-23T10:30:15.93+00:00

Don't see requirements for search nor any code that shows what has been tried so far.

Hollowman 41

I tried this for search but got error

Try

            Dim DB_Path As String = "Data Source=" & hedef & "\\Data" + "\" + "Data.db;"
            Dim conn As New SQLiteConnection(DB_Path)
            conn.Open()
            cmd.CommandText = <sql>SELECT * FROM krp 
                   WHERE [site] LIKE @site </sql>
            cmd.Parameters.Add("@site", DbType.AnsiString).Value = $"%{GunaLineTextBox2.Text}%"
            Dim da As New SQLiteDataAdapter(cmd.CommandText, conn)
            Dim ds As New DataSet
            da.Fill(ds, "krp")
            conn.Close()
            FlowLayoutPanel1.Controls.Clear()
            For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
                Dim Useram As New UserControl1
                Useram.no.Text = ds.Tables(0).Rows(i).Item(0).ToString()
                Useram.GunaLinkLabel1.Text = ds.Tables(0).Rows(i).Item(1).ToString()
                Useram.GunaLineTextBox1.Text = ds.Tables(0).Rows(i).Item(2).ToString()
                Useram.GunaLineTextBox2.Text = ds.Tables(0).Rows(i).Item(3).ToString()
                FlowLayoutPanel1.Controls.Add(Useram)
            Next
            Label1.Text = ds.Tables(0).Rows.Count

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Karen Payne MVP 35,036 Reputation points

2021-08-23T12:53:59.553+00:00

Can you tell us the error and the offending line of code?
Hollowman 41 Reputation points

2021-08-23T15:25:30.447+00:00

This is the error I got

Code :
Dim DB_Path As String = "Data Source=" & hedef & "\Data" + "\" + "Data.db;"
Dim conn As New SQLiteConnection(DB_Path)
conn.Open()
cmd.CommandText = <sql>SELECT * FROM krp
WHERE [site] LIKE @site </sql>
cmd.Parameters.Add("@site ", DbType.AnsiString).Value = $"%{GunaLineTextBox2.Text}%"
Dim da As New SQLiteDataAdapter(cmd.CommandText, conn)
Dim ds As New DataSet
da.Fill(ds, "krp")
conn.Close()
Karen Payne MVP 35,036 Reputation points

2021-08-24T11:08:50.057+00:00
Try

cmd.CommandText = <sql>SELECT * FROM krp WHERE [site] LIKE @site </sql>.Value