/ Vide la zone répétée ZoneRépétéeSupprimeTout(ZR_Recherche) //Remplir les zone repétées exeReq est un booléen = SQLExec("SELECT * FROM produit WHERE archive = "+0, "SQL1") SI exeReq ALORS TANTQUE SQLAvance("SQL1") = 0 SQLPremier("SQL1") //Affectation des valeurs idProd = SQLCol("SQL1", 1) libelleProd = SQLCol("SQL1", ref = SQLCol("SQL1", 2) idFamille = SQLCol("SQL1", 9) photo = SQLCol("SQL1", 4) prixAchat = SQLCol("SQL1", 5) prixVente = SQLCol("SQL1", 6) familleProduit = RechercheFamille(idFamille) // Ajoute le produit dans la zone répétée ZoneRépétéeAjouteLigne(ZR_Recherche) i = ZoneRépétéeOccurrence(ZR_Recherche, toTotal) // On renseigne les attributs de la zone répétée ATT_Nom = libelleProd ATT_Image = photo ATT_ID = idProd ATT_IDFamille = idFamille ATT_Référence = ref ATT_Prix_Achat = prixAchat ATT_Prix_Vente = prixVente ATT_Famille = familleProduit SQLSuivant("SQL1") FIN SINON Info("Le fichier est vide") FIN SQLFerme("SQL1")
Salut Ça me paraît normal puisqu' il y a Code (Text): TANTQUE SQLAvance("SQL1") = 0 SQLPremier("SQL1")
L'aide est pourtant claire. Mais c'est tellement plus facile via les forums. (que de temps perdu !) Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!