Rechercher des entrées sur datagridview à partir d'un textbox

Bonjour tout le monde , je travaille sur un projet sur vb.net ,
J'ai réussi à afficher les données de ma base Mysql sur mon DATAGRIDVIEW.
voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub abonnement_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.WindowState = FormWindowState.Maximized       Dim connectionstring As String = "Server=localhost;User Id=root;Password=anas25;Database=bd" Dim commandtext As String Dim adapter As MySqlDataAdapter Dim table As DataTable commandtext = "select * from client " Try adapter = New MySqlDataAdapter(commandtext, connectionstring) table = New DataTable adapter.Fill(table) DataGridView1.DataSource = table Catch ex As Exception MsgBox(ex.ToString) End Try       End Sub

---

Après j'ai ajouté un textbox1 , et je veux par exemple si je saisi un nom qui commence par "A" toutes les autres entrées disparaissent et ne reste dans la datagridview que les noms commençant par A,

Puis lorsque j'ajoute par exemple "An" , ne restent dans la datagridview que les noms qui commencent par "An"...

et lorsque la bonne entrée est trouvée , elle est sélectionnée dans la datagridview.


J'ai trouvé un truc du genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim mondataview As DataView = New DataView(client) mondataview.RowFilter = "nom like 'textbox1.text*' "           End Sub

---

Mais je n'y arrive pas avec ce code là !!

Help SVP

Bonsoir,

essaye avec :

Code:

---

1 2 3 4 5

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged   cType(DataGridView1.DataSource, datatable).defautview.RowFilter = "nom like '" & textbox1.text & "%' "   End Sub

---

Un grand merci à toi Sankasssss pour ta réponse :

J'ai 1 erreur souligné en bleu

Citation:

---

Erreur 1 'defautview' n'est pas un membre de 'System.Data.DataTable'.

---

je pense que vb n'apprécie pas trop le defautview

:roll:8O

excuse, faute de frappe : DefaultView

OOh oui c'est default plutot que defaut

Muchos Gracias Sankasssss j'ai trouvé ce que je cherchais , pour ceux qui sont intéressé voila le code en entier :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58

Imports MySql.Data.MySqlClient   Public Class abonnement           Private Sub abonnement_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.WindowState = FormWindowState.Maximized       Dim connectionstring As String = "Server=localhost;User Id=root;Password=anas25;Database=bd" Dim commandtext As String Dim adapter As MySqlDataAdapter Dim table As DataTable commandtext = "select * from client " Try adapter = New MySqlDataAdapter(commandtext, connectionstring) table = New DataTable adapter.Fill(table) DataGridView1.DataSource = table Catch ex As Exception MsgBox(ex.ToString) End Try       End Sub         Private client As DataTable   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged   CType(DataGridView1.DataSource, DataTable).DefaultView.RowFilter = "nom like '" & TextBox1.Text & "%' "             End Sub         Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click           End Sub End Class

---

Merci encore une fois Sankasssss:ccool:

de rien, n'hésite pas à mettre résolu (bouton en bas) et +1 si tu aimes une réponse ;)

Passes une bonne soirée