Objet OLE (image) dans Access

Objet OLE (image) dans Access - VB/VBA/VBS - Programmation

Marsh Posté le 13-10-2005 à 15:10:38    

Salut à tous,
 
Voila mon problème: j'ai récupéré une base access qui contient des images stockée en tant qu'image.
Je voudrais les "sortir" de la base pour les enregistrer en format bitmap sur mon disque dur.
 
J'ai donc la fonction suivante :

Code :
  1. Private Sub essai()
  2. On Error Resume Next
  4. Dim cn As ADODB.Connection
  5. Dim rs As ADODB.Recordset
  6. Dim mstream As ADODB.Stream
  8. Set cn = New ADODB.Connection
  9. cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurrentProject.Path & "\donnees2002.mdb"
  11. Set rs = New ADODB.Recordset
  12. rs.Open "Select * from SIGNATURES", cn, adOpenKeyset, adLockOptimistic
  13. While Not rs.EOF
  14.     Set mstream = New ADODB.Stream
  15.     mstream.Type = adTypeBinary
  16.     mstream.Open
  17.     mstream.Write rs.Fields("signature" ).Value  ' Objet OLE contenant le bitmap
  18.     mstream.SaveToFile CurrentProject.Path & "\images\" & rs.Fields("NuméroBMP" ).Value & ".bmp", adSaveCreateOverWrite
  19.     rs.MoveNext
  20. Wend
  21. rs.Close
  22. cn.Close
  24. End Sub


 
Le hic c'est qu'il enregistre l'objet OLE en entier (l'encapsulation du bitmap), et je ne sais pas comment faire pour récupérer l'image dans l'objet OLE.
 
Merci par avance ;)

Reply

Marsh Posté le 13-10-2005 à 15:10:38   

Reply

Marsh Posté le 17-10-2005 à 11:46:17    

UP  :hello:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed