Boutton de recherche

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

1 réponse

Répondre au sujet
Whismeril 10526 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 13 décembre 2017 Dernière intervention - 2 août 2017 à 16:13
0
Utile
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.