afficher le nombre de garçons et filles par etablissement ayant réussi à l'essai d'examen scolaire
etabSql est une chaîne
Rs1 est une Source de Données
Rs2 est une source de données
etabSql = "SELECT DISTINCT Etablissement AS Etablissement, "...
+ "Count(<Identifiant unique du fichier EssaiDepartementalentreesixieme>) AS NbGarcon, "...
+ "'0' AS NbFille "...
+ "FROM EssaiDepartementalentreesixieme "...
+ "WHERE Anneescolaire = '" + pannee + "' "...
+ "AND Etablissement ='"+petab+ "' "...
+ "AND Admis='"+padmis+ "' "...
+ "AND Sexe = "M"
//Exécution de la requête
SI PAS HExécuteRequêteSQL(Rs1,hRequêteDéfaut,etabSql) ALORS
Erreur(HErreurInfo())
RENVOYER Faux
FIN
etabSql = "SELECT DISTINCT Etablissement AS Etablissement, "...
+ "Count(<Identifiant unique du fichier EssaiDepartementalentreesixieme>) AS NbFille "...
+ "FROM EssaiDepartementalentreesixieme "...
+ "WHERE Anneescolaire = '" + pannee + "' "...
+ "AND Etablissement ='"+petab+ "' "...
+ "AND Admis='"+padmis+ "' "...
+ "AND Sexe = "F"
SI PAS HExécuteRequêteSQL(Rs2,hRequêteDéfaut,etabSql) ALORS
Erreur(HErreurInfo())
RENVOYER Faux
FIN
POUR Tous Rs2
SI HLitRecherche(Rs1,"Etablissement",Rs2.Etablissement) Alors
Rs1.NbFille++
HModifie(Rs1)
SINON
Rs1.Etablissement = Rs2.Etablissement
Rs1.NbGarcon = 0
Rs1.NbFille = 1
HAjoute(Rs1)
FIN
POUR TOUS Rs1
TableAjoute(tblreusetab,Rs1.Etablissement + TAB...
+ Rs1.NbGarcon + TAB...
+ Rs1.NbFille)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=2766&post_id=11624