Affichage d'une image [Résolu]

Signaler
Messages postés
183
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
30 mars 2013
-
Messages postés
183
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
30 mars 2013
-
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

Aidez moi SVP et merci.

1 réponse

Messages postés
183
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
30 mars 2013

Je rectifi une 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.CATEGORIE='" + categorie + "';"

Set rs = New Recordset
rs.Open s, cn, adOpenDynamic, adLockOptimistic

photoc.Picture = LoadPicture(rs.Fields(1))

cn.Close

Pas la peine de mettre de boucle