Bonjour à tous,
Après avoir tenter pas mal de systèmes pour extraire un champ binary field d'une base access 2003 vers un fichier image (jpg), je me tourne vers vous pour m'éclairer.
En fait j'utilise ADODB pour me conecter à ma base, j'arrive à extraire mes records dans un recordset et à les parcourir.
Le problème vient au moment ou je veux placer mon champ binary dans un fichier.
J'ai essayé en passant par des byte(), des memorystream, des objets image, ... mais toujours sans succès.
Est-ce possible via ADODB ou faut-il utiliser autre chose?
Voici la dernière solution que j'ai tenté mais il me lance une erreur sur le WRITE me disant que l'objet ne supporte pas l'update !!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Dim myStm = New ADODB.Stream With myStm .Type = ADODB.StreamTypeEnum.adTypeBinary .Open() .Write(rstRecords.Fields(Me.txtFieldPhoto.Text.Trim).Value) .SaveToFile(Me.txtOutput.Text.Trim & "/" & filename, ADODB.SaveOptionsEnum.adSaveCreateOverWrite) .Close() End With
Merci d'avance pour vos idées.
Partager