Chargement PictureBox

Question

Salut!

En mettant au point ce code, je m'attendais à ce qu'une fois la BD interrogée par la clé Numero, qu'elle puisse aussi renvoyer le chemin d'une image (dans le champs photo) qui est sensé apparaître dans picture1 après que son chemin soit passé en parametre... mais le resultat manque au rensez-vous.
C'est quoi le problème avec ce code ?

Dim VTrim, VReq As String

VTrim = Trim(Numero.Text)'prend la valeur du numero de la photo saisie parl'utilisateur

Set VBDId = New ADODB.Connection
Set VTabId = New ADODB.Recordset

VBDId.Provider = "Microsoft.Jet.OLEDB.4.0"
VBDId.ConnectionString = App.Path & "\BDID.mdb"
VBDId.Open
VReq "select*from TABID where Numero'" & VTrim & "'"
VTabId.Open VReq, VBDId, adOpenDynamic, adLockOptimistic

Text1.Text = VTabId!Numero
Picture1.Picture = LoadPicture(App.Path & "\VTabId!Photo.jpg")

Merci d'avance.

econs · Answer

Salut,

Pour l'instant, tu vas chercher un fichier dont le nom est VTabId!Photo.jpg (peu commun comme nom de fichier)

Je crois plut&#244;t que tu cherchais &#224; aller chercher le fichier dont le
nom correspond &#224; ce qu'il y a dans le champ Photo de ta table VTabId.



Essayes donc plut&#244;t ceci :
Picture1.Picture = LoadPicture(App.Path & "" & VTabId!Photo & ".jpg")

Si l'extension .jpg est d&#233;j&#224; pr&#233;sente dans la base de donn&#233;es, alors il faut juste faire ceci :

Picture1.Picture = LoadPicture(App.Path & "" & VTabId!Photo)



Pour t'assurer que tu vas bien chercher le bon fichier, pense &#224; faire :

MsgBox CeQueTuInscritDansLeLoadPicture

Tu verras alors quel fichier tu vas chercher. Ca t'aidera &#224; debugger.



Manu

Chargement PictureBox

1 réponse

Discussions similaires