Discussion :

[ted the Ors]

Bonjour,

Je développe une application avec un formulaire permettant d'afficher dans un datagrid les entrées d'une table MySql. Ce formulaire propose plusieurs champs saisissable, correspondant aux colonnes de ma table, qui jouent ainsi le rôle de filtre.
Par exemple, j'ai une table Clients qui contient les colonnes "Nom", "Ville", "Age". J'ai donc un formulaire avec trois textbox: Nom, Ville et Age.
Lors du load du form, j'affiche l'intégralité de ma table. Jusque là, tout va bien. Je fais SELECT Nom,Ville,Age from T_CLIENTS, un datatable pour po et zou.

En revanche, comment procéder pour coder "proprement" le filtre. En effet, je voudrais utiliser les paramètres (MySqlParameter) mais je suis face à deux problèmes:
- un paramètre peut être valorisé ou non : du coup, impossible pour moi de définir en amont la requête SELECT Nom, Ville Age From T_CLIENTS WHERE Nom=@Nom OR Ville =@Ville OR Age=@Age étant donné que si le champ est vide, la requête ne renverra pas le résultat escompté.
- un paramètre peut contenir plusieurs valeurs. Par exemple, le champ "Nom" peut contenir la valeur "Dupont;Durand", la requête correspondante serait Select Nom,Ville,Age From T_CLIENTS Where Nom In ("Dupont","Durand) mais si le champ contient la valeur "Dupont", la requête serait Select Nom,Ville,Age From T_CLIENTS Where Nom = "Dupont" (je me rends compte à l'écriture de ce message que je pourrais faire un IN ("DUPONT"))

Je peux (et sais comment) m'en sortir mais avec beaucoup de code et en construisant la requête au fur à mesure de la lecture des champs mais je fais appel à vous pour savoir s'il existe une façon plus "propre" de coder cela.

D'avance merci.

[Hervy]

Tu peux faire des if ou select case comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
if Nom <> "" then
   if ville <> "" then
     if age <> "" then
         requette1 (avec 03 param)
     else
         requette2 (avec nom et ville)
     endif
   else
        requette3 (nom et age)
   endif
else
msgbox ("saisie le nom")
endif

[Thumb down]

bonjour,
il y a du code à completer mais l’idée est là!

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
Dim Sql As String = "SELECT Nom, Ville Age From T_CLIENTS "
        Dim P(3) As OleDbParameter = Nothing
        Dim Nom() As String = {"toto"}, Ville As String = "Paris", Age As Integer = 26
        Dim StrWhere As String = ""
 
 
        If Nom.Count = 1 Then
            P(0) = New OleDbParameter
            StrWhere = "WHERE Nom=@Nom"
            P(0).OleDbType = OleDbType.Char
            P(0).ParameterName = "@Nom"
            P(0).Size =50
            P(0).Value = Nom(0)
        Else
            StrWhere = "WHERE Nom In("
            For n As Integer = 0 To Nom.Count - 1
                If n > 0 Then StrWhere += ","
                StrWhere += " '" + Nom(n) + "'"
            Next
            StrWhere += ")"
        End If
        If Ville.Trim <> "" Then
            P(1) = New OleDbParameter
            If StrWhere.Trim = "" Then
                StrWhere = "WHERE Ville=@Ville"
            Else
                StrWhere += " OR Ville=@Ville"
            End If
        End If
        If Age.ToString.Trim <> "" Then
            P(2) = New OleDbParameter
            If StrWhere.Trim = "" Then
                StrWhere = "WHERE Age=@Age"
            Else
                StrWhere += " OR Age=@Age"
            End If
        End If
        Dim Cm As New OleDbCommand
        For Each Prm As OleDbParameter In P
            If Prm IsNot Nothing Then Cm.Parameters.Add(Prm)
        Next

[ted the Ors]

Merci à vous deux. J'ai opté pour la première proposition mais je vais voir comment adapter la deuxième qui est programmatiquement plus élégante.

Très bonne journée et bon week-end.