High-Tech Santé Médecine Droit-Finances

IMPÔTS 2010

Agissez maintenant !

Rechercher : dans
Par :

Convertir binaire en .JPEG

Dernière réponse le 11 jui 2008 à 10:52:29 Njiwa, le 10 jui 2008 à 12:43:20 
 Signaler ce message aux modérateurs

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

Meilleures réponses pour « Convertir binaire en .JPEG » dans :
[PDF] Convertir des PDF en images (JPEG, BMP, GIF, etc...) VoirSi vous avez des documents PDF et que vous voulez les convertir en images (JPEG, GIF, BMP, ou n'importe quel format), de manière à les exploiter, par exemple dans un logiciel d'OCR ou de retouche/création d'images : Note : Cet article présente une...
Conversion d'une adresse IP en entier 32 bits VoirNous allons faire un ping sur commentcamarche.net, pour récupérer l'adresse IP (voir en gras) $ ping -c1 commentcamarche.net PING commentcamarche.net (194.169.240.130) 56(84) bytes of data. 64 bytes from www.commentcamarche.org (194.169.240.130):...
Télécharger Free Word/Doc Txt to Image Jpg/Jpeg Bmp Tiff Png VoirD'habitude, ce sont les images que l'on insère dans les documents Word, Excel ou PowerPoint. Cette fois ci, c'est un peu l'inverse, parce qu'on va convertir ces documents au format image. All to Image Jpg/Jpeg Bmp Tiff Png Converter est un outil...
Télécharger Convert JPG to PDF Voir
Le codage binaire VoirPrésentation du binaire Bit Poids des bits Conversions Octet KiloOctets, MégaOctets Opérations en binaire Addition binaire Multiplication binaire Présentation du binaire Vers la fin des années 30, Claude Shannon démontra qu'à l'aide...
Système hexadécimal VoirSystème hexadécimal Les nombres binaires étant de plus en plus longs, il a fallu introduire une nouvelle base : la base hexadécimale. La base hexadécimale consiste à compter sur une base 16, c'est pourquoi au-delà des 10 premiers chiffres on a...
Posez votre question Répondre

1

 Njiwa, le 11 jui 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
Ils ont besoin de votre aide