Re: Besoin d'aide Requêtes
Posté par drcharly93 le 5/1/2005 10:52:25
Bonjour Cyber,
Ainsi si vous ne saisissez rien dans votre champs la sélection sera faites sur tous les groupes
Dans le champs les valeurs doivent être séparées par des virgules si l'identifiant du groupe.
Vous pouvez pour que cela plus simple pour l'utilisateur avoir une table avec des interrupteurs qui permettent de cocher les groupes voulues.
Ainsi vous parcourez cette table pour récupérer les identifiant de groupe nécessaire.
Rs est une Source de Données
Sql est une chaîne
nIDGroupe est un entier
//Affecter ici nIDGroupe en fonction du champs de saisie.
Sql="SELECT DISTINCT
IDPERSONNE As IDPersonne,
NOM AS Nom,PRENOM AS Prenom,
CodePostal AS CODEPOSTAL
FROM PERSONNE, PERGRO
WHERE PERGRO.IDPERSONNE = PERSONNE.IDPERSONNE "
SI nIDGroupe > 0 Alors
Sql += "AND PERGRO.IDGroupe IN (" + nIDGroupe + ")"
FIN
SI PAS HExécuteRequêteSQL(rs,hRequêteDéfaut,sql) ALORS
Erreur(HErreurInfo)
RETOUR
FIN
HLitPremier(rs)
TANTQUE PAS HEnDehors(rs)
TableAjoute(Table4,Rs.IdPersonne+TAB+Rs.nom+TAB+Rs.prenom+TAB+Rs.codepostal)
HLitSuivant(Rs)
FIN
Ainsi si vous ne saisissez rien dans votre champs la sélection sera faites sur tous les groupes
Dans le champs les valeurs doivent être séparées par des virgules si l'identifiant du groupe.
Vous pouvez pour que cela plus simple pour l'utilisateur avoir une table avec des interrupteurs qui permettent de cocher les groupes voulues.
Ainsi vous parcourez cette table pour récupérer les identifiant de groupe nécessaire.
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1617&post_id=6763