textbox recherche et datagrid

Version imprimable

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

Bonjour,

Après de nombreux essais, je suis confronté à un pb .

Le filtre sur deux colonnes fonctionne mais dès que j'insère le code sur la 3 eme colonne ID TEST le résultat s'affiche mais il manque des données.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Class Form1
 
    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 'FluxDataSet.flux'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        FluxTableAdapter.Fill(FluxDataSet.flux)
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FluxBindingSource.Filter = "NDI1 LIKE '" & TextBox1.Text & "%' AND Type LIKE '" & TextBox2.Text & "%' AND [ID TEST] LIKE '" & TextBox3.Text & "'"
 
    End Sub
 
 
End Class

07/03/2011, 16h56
Sankasssss

Tu entend quoi par il manque des données?
Le filtre que tu appliques ici sera :
je veux tous les enregistrements dont NDI1 commence avec le contenu de TextBox1 ET le type commence avec le contenu de TextBox2 ET ID TEST est égale à TextBox3.

De plus, ca ne sert a rien de faire un like si c'est pour faire la même chose qu'un =, met plutôt :

Code:

FluxBindingSource.Filter = "NDI1 LIKE '" & TextBox1.Text & "%' AND Type LIKE '" & TextBox2.Text & "%' AND [ID TEST] = '" & TextBox3.Text & "'"
07/03/2011, 20h13
luxman

il manque des données dans le sens ou quand le datagrid se charge au lancement de l'application l'ensemble de la table s'affiche avec toutes les valeurs. Dans la colonne "type" il y a une valeur RÉACTIVATION. dès que je clic sur le bouton pour valider ma requête (sans remplir les textbox ) aucune valeur REACTIVATION n'apparait (les autres apparaissent bien) alors que je devrait tout avoir comme au chargement de l'appli.

J'ai essayé avec des % sur toutes les textbox mais rien n'y fait....
07/03/2011, 22h02
Sankasssss

Ce qu'il faudrait voir c'est la valeur des champs de la ligne contenant "REACTIVATION", surtout la valeur de la colonne ID TEST.
Mais la requête telle qu'elle est la n'a pas beaucoup de sens, il faudrait la construire au fur et à mesure suivant si un textBox contient des données ou non.
10/03/2011, 20h15
luxman

les valeurs pour la la colonne "ID test " sont alphanumeriques.

L'idée de construire la requete en fonction du remplissage des textbox est interessante comment peut t-on faire ?

pour la construire dynamiquement se serait quelque chose comme ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
dim strSelect as String = ""
if not TextBox1.Text = string.empty then
    strSelect = "NDI1 LIKE '" & TextBox1.Text & "%'"
end if 
 
if not TextBox2.Text = string.empty then
    if not TextBox1.Text = string.empty then strSelect &= " and "
    strSelect &= "Type LIKE '" & TextBox2.Text & "%'"
end if
 
if not TextBox2.Text = string.empty then
    if not TextBox1.Text = string.empty then strSelect &= " and "
    strSelect &= "[ID TEST] = '" & TextBox3.Text & "'"
end if
 
FluxBindingSource.Filter = strSelect

il y a un message d'erreur lorsque j'exute le code il me dite qu'il manque qque chose pour ID TEST.

J'ai modifié le code, ca fonctionne, sauf que quand je met qque chose uniquement dans ID TEST et que je valide toutes les données s'affichent.
Si je renseigne que Type ca fait pareil

Seult NDI1 peut etre filtré seul.

Je crois que je vais devenir fou avec ce truc :-)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim strSelect As String = ""
        If Not TextBox1.Text = String.Empty Then
            strSelect = "NDI1 LIKE '" & TextBox1.Text & "%'"
        End If
 
        If Not TextBox2.Text = String.Empty Then
            If Not TextBox1.Text = String.Empty Then strSelect = "NDI1 LIKE '" & TextBox1.Text & "%' AND Type LIKE '" & TextBox2.Text & "%'"
        End If
 
        If Not TextBox3.Text = String.Empty Then
            If Not TextBox1.Text = String.Empty Then If Not TextBox2.Text = String.Empty Then strSelect = "NDI1 LIKE '" & TextBox1.Text & "%' AND Type LIKE '" & TextBox2.Text & "%' AND [ID TEST] LIKE '" & TextBox3.Text & "%'"
            End If
 
 
            FluxBindingSource.Filter = strSelect
 
 
    End Sub

Cette requête fonctionne par contre, elle est tres longue a mettre ne place.

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
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim strSelect As String = ""
        ' Si TxtBox 1 est renségnée et que TxtBox 2 et 3 sont vides la requete est construite sur Txtbox 1
        If Not TextBox1.Text = String.Empty Then
            If TextBox2.Text = String.Empty Then If TextBox3.Text = String.Empty Then strSelect = "NDI1 LIKE '" & TextBox1.Text & "%'"
 
        End If
        ' Si TxtBox 2 est renségnée et que TxtBox & et 3 sont vides la requete est construite sur Txtbox 2
 
        If Not TextBox2.Text = String.Empty Then
            If TextBox1.Text = String.Empty Then If TextBox3.Text = String.Empty Then strSelect = "Type LIKE '" & TextBox2.Text & "%'"
 
        End If
        ' Si TxtBox 3 est renségnée et que TxtBox 2 et 1 sont vides la requete est construite sur Txtbox 3
        If Not TextBox3.Text = String.Empty Then
            If TextBox2.Text = String.Empty Then If TextBox1.Text = String.Empty Then strSelect = "[ID TEST] LIKE '" & TextBox3.Text & "%'"
 
        End If
        ' Si TxtBox 1 et 2 sont renségnées et que  TxtBox 3 est vide la requete est construite sur Txtbox 1 et 2
        If Not TextBox1.Text = String.Empty Then
            If Not TextBox2.Text = String.Empty Then If TextBox3.Text = String.Empty Then strSelect = "NDI1 LIKE '" & TextBox1.Text & "%' AND Type LIKE '" & TextBox2.Text & "%'"
 
        End If
 
        ' Si TxtBox 1 et 3 sont renségnées et que  TxtBox 2 est vide la requete est construite sur Txtbox 1 et 3
        If Not TextBox1.Text = String.Empty Then
            If Not TextBox3.Text = String.Empty Then If TextBox2.Text = String.Empty Then strSelect = "NDI1 LIKE '" & TextBox1.Text & "%' AND [ID TEST] LIKE '" & TextBox3.Text & "%'"
        End If
 
        ' Si TxtBox 2 et 3 sont renségnées et que  TxtBox 1 est vide la requete est construite sur Txtbox 2 et 3
        If Not TextBox2.Text = String.Empty Then
            If Not TextBox3.Text = String.Empty Then If TextBox1.Text = String.Empty Then strSelect = "Type LIKE '" & TextBox2.Text & "%' AND [ID TEST] LIKE '" & TextBox3.Text & "%'"
 
        End If
 
        ' Si les TxtBox 1,2 et 3 sont rensignées la requete est construite sur les 3 TextBox
        If Not TextBox1.Text = String.Empty Then
            If Not TextBox2.Text = String.Empty Then If Not TextBox3.Text = String.Empty Then strSelect = "Type LIKE '" & TextBox2.Text & "%' AND [ID TEST] LIKE '" & TextBox3.Text & "%' AND NDI1 LIKE '" & TextBox1.Text & "%'"
        End If
 
 
 
 
        FluxBindingSource.Filter = strSelect
 
 
 
 
    End Sub

Comme je l'ai dit, c'était quelque chose comme ça, mais c'étais pas ca :(
J'ai tapé vite fait y'avais quelque faute, il faut corriger et comprendre le code...

Citation:

Envoyé par Sankasssss

pour la construire dynamiquement se serait quelque chose comme ca :

essaye avec ce code corrigé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 dim strSelect as String = "" if not TextBox1.Text = string.empty then strSelect = "NDI1 LIKE '" & TextBox1.Text & "%'" end if if not TextBox2.Text = string.empty then if not strSelect = string.empty then strSelect &= " and " strSelect &= "Type LIKE '" & TextBox2.Text & "%'" end if if not TextBox3.Text = string.empty then if not strSelect = string.empty then strSelect &= " and " strSelect &= "[ID TEST] = '" & TextBox3.Text & "'" end if FluxBindingSource.Filter = strSelect

13/03/2011, 22h27
luxman

Merci ca fonctionne.

Par contre, je ne comprend pas ce que fait le programme....:lol:

Et comme ca, ca va mieux ??? :calim2:

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
 
' Création d'une variable temporaire
' Destinée à prendre la requête de sélection.
dim strSelect as String = ""
 
' Si TextBox1 contient quelque chose, on fait une sélection
if not TextBox1.Text = string.empty then
    ' Pas besoin de tester strSelect, on sais qu'elle est vide
    ' Car on vient de la déclarer juste avant.
    ' Donc on la rempli sans AND vu qu'elle est vide (CQFD)    
    strSelect = "NDI1 LIKE '" & TextBox1.Text & "%'"
end if 
 
' Si TextBox2 contient quelque chose, on fait une sélection
if not TextBox2.Text = string.empty then
    ' Mais attention, strSelect peux contenir une sélection du remplissage précédent
    ' Si c'est le cas, il faut mettre AND après la requête avant de mettre l'autre partie
    if not strSelect = string.empty then strSelect &= " and "
    strSelect &= "Type LIKE '" & TextBox2.Text & "%'"
end if
 
' Si TextBox3 contient quelque chose, on fait une sélection
if not TextBox3.Text = string.empty then
   ' Mais attention, strSelect peux contenir une sélection d'un des remplissages précédent
    ' Si c'est le cas, il faut mettre AND après la requête avant de mettre l'autre partie
    if not strSelect = string.empty then strSelect &= " and "
    strSelect &= "[ID TEST] = '" & TextBox3.Text & "'"
end if
 
FluxBindingSource.Filter = strSelect

pour info, le & permet de concaténer une chaine à une autre.
Donc

Code:

strSelect &= "[ID TEST] = '" & TextBox3.Text & "'"

veux dire ajoute au contenu de strSelect le restant de la chaine après le &=
on pourrais le résumer à

Code:

strSelect = strSelect & "[ID TEST] = '" & TextBox3.Text & "'"

16/03/2011, 20h34
luxman

C'est parfait ! Merci

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