spamito
Messages postés183Date d'inscriptionsamedi 24 mars 2007StatutMembreDernière intervention30 mars 2013
-
27 avril 2008 à 19:56
spamito
Messages postés183Date d'inscriptionsamedi 24 mars 2007StatutMembreDernière intervention30 mars 2013
-
27 avril 2008 à 20:12
Salut,
J'ai une base de données qui contient une table "CATEGORIES" avec des champs "Categorie" et "Photo".
Le champs photo contient le nom de l'image a affiché.
J'ai un combobox qui contient toutes les catégories, j'ai besoin à chaque que je choisi une de cettes catégories, son image doit apparaitre dans une picturebox.
Voici mon code, je ne reçoi aucun résultat, ni erreur :
Set cn = New Connection
cn.Open "File Name=" & App.Path & "\connect.Udl"
s = "SELECT CATEGORIES.CATEGORIE, CATEGORIES.PHOTO"
s = s + " FROM CATEGORIES"s s + " WHERE CATEGORIES.PHOTO'" + categorie + "';"
Set rs = New Recordset
rs.Open s, cn, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
photoc.Picture = LoadPicture("C:\GALV1.0\IMAGES\CAT") & rs.Fields(0)
Loop
cn.Close