Discussion :

[stenwulf]

Bonjour tous !
Je dois faire un requête selon des conditions.
J'ai fais cette condition mais elle est trop longue, y-a-t-il une façon plus simple pour l'écrire:

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
 
       If nomtxt.Text <> "" Then
 
            sql = "SELECT Nom,Prenom,Libelle5 as Société,Photo from MSESAME.MS_BADGE WHERE Nom='" + nomtxt.Text + "'"
 
        ElseIf prentxt.Text <> "" Then
 
            sql = "SELECT Nom,Prenom,Libelle5 as Société,Photo from MSESAME.MS_BADGE WHERE Prenom='" + prentxt.Text + "'"
 
        ElseIf soctxt.Text <> "" Then
 
            sql = "SELECT Nom,Prenom,Libelle5 as Société,Photo from MSESAME.MS_BADGE WHERE Libelle5='" + soctxt.Text + "'"
 
        ElseIf nomtxt.Text <> "" And prentxt.Text <> "" Then
 
            sql = "SELECT Nom,Prenom,Libelle5 as Société,Photo from MSESAME.MS_BADGE WHERE Nom='" + nomtxt.Text + "' and Prenom='" + prentxt.Text + "'"
 
        ElseIf nomtxt.Text <> "" And soctxt.Text <> "" Then
 
            sql = "SELECT Nom,Prenom,Libelle5 as Société,Photo from MSESAME.MS_BADGE WHERE Nom='" + nomtxt.Text + "' and Libelle5='" + soctxt.Text + "'"
 
        ElseIf prentxt.Text <> "" And soctxt.Text <> "" Then
 
            sql = "SELECT Nom,Prenom,Libelle5 as Société,Photo from MSESAME.MS_BADGE WHERE Prenom='" + prentxt.Text + "' and Libelle5='" + soctxt.Text + "'"
 
        ElseIf nomtxt.Text <> "" And soctxt.Text <> "" And prentxt.Text <> "" Then
 
            sql = "SELECT Nom,Prenom,Libelle5 as Société,Photo from MSESAME.MS_BADGE WHERE Nom='" + nomtxt.Text + "' and Prenom='" + prentxt.Text + "' and Libelle5='" + soctxt.Text + "'"
 
        End If

prentxt, nomtxt et soctxt se sont des textbox.
Merci d'avance

[tatayo]

Bonjour,
Tu peux préparer la première partie de la requête dans une chaine (juste les clauses Select et From).
Ensuite tu testes chaque textbox, et si elles ont une valeur tu ajoutes la condition dans une autre variable.

Enfin si la variable "condition" contient quelquechose, tu l'ajoutes avec un Where à la première partie de la requête.

Ainsi tu n'as pas besoin de tester chaque combinaison de critères, ce qui de toute façon deviendra vite ingérable...

Tatayo.

P.S. à mon avis ce n'est pas la bonne section, car c'est plus un problème de conception que de SQL.

[stenwulf]

En fait, je n'ai pas bien compris la solution que tu m'as proposée, si tu peux me bien expliquer je l'apprécierai de ta part.
Merci beaucoup.

[tatayo]

Je vois un truc du genre:

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
 
sql = "SELECT Nom,Prenom,Libelle5 as Société,Photo from MSESAME.MS_BADGE"
 
IF nomtxt.Text <> "" Then
	condition = " Nom='" + nomtxt.Text + "'"
endif
 
IF prenmtxt.Text <> "" Then
	if condition <> "" then
		condition = condition + " and "
	endif
	condition = " Prenom='" + Prentxt.Text + "'"
endif
 
IF soctxt.Text <> "" Then
	if condition <> "" then
		condition = condition + " and "
	endif
	condition = " libelle5='" + soctxt.Text + "'"
endif
 
IF condition <> "" then
	sql = sql + " where " + condition
endif

Tatayo.

[stenwulf]

Merci pour votre aide.J'ai édité le code que vous m'avez donné.

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
 
sql = "SELECT Nom,Prenom,Libelle5 as Société,Photo from MSESAME.MS_BADGE "
 
        If nomtxt.Text <> "" Then
            condition = " Nom='" + nomtxt.Text + "'"
            End if
        If prentxt.Text <> "" Then
            If condition <> "" Then
                condition = condition + " and Prenom='" + prentxt.Text + "'"
            Else
                condition = " Prenom='" + prentxt.Text + "'"
            End If
        End If
        If soctxt.Text <> "" Then
            If condition <> "" Then
                condition = condition + " and libelle5='" + soctxt.Text + "'"
            Else
                condition = " libelle5='" + soctxt.Text + "'"
            End If
        End If
        If condition <> "" Then
            sql = sql + " where " + condition
        End If

et à la fin de ma recherche je remets condition à zéro pour pouvoir la réutiliser

Code :

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

condition = ""

Merci beaucoup cordialement.

[juvamine]

Il y a plus simple, pour éviter de savoir s'il faut mettre where ou pas
Tu commences ton where par une condition toujours vrai
et ensuite tu ne mets que des AND

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sql = "SELECT Nom,Prenom,Libelle5 as Société,Photo from MSESAME.MS_BADGE "
condition = "WHERE 1 = 1 "
 
        IF nomtxt.Text <> "" Then
            condition = condition & " AND Nom='" + nomtxt.Text + "'"
        End IF
        IF prentxt.Text <> "" Then
                condition = condition & " and Prenom='" + prentxt.Text + "'"            
        End IF
        IF soctxt.Text <> "" Then
                condition = condition + " and libelle5='" + soctxt.Text + "'"            
        End IF
 
       sql = sql + condition

ça permet d'alléger un peu le code...

Bon courage

juva