Member 13341663 Ответов: 1

Как создать код для моего поискового бутона

- привет !
мне нужна помощь пожалуйста
может кто-нибудь помочь мне с кодом для поиска бутона
вот код добавления для моей базы данных

Что я уже пробовал:

Try

            CN.Open()
            cmd5.Connection = CN

            Dim dr5 As OleDbDataReader
            Dim dr2 As OleDbDataReader
            cmd5.CommandText = "insert into Livres values ( '" & TextBox1.Text & "', '" & TextBox2.Text & "','" & ComboBox1.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "')"
            dr5 = cmd5.ExecuteReader

            MsgBox("Votre Livres fût enregistré avec succès !!")

            TextBox3.Text = ""
            TextBox2.Text = ""
            TextBox1.Text = ""
            ComboBox1.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""

            cmd2.Connection = CN
            cmd2.CommandText = "SELECT * FROM Livres "
            dr2 = cmd2.ExecuteReader

            listView1.Clear()
            listView1.View = View.Details
            listView1.GridLines = True
            listView1.CheckBoxes = False
            listView1.Columns.Add("Code Livre", 200, HorizontalAlignment.Center)
            listView1.Columns.Add("Intitule", 150, HorizontalAlignment.Center)
            listView1.Columns.Add("Categorie", 150, HorizontalAlignment.Center)
            listView1.Columns.Add("Edition", 200, HorizontalAlignment.Center)
            listView1.Columns.Add("Auteurs", 150, HorizontalAlignment.Center)
            listView1.Columns.Add("Pages", 150, HorizontalAlignment.Center)
            listView1.Columns.Add("Nombres", 200, HorizontalAlignment.Center)
            While dr2.Read
                Dim liv As New ListViewItem
                liv.Text = dr2.GetValue(0)
                liv.SubItems.Add(dr2.GetValue(1))
                liv.SubItems.Add(dr2.GetValue(2))
                liv.SubItems.Add(dr2.GetValue(3))
                liv.SubItems.Add(dr2.GetValue(4))
                liv.SubItems.Add(dr2.GetValue(5))
                liv.SubItems.Add(dr2.GetValue(6))
                listView1.Items.Add(liv)

            End While
            CN.Close()
        Catch ex As Exception

        End Try

1 Ответов

Рейтинг:
0

Thomas Daniels

Для функции поиска вы можете начать с кода считывателя данных, который у вас уже есть, но после SELECT * FROM Livres, используйте WHERE предложение, которое указывает на то, что вы хотите найти: Предложение SQL WHERE[^].

Кроме того, вы, по-видимому, используете конкатенацию строк для создания запросов. Не делайте этого: его трудно читать, и он допускает SQL-инъекцию. Вместо этого используйте параметризованные запросы. Параметризованный запрос выглядит так например:

Dim cmd As New OleDbCommand("SELECT * FROM Livres WHERE Categorie = @CategoryName")
cmd.Parameters.AddWithValue("@CategoryName", categoryNameVariable)