Discussion :

[defcodeaks]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sankasssss]

Bonsoir,

essaye avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[defcodeaks]

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

J'ai 1 erreur souligné en bleu

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

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

[Sankasssss]

excuse, faute de frappe : DefaultView

[defcodeaks]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sankasssss]

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