Discussion :

[luxman]

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]

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]

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.

[Anklor]

Le code n'en devient que + simple

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
 
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 :

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

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

[luxman]

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

Code :

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

Handles ClientsBindingNavigatorSaveItem.Click

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