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