Discussion :

[mary17]

bonsoir tt le monde
je suis une débutante, et je m'entraine sur des petites applications.
j'ai deux tableaux remplis,specialités et villes,d'apres d'eux j'ai pu remplir deux combobox, mon problem c'est que je dois construire un critère de selection d'apres le choix d'utilisateur et l'afficher sur une label
et voilà le code que j'ai fait mais ça marche pas

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
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim spe() As String = {"pediatre", "neurologue", "génecologue"}
    Dim vil() As String = {"meknes", "rabat", "fes"}
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Int16 = 0 To spe.Length - 1
            If ComboBox1.Items.Contains(spe(i)) = False Then
                ComboBox1.Items.Add(spe(i))
            End If
        Next
        ComboBox1.Items.Add("indifférent")
 
        For i As Int16 = 0 To vil.Length - 1
            If ComboBox2.Items.Contains(vil(i)) = False Then
                ComboBox2.Items.Add(vil(i))
            End If
        Next
        ComboBox2.Items.Add("indifférent")
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim specialité As String
        Dim nom As String
        Dim sexe As String
        Dim ville As String
        If ComboBox1.SelectedItem <> "indifférent" Then
            specialité = ComboBox1.SelectedItem & " and"
        Else
            specialité = ""
            If txtnom.Text <> "" Then
                nom = txtnom.Text & " and"
            Else
                nom = ""
                If RadioButton1.Checked = True Then
                    sexe = RadioButton1.Checked & " and"
                ElseIf RadioButton2.Checked = True Then
                    sexe = RadioButton2.Checked & " and"
                ElseIf RadioButton3.Checked = True Then
                    sexe = ""
                    If ComboBox2.SelectedItem <> "indifférent" Then
                        ville = ComboBox2.SelectedItem
                    Else
                        ville = ""
                    End If
                End If
            End If
        End If
        Label5.Text = specialité & nom & sexe & ville
 
    End Sub
End Class

j'ai un probleme aussi avec ce "and" il doit pas rester afficher à la fin de la phrase de la selection
et merci de votre aide

[JPelli]

Bonjour,
Essaye

Code :

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

1
2
3
 If Label5.Text.ToString.EndsWith("and") Then
      Label5.Text = Label1.Text.Remove(Label5.Text.Trim.LastIndexOf("and"), 3)
        End If

Bon boulot
Jean

[mary17]

salut
j'ai oublié de signaler comment il doit etre afficher la phrase de selection.
la phrase afficher selon les choix de l'utilisateur,parexemple selon le choix apparu a l'interface la phrase doit etre afficher comme suit:

spacialité=''neurologue" and nom="mary" and sexe="femme" and ville="meknes"

et si le choix de l'utilisateur est egal à indifferent ou à "" donc on va pas l'ecrire sur la phrase de selection

et merci pour votre aide

[Gdal]

Salut,

Si je ne me trompe pas, ton code ne te donnera jamais
spacialité=''neurologue" and nom="mary" and sexe="femme" and ville="meknes"

Code :

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

1
2
3
4
5
If ComboBox1.SelectedItem <> "indifférent" Then
            specialité = ComboBox1.SelectedItem & " and"
        Else
            specialité = ""
...

Tu auras soit, lorsque ComboBox1.SelectedItem <> "indifférent"
spacialité=''neurologue"
Soit, lorsque ComboBox1.SelectedItem = "indifférent"
spacialité=''neurologue" and nom="mary" and sexe="femme" and ville="meknes"

Ensuite par plutôt avec une variable String dans laquelle tu vas construire ta requête (ou filtre)

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
 
Dim strRequete as String = Nothing
 
If Condition Then
strRequete = strRequete & Champ1 & " AND "
End if
 
If Condition Then
strRequete = strRequete & Champ2 & " AND "
End if
 
If Condition Then
strRequete = strRequete & Champ3 & " AND "
End if
 
' Et finir par le code de JPelli
If strRequete .EndsWith(" AND ") Then
strRequete  = strRequete.Remove(strRequete.Trim.LastIndexOf(" AND "), 5)
End If
 
Label5.Text = strRequete

Par contre, j'ai pas tout compris sur le reste....

et si le choix de l'utilisateur est egal à indifferent ou à "" donc on va pas l'ecrire sur la phrase de selection

C'est pourtant comme ça que fonctionne ton code....

Gwendal

[mary17]

merci jean merci Gwendal pour votre aide ,j'ai utilisé ce que vous m'avez donné,mais ce probleme de "and" est le meme
je vais chercher pt etre il y a qu'une petite faute ou une petite chose qui m'echape.
merci encore

meriam

[Gdal]

re,

Aujourd'hui, 02h47

Pourrais-tu nous faire voir ton code modifié ?

Je me suis trompé
Le AND doit être devant

Code :

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

strRequete = strRequete & " AND " & Champ1

Je viens de me rappeler du temps ou je bidouillais sur ACCESS, et d'un tutoriel de Cafeine....
http://cafeine.developpez.com/access...echerchemulti/
http://cafeine.developpez.com/access...hemulti/#LIV-C
Pour rappel (en VBA)

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
SQL = "SELECT CodMedia, Titre, Auteur, Famille, Type FROM Medias Where Medias!CodMedia <> 0 "
 If Me.chkAuteur Then
    SQL = SQL & "And Medias!Auteur like '*" & Me.txtRechAuteur & "*' "
 End If
 If Me.chkFamille Then
    SQL = SQL & "And Medias!Famille = '" & Me.cmbRechFamille & "' "
 End If
 If Me.chkResume Then
    SQL = SQL & "And Medias!Résumé like '*" & Me.txtRechResume & "*' "
 End If
 If Me.chkTitre Then
    SQL = SQL & "And Medias!Titre like '*" & Me.txtRechTitre & "*' "
 End If
 If Me.chkType Then
    SQL = SQL & "And Medias!Type = '" & Me.cmbRechType & "' "
 End If
 
 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & ";"

Je te laisse transposer le code Vb.Net...

Laisse nous ton code modifié...

Gwendal