textbox recherche et datagrid

Version imprimable

Voir 40 message(s) de cette discussion en une page

19/02/2011, 19h21
Sankasssss

Et enlève : Private maTable As DataTable

EDIT :

Citation:

Envoyé par Anklor

tu as mis un "not" de trop ^^
...
essaye au lieu de me dire que le code n'à pas de sens :?

Oui c'est vrais j'ai mi un not de trop... c'est encore plus court, mais c'est pas ca le soucis, dire que "" et nothing c'est la même chose je suis pas pour, si on veux bien faire d'ailleurs il faut utiliser String.Empty.
Nothing sert au référence et non au valeur.
Il y plein de chose qui fonctionne mais qui n'ont pas de sens, ca fait partie des bonnes pratiques de programmation ;)
19/02/2011, 19h44
Anklor

Je suis d'accord

Code:

If TextBox1.Text = String.Empty Then

est encore mieux ;)

on a du mieux ! merci !

J'ai enlevé le Me car le debug ne l'aime pas apparement.

Le programme se lance, je peux ecrire dans la textbox mais cela ne filtre pas.

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
59
Public Class Form1
 
    Private Sub ClientsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ClientsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(SARIADataSet)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'SARIADataSet.Clients'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.ClientsTableAdapter.Fill(SARIADataSet.Clients)
 
    End Sub
 
    Private Sub ClientsDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ClientsDataGridView.CellContentClick
        Try
            'Remplissage du DataGridView
            Dim DS As DataSet = New DataSet
            Dim mondA As SqlClient.SqlDataAdapter
            Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString)
            Dim MaRequete As String = "select Nom, NDI, Ville from Clients where NDI='" & Me.TextBox1.Text & "'"
 
            con.Open()
 
            mondA = New SqlClient.SqlDataAdapter()
            mondA.Fill(DS, "")
            ClientsDataGridView.DataSource = DS.Tables(0).DefaultView
 
            con.Close()
 
        Catch
            MsgBox(Err.Description)
        Finally
        End Try
    End Sub
 
    Private Function connectString() As String
        Throw New NotImplementedException
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
        If String.Compare(TextBox1.Text, "") = 0 Then
            ' Pas besoin de filtre, on affiche la table
            SARIADataSet.Clients.DefaultView.RowFilter = ""
        Else
            ' Il existe quelque chose dans la textBox on applique le filtre
            SARIADataSet.Clients.DefaultView.RowFilter = "NDI LIKE '%" & TextBox1.Text & "%'"
 
        End If
 
    End Sub
 
End Class

J'ai du mal à comprendre :

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
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'SARIADataSet.Clients'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.ClientsTableAdapter.Fill(SARIADataSet.Clients)
 
    End Sub
 
    Private Sub ClientsDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ClientsDataGridView.CellContentClick
        Try
            'Remplissage du DataGridView
            Dim DS As DataSet = New DataSet
            Dim mondA As SqlClient.SqlDataAdapter
            Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString)
            Dim MaRequete As String = "select Nom, NDI, Ville from Clients where NDI='" & Me.TextBox1.Text & "'"
 
 
            con.Open()
 
            mondA = New SqlClient.SqlDataAdapter()
            mondA.Fill(DS, "")
            ClientsDataGridView.DataSource = DS.Tables(0).DefaultView
 
            con.Close()
 
        Catch
            MsgBox(Err.Description)
        Finally
        End Try
    End Sub

Car dans le load tu remplis SARIADataSet.Clients via :
Me.ClientsTableAdapter.Fill(SARIADataSet.Clients)

alors que dans tu remplis DS via mondA.Fill(DS, "")
d'ailleurs c'est cette table que tu lies au dataGrid :

Code:

ClientsDataGridView.DataSource = DS.Tables(0).DefaultView

Ce que je ne comprend pas, c'est pourquoi tu mets le remplissage dans la méthode ClientsDataGridView.CellContentClick et pas dans le load à la place de l'autre?!?!

avec le code telle qu'il est il te faudrait mettre :

Code:

1
2
3
4
5
6
7
8
9
10
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
        If String.Compare(TextBox1.Text, "") = 0 Then
            ' Pas besoin de filtre, on affiche la table
            cType(ClientsDataGridView.DataSource, dataView).RowFilter = ""
        Else
            ' Il existe quelque chose dans la textBox on applique le filtre
            cType(ClientsDataGridView.DataSource, dataView).RowFilter = "NDI LIKE '%" & TextBox1.Text & "%'" 
        End If 
    End Sub

Mais je suis curieux, tu peux répondre à ma précédente question :

Citation:

pourquoi tu mets le remplissage dans la méthode ClientsDataGridView.CellContentClick et pas dans le load à la place de l'autre?!?!

Pourquoi ne pas agir directement sur le BindingSource ??

Code:

1
2
3
4
5
6
 
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
   Me.ClientsBindingSource.Filter = "NDI LIKE '%" & TextBox1.Text & "%'"
 
End Sub

19/02/2011, 20h41
luxman

@ Sankasssss
Je n'ai pas encore bien compris la structure ca doit etre ca. Mais je potasse des guides sur le vb net pour m'aider a mieux comprendre les bases.

Donc si je comprend bien le code n'est pas au bon endroit ?

@Anklor
Effectivement ca fonctionne comme ca

Anklor :
Citation:
Pourquoi ne pas agir directement sur le BindingSource ??
Code:

1 2 3 4 5 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Me.ClientsBindingSource.Filter = "NDI LIKE '%" & TextBox1.Text & "%'" End Sub
tien je ne connaissais pas cette propriété, j'ai rarement essayé le BindingSource...
Question est-ce que celui-ci répercute tout simplement ca propriété sur la vue?
Cette question pour savoir si on peux toujours utiliser la vue pour faire un traitement après...

luxman :
Disons que je ne comprend pas pourquoi mettre un code de remplissage à cet endroit, moi je crée une méthode de remplissage que j'appel dans le load...
Tu utilises un assistant graphique ou autre?

Pour tout expliquer j'utilises visual studio 2010, je lance un nouveau projet WINFORM.

je me connecte à mon serveur sql grace à l'assistant de source de donnée de visual studio qui me propose egalement quelle table je dois choisir.

une fois effectué, je fait un glisser deposé de la table ce qui donne le DATAGRID.

J'ajoute ensuite un textbox.

Pour inserer le code que vous m'avez proposés ( et je vous remercie encore pour cela) j'ai double cliqué sur le datagrid ou le textbox (je sais plus) puis inséreé votre code.

Si vous souahaitez apporter vos modifications je veux bien les tester pour que cela soit egalement clair pour vous.

Voici le code qui fonctionne :

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
 
Public Class Form1
 
 
 
    Private Sub ClientsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ClientsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(SARIADataSet)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'SARIADataSet.Clients'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.ClientsTableAdapter.Fill(SARIADataSet.Clients)
 
    End Sub
 
    Private Sub ClientsDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ClientsDataGridView.CellContentClick
        Try
            'Remplissage du DataGridView
            Dim DS As DataSet = New DataSet
            Dim mondA As SqlClient.SqlDataAdapter
            Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString)
            Dim MaRequete As String = "select Nom, NDI, Ville from Clients where NDI='" & Me.TextBox1.Text & "'"
 
 
            con.Open()
 
            mondA = New SqlClient.SqlDataAdapter()
            mondA.Fill(DS, "")
            ClientsDataGridView.DataSource = DS.Tables(0).DefaultView
 
            con.Close()
 
        Catch
            MsgBox(Err.Description)
        Finally
        End Try
    End Sub
 
    Private Function connectString() As String
        Throw New NotImplementedException
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
        Me.ClientsBindingSource.Filter = "NDI LIKE '%" & TextBox1.Text & "%'"
 
    End Sub
 
End Class

Citation:

Question est-ce que celui-ci répercute tout simplement ca propriété sur la vue?

Oui, seulement le résultat correspondant est visible dans la datagridview et donc tu peux parfaitement "re" filtrer après (même si ne je vois pas ce que l'on pourrait re-filtrer que l'on ne peut faire directement avec le BindingSource)

luxman, ce code est inutile vu que tu as saisi les paramètres de ta BD directement avec visual studio, pas besoin de gérer la connexion
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Try 'Remplissage du DataGridView Dim DS As DataSet = New DataSet Dim mondA As SqlClient.SqlDataAdapter Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString) Dim MaRequete As String = "select Nom, NDI, Ville from Clients where NDI='" & Me.TextBox1.Text & "'" con.Open() mondA = New SqlClient.SqlDataAdapter() mondA.Fill(DS, "") ClientsDataGridView.DataSource = DS.Tables(0).DefaultView con.Close() Catch MsgBox(Err.Description) Finally End Try

19/02/2011, 23h01
luxman

ok merci c'est ce qu'il me semblait. Par contre je pensais m'en servir + tard car la table contient pas mal de données et l'application est longue a se lancer.

La cnx sql se fait donc au lancement de l'application et non lors de la saisie des infos dans le textbox.

Je compte par la suite ajouter D'autres textbox pour completer le filtrage sur les autres colones
19/02/2011, 23h06
Sankasssss

Anklor :
Merci pour ces précisions, on apprend beaucoup grâce au forum :)
Je garanti aussi que la méthode du filtre sur le dataView fonctionne bien et est répercuté directement sur la DataGridView si il est appliqué sur la bonne vue ;)

luxman :
Je comprend mieux pourquoi je ne comprenais pas les deux remplissages, suis les conseilles de Anklor du poste précédent.
Pour ma part, ma société utilise encore VS2003 malgré les recommandations des développeurs qui pousse au 2010... :cry:
Et par conséquent, nous n'utilisons pas de mode grphique, qui sous le 2003 n'est vraiment pas top et créons les connections, datatable et autres directement dans le code.

Sur ce, je suis content que ca fonctionne.
Si tu cherches un bon cours de VB, n'hésite pas à lire l'excellant cours du Dr. Ph. Lasserre qui est selon pas mal de gens, le meilleur cours de vb.net écrit et distribué gratuitement à ce jours.

P.S. : Il te reste des problèmes à résoudre, essaye de tapper dans ta recherche des apostrophes et des % pour voir comment il se comporte :aie:
19/02/2011, 23h13
luxman

Merci à vous 2 pour m'avoir permis de realiser ce que je souhaitais. Cela va me servir de base pour analyser/tester le code.

Mon projet final etant de faire une application qui permet des recherches et des etas voir des graphiques sur des bases de donnée afin de permettre aux utilisateurs de gagner du temps et etre plus efficace.

Le code n'en devient que + simple

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
 
Public Class Form1
 
    Private Sub ClientsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientsBindingNavigatorSaveItem.Click
 
        Me.Validate()
        Me.ClientsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(SARIADataSet)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.ClientsTableAdapter.Fill(SARIADataSet.Clients)
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
        Me.ClientsBindingSource.Filter = "NDI LIKE '%" & TextBox1.Text & "%'"
 
    End Sub
 
End Class

Je te conseillerais plutôt un duo TextBox et ComboBox pour ton outils de recherche.
Dans le ComboBox tu mets les noms de tes colonnes
le filtre devient :

Code:

1
2
3
4
5
6
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
        Me.ClientsBindingSource.Filter = NomDeTaComboBox.Text & " LIKE '%" & TextBox1.Text & "%'"
 
    End Sub

19/02/2011, 23h39
luxman

le debug retourne l'erreur suivant à la fin de la ligne 3 pour le code simplifié :

Code:

Handles ClientsBindingNavigatorSaveItem.Click

Citation:

Erreur 1 La clause Handles requiert une variable WithEvents définie dans le type conteneur ou l'un de ses types de base.

le message est affiché lors de la saisie et empeche l'application de se lancer.

Il y a bien un souligné à la fin de la ligne

non mais le curseur arrive bien sur ta partie de code
Code:

1 2 3 4 Me.Validate() Me.ClientsBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(SARIADataSet)

20/02/2011, 00h25
luxman

je peux mettre le curseur ou je veux oui

j'ai mis :

Handles ClientsBindingNavigator.Click

au lieu de

Handles ClientsBindingNavigatorSaveItem.Click

et ca fonctionne...
20/02/2011, 00h39
Anklor

c'est bien se qui me semblait, tu as changé le nom de ton bouton (ou créé un nouveau)

bon le principale, c'est que ça marche ;)
20/02/2011, 01h42
Sankasssss

Au fait, bienvenu à vous deux developpez.com, ca fait plaisir de voir des nouveau qui vont au bout des choses...
:mouarf1:

Bon faut que je trouve un somnifère la, pas moyen de dormir :(
20/02/2011, 14h43
luxman
Merci, Je suis daccord sur ce point et j'espere que cela pourra servir à d'autres membres.

J'ai reussi à appliquer le combo box + textbox pour mes recherches et cela fonctionne bien.

Je n'ai pas encore reussi a comprendre comment faire pour filtrer par exemple la ville et une fois la ville filtrée, garder le resultat pour filtrer par nom.

ce qui permettrai par exemple de trouver le nom d'un client dans une ville.

Voici la ligne de code qui ne fonctionne pas :
Code:

1 2 Me.ClientsBindingSource.Filter = "NDI LIKE '%" & TextBox1.Text & "%'" & "Nom LIKE '%" & TextBox2.Text & "%'"

J'ai trouvé :
Code:

1 2 Me.ClientsBindingSource.Filter = "NDI LIKE '" & TextBox1.Text & "%' AND Nom LIKE '" & TextBox2.Text & "%'"
Comme ca je peux trouver tous les clients ayant un NDI qui commence par 02 et qui habitent une ville qui commence par R.

Génial ! :mouarf:

Le plus etonant c'est que j'ai fait du ménage et que l'ensemble du code se resume à ceci :
Code:

1 2 3 4 5 6 7 8 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.ClientsBindingSource.Filter = "NDI LIKE '" & TextBox1.Text & "%' AND Nom LIKE '" & TextBox2.Text & "%'" Me.ClientsTableAdapter.Fill(SARIADataSet.Clients) End Sub End Class
Le programme se lance tout de suite et la recherche ne s'effectue qu'a partir du moment ou je clic sur le bouton.

Voir 40 message(s) de cette discussion en une page