textbox recherche et datagrid

**luxman** · 10/02/2011, 21h18

Bonsoir,

Je voudrai creer un prrogramme simple qui permet à l'utilisateur via une text box et un bouton valider de filtrer la colone NDI d'une DATAGrid.

Je suis parvenu a me connecter à la base SQL SERVER distante creer l'interface, Choisir la table (CLIENT) et les valeurs qui correspondent aux colones du datagrid (Nom, NDI, VILLE).

Pouvez vous m'aider svp ?

**wakan** · 10/02/2011, 22h00

Bonjour,
Il faudrait une peu plus de précision sur ton problème.
Est ce que tu as lu ce post ?
http://www.developpez.net/forums/d55...dview-textbox/

Bonne chance a toi.

**luxman** · 12/02/2011, 10h33

Merci pour votre réponse

Je peux vous donner toutes les précisions dont vous avez besoin.

Le post correspond a peut pres a ce que je souhaite faire c'est a dire actualiser le data grid en fonction des informations contenue dans le textbox.

Le problme c'est que je n'arrive pas pour le moment a "traduire" le code.

Je suis sur une version visual studio 2010 en langage visual basic.

**anonymousse** · 16/02/2011, 21h42

bonjour,

as-tu parcouru les posts parus sur le sujet, est-ce que ces liens te parles ?

http://www.developpez.net/forums/d95...agrid-cellule/

http://www.developpez.net/forums/d17...nne-type-date/

http://www.developpez.net/forums/d79...sieurs-lignes/

mousse

**peregna2007** · 17/02/2011, 11h34

Bonjour,

Voici un bout de code que tu pourras adapter.

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
 Try
            'Remplissage du DataGridView
            Dim DS As DataSet = New DataSet
            Dim mondA As SqlDataAdapter
            Dim MaRequete As String = "select Nom, NDI, VILLE from CLIENT where NDI='" & Me.TextBox1.Text & "'"
 
 
            con.Open()
            mondA = New SqlDataAdapter(MaRequete, con)
            mondA.Fill(DS, "CLIENT")
            DataGridView1.DataSource = DS.Tables(0).DefaultView
            con.Close()
        Catch
            MsgBox(Err.Description)
        Finally
        End Try

**luxman** · 17/02/2011, 12h55

Merci c'est vraiment sympa. Je vais étudier vos propositions et reviendrai vers vous.

Encore merci

Arnaud

**luxman** · 17/02/2011, 19h30

Voici le code que j'ai legèrement corrigé grace à l'assistant.

le programme se lance mais rien de ne passe lorsque je saisi des infos dans le text box.

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
 
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(Me.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(Me.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 MaRequete As String = "select Nom, NDI, Ville from Clients where NDI='" & Me.TextBox1.Text & "'"
 
 
 
            mondA = New SqlClient.SqlDataAdapter()
            mondA.Fill(DS, "Clients")
            ClientsDataGridView.DataSource = DS.Tables(0).DefaultView
 
        Catch
            MsgBox(Err.Description)
        Finally
        End Try
    End Sub
End Class

**anonymousse** · 17/02/2011, 21h23

bonjour,

je ne suis pas expert dans ce domaine, mais est-ce qu'il ne te manques pas l'exécution de ta requête ?

mousse

re bonjour,

en complément, peux-tu t'inspirer de ce lien :

http://faqvbnet.developpez.com/?page=adonet

mousse

**luxman** · 17/02/2011, 21h51

ca semble correspondre mais rien ne se passe...

**Sankasssss** · 17/02/2011, 22h11

Il manque en effet la connection et la requête dans l'adaptateur :

Code :

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

1
2
3
Dim MaRequete As String = "select Nom, NDI, Ville from Clients where NDI='" & Me.TextBox1.Text & "'" 
mondA = New SqlClient.SqlDataAdapter()
mondA.Fill(DS, "Clients")

de plus je ne comprend pas pourquoi tu l'as mi sur l'evenement ClientsBindingNavigatorSaveItem.Click...

**luxman** · 17/02/2011, 22h35

Bon visiblement je comprend rien a ce que je fais....

et le langage et du domaine de la decouverte pour moi. Je ne pensais pas qu'une chose aussi banale que filtrer un tableau soit aussi compliqué à coder.

Bref je suis perdu et manque surtout de repère et connaissance.

**Sankasssss** · 17/02/2011, 23h46

La méthode ici n'est pas si compliquée, elle consiste à ré appliquer une requête à chaque fois que tu tapes dans ton textbox, pour cela il faut mettre le code dans la méthode qui gère l'évenement textChanged du textBox (double clique sur le textBox et tu l'as).

Sinon tu peux aussi filtrer en jouant avec rowFilter de la vue par défaut de la table, allé je suis gentil, je te tape vite fait un code d'exemple :

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
 
Public Class Form1
 
    Private maTable As DataTable
 
    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
            maTable.DefaultView.RowFilter = ""
        Else
            ' Il existe quelque chose dans la textBox on applique le filtre
            maTable.DefaultView.RowFilter = "MaColonneAFiltrer LIKE %" & TextBox1.Text & "%"
        End If
 
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' code de remplissage de la table
    End Sub
End Class

P.S. : La programmation s'est comme tout, sa s'apprend en s’entraînant... il y a de bon cour sur dvp, particulièrement celui du Dr. Ph. Plasserre

**luxman** · 18/02/2011, 21h21

Merci :-)

il y une erreur des que je saisi un chiffre dans le textbox le debug renvoi vers le % à la fin de cette ligne de code :

Code :

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

1
2
 
maTable.DefaultView.RowFilter = "NDI LIKE %" & TextBox1.Text & "%"

Voici le code complet :

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
59
60
61
62
63
64
65
 
Public Class Form1
 
    Private maTable As DataTable
 
 
    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(Me.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(Me.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, "Clients")
            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
            maTable.DefaultView.RowFilter = ""
        Else
            ' Il existe quelque chose dans la textBox on applique le filtre
            maTable.DefaultView.RowFilter = "NDI LIKE %" & TextBox1.Text & "%"
 
        End If
 
 
    End Sub
 
End Class

**Sankasssss** · 18/02/2011, 21h58

Ouppssss j'ai oublié les quotes bien sur... c'est ca le vite fait...

Code :

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

maTable.DefaultView.RowFilter = "NDI LIKE '%" & TextBox1.Text & "%'"

et bien sur, si la colonne est en chiffre, pas de like, juste un égale, pas de quotes et pas de %....

**luxman** · 18/02/2011, 22h19

Le meme message apparait:

La reference d'objet n'est pas definie a une instance d'un objet

J'ai essayé avec le nom de la colone non chifrée et le message apparait tjrs le " est souligné en rouge

**Anklor** · 18/02/2011, 23h06

salut
tu as un "%" de trop

Code :

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

maTable.DefaultView.RowFilter = "NDI LIKE '" & TextBox1.Text & "%'"

de + au lieu de :

Code :

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

If String.Compare(TextBox1.Text, "") = 0 Then

je te conseille plutôt :

Code :

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

If TextBox1.Text = Nothing Then

+ rapide en éxécution et + simple à écrire

**Sankasssss** · 19/02/2011, 19h04

Envoyé par Anklor

salut
tu as un "%" de trop

Code :

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

maTable.DefaultView.RowFilter = "NDI LIKE '" & TextBox1.Text & "%'"

de + au lieu de :

Code :

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

If String.Compare(TextBox1.Text, "") = 0 Then

je te conseille plutôt :

Code :

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

If TextBox1.Text = Nothing Then

+ rapide en éxécution et + simple à écrire

Il n'y a aucun % de trop, tout dépend de ce que tu cherches à faire...
Ce que tu marques fait rechercher un texte commençant par le contenu du textBox tandis que moi je recherche tout mot contenant (et non pas commancant) le texte taper dans le textBox...

de plus c'est quoi cette remarque :

Code :

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

If TextBox1.Text = Nothing Then

+ rapide en éxécution et + simple à écrire

limite que tu mettes :

Code :

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

If not TextBox1.Text = "" Then

ok mais ton code n'a pas de sens...

Bon panchons nous sur le réel problème...

luxman, as-tu bien rempli la table dans la partie :

Code :

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

1
2
3
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' code de remplissage de la table
    End Sub

???

**luxman** · 19/02/2011, 19h14

La table est déja remplie, le contenu des colonnes s'affiche lorsque j'execute le programme.

Le datagrid est alimenté par les table d'un serveur sql.

**Sankasssss** · 19/02/2011, 19h19

change tous les maTable de mon code par :
Me.SARIADataSet.Clients
qui est ta table...

**Anklor** · 19/02/2011, 19h19

tu as mis un "not" de trop ^^

Code :

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

If TextBox1.Text = "" Then

est identique à :

Code :

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

If TextBox1.Text = nothing Then

est identique à :

Code :

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

If String.Compare(TextBox1.Text, "") = 0 Then

essaye au lieu de me dire que le code n'à pas de sens

textbox recherche et datagrid

VB.NET

Discussions similaires

Partager

Partager