PROCEDURE afficheCategories(nNumPage est un entier, nNbParPage est un entier)
sReq est une chaîne
sNomReq est une chaîne = "requeteCategories"
sNomReq2 est une chaîne = "requeteApplicationsDansCategorie"
bRes est un booléen
nNbNews est un entier
nNbPages est un entier
i est un entier = 0
initBarreNav("SELECT COUNT(*) FROM categorie", nNumPage)
SI connecteBdd() ALORS
sReq = "SELECT * FROM categorie ORDER BY libCat LIMIT " + ((nNumPage-1)*ListeSelect(cmb_nbParPage)) + "," + nNbParPage
bRes = SQLExec(sReq, sNomReq)
SI PAS bRes ALORS
SQLInfoGene()
Erreur("Erreur lors de l'exécution de la requête.","Détail de l'erreur : ", " ", SQL.MesErreur)
SINON
MaFenêtre..Plan = 3
grp_controles..Visible = Vrai
ZoneRépétéeSupprimeTout(zr_categ)
i=0
TANTQUE SQLAvance(sNomReq) = 0
i++
ZoneRépétéeAjouteLigne(zr_categ)
zr_categ[i].sai_idCat = SQLLitCol(sNomReq,1)
zr_categ[i].sai_libCat = SQLLitCol(sNomReq,2)
sReq = "SELECT idApp, nom FROM application WHERE idCat=" + zr_categ[i].sai_idCat
bRes = SQLExec(sReq, sNomReq2)
SI PAS bRes ALORS
SQLInfoGene()
Erreur("Erreur lors de l'exécution de la requête.","Détail de l'erreur : ", " ", SQL.Erreur)
SINON
Info(zr_categ[i].lis_applis..Type, typListe)
TANTQUE SQLAvance(sNomReq2) = 0
// Le problème se situe ici...
ListeAjoute(zr_categ[i].lis_appli, SQLLitCol(sNomReq2,2) + gLien(SQLLitCol(sNomReq2, 1)))
FIN
FIN
SQLFerme(sNomReq2)
FIN
FIN
SQLFerme(sNomReq)
FIN
grp_appli..Etat = Inactif
SQLDéconnecte()
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4174&post_id=17204