Boutton de recherche

Signaler
-
Whismeril
Messages postés
14234
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
16 février 2020
-
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

1 réponse

Messages postés
14234
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
16 février 2020
343
Quelque chose comme ça
cmd2.CommandText = "SELECT * FROM Livres Where Auteurs='Stephen King'"