rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Convertir binaire en .JPEG

Njiwa, le jeudi 10 juillet 2008 à 12:43:20
Bonjour,
Bref, pour mon problème j'ai une BD Access Photo qui 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:\test\Photo.mdb", adOpenStatic, adLockOptimistic, adCmdTable

stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile "C:\test\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 .
Configuration: Windows XP
Internet Explorer 6.0
Répondre à Njiwa  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 Njiwa, le vendredi 11 juillet 2008 à 10:52:29
Bonjour,

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:\test\Photos.mdb", adOpenStatic, adLockOptimistic, adCmdText

stm.Type = adTypeBinary
stm.Open
stm.Write rs.Fields("photo").Value
stm.SaveToFile "C:\test\test.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.
   
Répondre à Njiwa
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger JPEG Saver 3.1.3JPEG Saver - JPEG Saver est un économiseur d'écran qui permet de faire défiler les images et photos de votre choix. Fonctionnalités: ...Catégorie: Personnalisation
Licence: Freeware/gratuit
Télécharger Free Mp3 Wma Converter 2.0Free Mp3 Wma Converter - Free Mp3 Wma Converter permet de convertir tout vos fichiers Mp3 , Wma , Ogg , AAC , m4a , mp4 , Ape , flac, Wav : ...Catégorie: Conversion
Licence: Freeware/gratuit
Télécharger AMV Convert Tool 3.68AMV Convert Tool - Le package MP3 Player Utilities contient notamment un lecteur permettant de lire les fichiers au format AMV ainsi qu'un...Catégorie: Edition vidéo
Licence: Freeware/gratuit
Télécharger Mobile 3GP Converter 1.0Mobile 3GP Converter - Le programme "Mobile 3GP Converter" permet de convertir des fichiers au format 3GP (extension *.3gp ou *.3g2) vers un...Catégorie: Edition vidéo
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « Convertir binaire en .JPEG »