Convertir binaire en .JPEG
Njiwa
-
Njiwa -
Njiwa -
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 .
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 .
A voir également:
- Convertir binaire en .JPEG
- Binaire - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Convertir epub en kindle - Guide
- Convertir kindle en epub - Guide
- Convertir audio en texte word - Guide
1 réponse
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.
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.
