Boutton de recherche

Question

Salut !! !
 Besoin d'aide SVP
 je veux cree un boutton de recherche mais je sais pas vraiment comment mettre ce code j'essaie tant bien que mal .
 quelqu'un peut t-il me donner un coup de main?
merci

voila un code d'ajout de livres cmment creer un code effectuant la recherche
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

Whismeril · Answer

Quelque chose comme ça 
cmd2.CommandText = "SELECT * FROM Livres Where Auteurs='Stephen King'"

Boutton de recherche

1 réponse

Votre réponse

Discussions similaires