Convertir binaire en .JPEG

Question

Bref, pour mon problème j'ai une BD Access Photoqui contient une table Fiche:
      - champs : Matricule , Nom & Prénom , Photo
J'ai un dossier où les photos sont stockées nomées avec la matricule de la personne correspondante.
--> Donc je voulias avoir un script qui permet de chercher la photo dans ce dossier par la matricule et la stockée dans l'enregistrement correspondant type OLE Object et je l'ai trouvé mais reste qu'il me rend l'image en binaire donc comment convertir le binaire à .jpeg ?

 Voilà mon script : 

Sub test()
    Dim rs As ADODB.Recordset
    Dim stm As ADODB.Stream    Set rs = New ADODB.Recordset
    Set stm = New ADODB.Stream

    rs.Open "Fiche", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:	est\Photo.mdb", adOpenStatic, adLockOptimistic, adCmdTable

    stm.Type = adTypeBinary
    stm.Open
    stm.LoadFromFile "C:	est\A625068.JPG"    

    rs.AddNew
    rs!PHOTO = stm.Read
    rs.Update

    rs.Close
    stm.Close
    Set rs = Nothing
    Set stm = Nothing

End Sub

Veuillez m'aider SVP , il me reste pas bcp  ...

Bonne journée  .

Renfield · Answer

de binaire a .jpeg...

euh.... tu veux dire comment retrouver un fichier JPEG ? enregistre le contenu binaire dans un fichier...

Open "C:\a.jpg" for binary access write as #1
    put #1 ,  , rs.Fields("Photo")
Close #1

cs_njioua · Answer

D'une part ,non c'est pas comment retrouver une image .JPEG , mon script l'a retrouvé et il a réussit à me la transferer (l'image  .JPEG) dans mon champ OLE de ma BD ACCESS mais le problème c'est qu'il me la transfert en binaire et il me faut la convertir en  .JPEG
D'autre part , j' ai essayé ton code mais il m'affiche un message d'erreur :

 Erreur de compilation:
Opération de lecture ou Ecriture impossible sur une variable référençant un objet ou une variable de type défini par l'utilisateur contenant une référence d'objet.

Merci pour votre aide...

Renfield · Answer

ok, te faut un autre stream...
évidement qu'il stocke des données binaires, en faire une image n'est pas son job, mais celui du décodeur JPEG...

cs_njioua · Answer

Oui j'ai compris l'idée mais comment faire ? le script?

PCPT · Answer

tiens et t'es en VBA maintenant?
c'est bien çà change à chaque fois que tu poses la même question.....

http://www.vbfrance.com/infomsg_AFFICHER-IMAGE-OBJET-OLE-DANS-TABLE_1168168.aspx

cs_njioua · Answer

Oui j'ai vu ce lien car j' y discute aussi concernant mon problème et j'ai rien trouvé comme solution ... Aujourd'hui j'ai trouver un script qui me fait le travail : mais il me reste que comment convertir une image BITMAP (dans un champ OLE) dans ma BD Access au binaire ... voilà le script :

Sub PhotoBinaire_AccessDossier()



    Dim rs As ADODB.Recordset
    Dim stm As ADODB.Stream



    Set rs = New ADODB.Recordset
    Set stm = New ADODB.Stream



    rs.Open "select * from [1] where matricule='A256958'", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:	est\Photos.mdb", adOpenStatic, adLockOptimistic, adCmdText



    stm.Type = adTypeBinary
    stm.Open
    stm.Write rs.Fields("photo").Value
    stm.SaveToFile "C:	est	est.jpg"



    rs.Close
    stm.Close
    Set rs = Nothing
    Set stm = Nothing



End Sub

Ce script
m'a aider à transferer une image binaire vers un dossier mais dans ma base j'ai des image en bitmap donc il faut les convertir en binaire : si j'arrive à le faire donc j'ai résolu mon problème...

Merci pour votre aide,
Bonne journée.

Convertir binaire en .JPEG

6 réponses

Votre réponse

Discussions similaires