1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| ZoneRépétéeSupprimeTout(ZR_recherches)
retCode = gclMonAccess:mySQLExec(" SELECT * FROM tb_produit where NomP LIKE '%"+FEN_Recherches.SAI_rech+"%' ",0)
l est un entier=1
IF (retCode=1) THEN
gclMonAccess:mySQLPremier(0)
WHILE (NOT gclMonAccess:mySQLEnDehors)
ZoneRépétéeAjoute(ZR_recherches,i)
// C ICI OU JE VOUDRAI RECUPERAIS L IMAGE...
ZR_recherches[l].IMG_image = gclMonAccess:mySQLCol(0,7)//image
ZR_recherches[l].LIB_Libelle = gclMonAccess:mySQLCol(0,3)//libelle
ZR_recherches[l].LIB_prix = gclMonAccess:mySQLCol(0,5)//Prix
ZR_recherches[l].LIB_desc = gclMonAccess:mySQLCol(0,4)//description
l++
gclMonAccess:mySQLSuivant(0)
END
ELSE
Erreur("Erreur n° " + gclMonAccess:mySQLErreur, gclMonAccess:mySQLGetErrorMessage())
END
gclMonAccess:mySQLFerme(0) |
Partager