Bonjour a Tous,
Voila mon Pb, je cherche a mettre a jour 1 imagelist (SmallIcon) avec des image qui se trouve dans une base de donnees (Base.mdb).
La structure de ma base est tres simple: 1 seule table (Photos) qui se compose 1 N Auto, 1 champs texte et 1 champs OLE (Logo) qui integre mes image BMP.
J'ai essaye avec le code suivant, mais j'ai un message d'erreur "Image non valide":
Dim Database As Database, Table As Recordset
Set Database = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\BASE.MDB")
Set Table = Database.OpenRecordset("Photos", dbOpenTable)
Table.MoveFirst
While Not Table.EOF
Me.ImageList1.ListImages.Add , , Table!logo
Table.MoveNext
Wend
Je pense que c'est a cause de l'objet OLE de ma table, mais je ne sais pas comment extraire mon image de cet objet. Si quelqu'un a la reponce....
Merci pour votre aide ou pour vous etre penche sur mon Pb.