Boutton de recherche

-
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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
12410
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 décembre 2018
0
Merci
Quelque chose comme ça
cmd2.CommandText = "SELECT * FROM Livres Where Auteurs='Stephen King'"

Commenter la réponse de Whismeril

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.