Boutton de recherche

emma - 2 août 2017 à 14:28 - Dernière réponse : Whismeril 11650 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 25 juin 2018 Dernière intervention
- 2 août 2017 à 16:13
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

Whismeril 11650 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 25 juin 2018 Dernière intervention - 2 août 2017 à 16:13
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.