Filtre sur table avec requête

**Aenur56** · 18/05/2010, 11h55

Bonjour,

Je n'arrive pas à appliquer un filtre sur une de mes tables.
Celle-ci est liée à une requête REQ_Agents qui sélectionne des données sur des agents.
J'ai un champ de saisie au-dessus de la table qui doit me permettre de filtrer les agents en fonction de ce que l'on saisie dans le champ. On doit pouvoir saisir le nom, le prénom ou le matricule de l'agent recherché.

J'ai fait plusieurs essais mais aucun n'a fonctionné.

Voici le code de ma requête :

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
SELECT 
	Agent.matricule AS matricule,	
	Agent.civilite AS civilite,	
	Agent.nom AS nom,	
	Agent.prénom AS prénom,	
	Agent.dateNaissance AS dateNaissance,	
	Agent.numTel AS numTel,	
	Agent.Adresseemail AS Adresseemail,	
	Agent.codeADELI AS codeADELI,	
	Agent.codeRPPS AS codeRPPS,	
	Grade.libelle AS libelle,	
	Pole.libelle AS libelle_Po,	
	Service.libelle AS libelle_Se,	
	Spécialité.libelle AS libelle_Sp,	
	UF.CodeUF AS CodeUF,	
	UF.libelle AS libelle_UF,	
	Agent.nomUsage AS nomUsage,	
	Agent.nomPatronymique AS nomPatronymique,	
	Agent.prénomUsage AS prénomUsage,	
	Agent.dateEffet AS dateEffet
FROM 
	Spécialité RIGHT OUTER JOIN Agent ON Agent.IDSpécialité	=	Spécialité.IDSpécialité,	
	Pole RIGHT OUTER JOIN Agent ON Agent.IDPole	=	Pole.IDPole,	
	Service RIGHT OUTER JOIN Agent ON Agent.IDService	=	Service.IDService,	
	Grade RIGHT OUTER JOIN Agent ON Agent.IDGrade	=	Grade.IDGrade,	
	UF RIGHT OUTER JOIN Agent ON Agent.IDUF	=	UF.IDUF
WHERE 
	(
	Agent.matricule <> '0'
)
ORDER BY 
	nom ASC,	
	prénom ASC,	
	matricule ASC

Et voici le code de mon champ (à chaque modification) :

Code :

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

1
2
3
HFiltre(REQ_Agents,"nom~]'"+SAI_ChercheAgent+"' OU prenom~]'"+SAI_ChercheAgent+"' OU matricule~]'"+SAI_ChercheAgent+"'")
HExécuteRequête(REQ_Agents, hAvecFiltre)
TableAffiche(TABLE_Agent,taCourantEnreg)

J'avais aussi essayé sans le HExécuteRequête mais sans résultat.

Si vous voyez d'où provient le problème, merci d'avance de me le faire savoir !

Aenur.

**hpascal** · 18/05/2010, 13h16

Bonjour
C'est peut être possible d'utiliser HFiltre sur une requête mais je trouve ça plutôt étrange.
Pourquoi ne pas utiliser des paramètres dans ta requête ? C'est beaucoup plus simple

**Aenur56** · 18/05/2010, 13h58

Tu veux dire en rajoutant une condition dans ce genre là : ?

Code :

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

1
2
3
WHERE nom = {param1}
OR prénom = {param1}
OR matricule = {param1}

Je crois que j'avais essayé mais ça ne marchait pas plus.
Je vais réessayer quand même mais je ne pense pas que ça sera mieux.

En attendant si quelqu'un a d'autres idées, je suis preneur

**Lo²** · 18/05/2010, 14h05

Salut à toi,

Je viens d'effectuer un test, et ma table se réinitialise bien.
Es-tu certain d'avoir le bon résultat sur l'application du filtre sur la requête ?

Peux-tu ajouter cela après le HExécuteRequête ?

Code :

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

1
2
3
4
5
6
7
8
SI HEnDehors(REQ_Agents) ALORS
	Trace("Aucun résultat trouvé !")
SINON
	TANTQUE PAS HEnDehors(REQ_Agents)
		Trace(REQ_Agents.matricule)
		HLitSuivant(REQ_Agents)
	FIN
FIN

**Aenur56** · 18/05/2010, 14h23

J'ai rajouté le code, ce qui me fait en code :

A chaque modification de SAI_ChercheAgent :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
HFiltre(REQ_Agents,"nom~]'"+SAI_ChercheAgent+"' OU prenom~]'"+SAI_ChercheAgent+"' OU matricule~]'"+SAI_ChercheAgent+"'")
HExécuteRequête(REQ_Agents, hAvecFiltre)
SI HEnDehors(REQ_Agents) ALORS
	Trace("Aucun résultat trouvé !")
SINON
	TANTQUE PAS HEnDehors(REQ_Agents)
		Trace(REQ_Agents.matricule)
		HLitSuivant(REQ_Agents)
	FIN
FIN
 
TableAffiche(TABLE_Agent,taCourantEnreg)

Initialisation de TABLE_Agent :

Code :

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

HExécuteRequête(REQ_Agents)

Quoi que je saisisse dans le champ, il m'affiche "Aucun résultat trouvé !", tout en affichant toujours toutes les entrées dans la table.

Je vois pas où est le problème :s

**Aenur56** · 18/05/2010, 14h34

a et pour hpascal : j'ai réessayé de faire tout en une requête mais ça ne marche pas plus

Peut être une erreur dans ma requête mais je ne pense 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
SELECT 
	Agent.matricule AS matricule,	
	Agent.civilite AS civilite,	
	Agent.nom AS nom,	
	Agent.prénom AS prénom,	
	Agent.dateNaissance AS dateNaissance,	
	Agent.numTel AS numTel,	
	Agent.Adresseemail AS Adresseemail,	
	Agent.codeADELI AS codeADELI,	
	Agent.codeRPPS AS codeRPPS,	
	Grade.libelle AS libelle,	
	Métier.libelle AS libelle_Mé,	
	Pole.libelle AS libelle_Po,	
	Service.libelle AS libelle_Se,	
	Spécialité.libelle AS libelle_Sp,	
	UF.CodeUF AS CodeUF,	
	UF.libelle AS libelle_UF,	
	Agent.dateEffet AS dateEffet
FROM 
	Spécialité RIGHT OUTER JOIN Agent ON Agent.IDSpécialité	=	Spécialité.IDSpécialité,	
	Pole RIGHT OUTER JOIN Agent ON Agent.IDPole	=	Pole.IDPole,	
	Service RIGHT OUTER JOIN Agent ON Agent.IDService	=	Service.IDService,	
	Grade RIGHT OUTER JOIN Agent ON Agent.IDGrade	=	Grade.IDGrade,	
	Métier RIGHT OUTER JOIN Agent ON Agent.IDMétier	=	Métier.IDMétier,	
	UF RIGHT OUTER JOIN Agent ON Agent.IDUF	=	UF.IDUF
WHERE 
	(
	Agent.matricule <> '0'
	AND	
	(
		Agent.nom LIKE %{Param1}%
		OR	Agent.prénom LIKE %{Param1}%
		OR	Agent.matricule LIKE %{Param1}%
	)
)
ORDER BY 
	nom ASC,	
	prénom ASC,	
	matricule ASC

Et le code de modification du champ de saisie :

Code :

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

1
2
HExécuteRequête(REQ_AgentsRecherche,SAI_ChercheAgent)
TableAffiche(TABLE_AgentsRecherche, taCourantEnreg)

Des idées ?

**Lo²** · 18/05/2010, 14h46

J'ai oublié le HlitPremier() avant le SI

**Aenur56** · 18/05/2010, 14h52

A oui exact ^^
Et bien après l'ajout du HLitPremier, il m'affiche tous les matricules des agents, quels que soient les lettres que je tape.

**Lo²** · 18/05/2010, 14h58

Faux espoirs, mon test a fonctionné par hasard... il s'agit en fait d'un projet fourre-tout et j'avais du code qui se répercutait sur la table.

Donc, je viens de retester et j'arrive aux mêmes résultats que toi, en ce qui concerne le filtrage de requête.
Par contre, si la table est liée à un fichier, ça fonctionne très bien.

Je vais quand même creuser ce HFiltre(..) sur les requêtes...

**Aenur56** · 18/05/2010, 15h05

Merci de m'aider à creuser

Je suis dans le même cas pour la table liée à un fichier, ma fonction HFiltre marchait nikel sans trop avoir à bidouiller. Mais là c'est vraiment tordu

Une solution, enfin une esquive plutôt est de créer 3 champ de saisie, un pour chaque rubrique et de faire un TableActiveFiltre() sur la colonne voulue.
Mais bon c'est vraiment la solution de dernier recours parce que c'est quand même beaucoup plus pratique et ergonomique de pouvoir rechercher suivant plusieurs rubriques dans un même champ.

Mais bon il doit bien exister une solution

**Lo²** · 18/05/2010, 16h03

J'ai trouvé une méthode :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Requête3.Param1 = "toto"
HExécuteRequête(Requête3)
HLitPremier(Requête3)
SI HEnDehors(Requête3) ALORS
	Trace("Aucun résultat trouvé !")
SINON
	TANTQUE PAS HEnDehors(Requête3)
		Trace(Requête3.NomContact)
		HLitSuivant(Requête3)
	FIN
FIN
 
TableAffiche(Table_2, taInit)

J'ai mis des conditions de sélection dans la requête pour avoir le résultat voulu et j'ai utilisé le taInit au lieu de taCourantEnreg.

**Aenur56** · 18/05/2010, 16h15

Arf je dois être maudit parce que ça marche pas si bien que ça chez moi...

La trace me met bien les bons matricules des agents recherchés mais par contre ma table n'affiche pas les résultats voulus, elle contient toujours tous les enregistrements je comprends pas pourquoi...

Ma requête est la même que celle du 6eme post
Mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
REQ_AgentsRecherche.Param1 = SAI_ChercheAgent
HExécuteRequête(REQ_AgentsRecherche)
HLitPremier(REQ_AgentsRecherche)
SI HEnDehors(REQ_AgentsRecherche) ALORS
	Trace("Aucun résultat trouvé !")
SINON
	TANTQUE PAS HEnDehors(REQ_AgentsRecherche)
		Trace(REQ_AgentsRecherche.matricule)
		HLitSuivant(REQ_AgentsRecherche)
	FIN
FIN
 
TableAffiche(TABLE_AgentsRecherche, taInit)

Tu vois d'où vient le problème ?

**Lo²** · 18/05/2010, 16h17

As-tu du code dans l'Initialisation de la table ?

**Aenur56** · 18/05/2010, 16h24

T'as raison ça vient de là !

J'avais un MaSource.Param1 = "" à l'initialisation de ma table donc à chaque fois il prenait ça comme paramètre alors je l'ai mis à l'initialisation de la fenêtre finalement (comme ça j'ai pas un tableau vide qui s'affiche à l'ouverture).

Maintenant la recherche marche nikel merci beaucoup pour ton aide Lo² je te suis très reconnaissant

Filtre sur table avec requête [WD14]

WinDev

Discussions similaires

Partager

Partager