Cela semble être du code de framework .NET. ByteImage = System.IO.File.ReadAllBytes ("C: \ mon dossier \ mon fichier")est-il le code équivalent dans VBA Access 2007?
Puisque je n'utilise pas .NET, y at-il un code équivalent dans VBA (Access 2007) qui fera la même chose ?
Peut-être:
''Reference: Microsoft ActiveX Data Objects x.x Library
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "c:\docs\image.jpg" 'FileNameToLoadWithFullPath
Vous pouvez facilement ajouter à un recordset comme ceci:
rs.AddNew
rs.Fields("ImageCol").Value = mstream.Read
rs.Update
Dim ByteImage() As Byte
Open "C:\my folder\my file" For Binary Access Read As #1
ReDim ByteImage(1 To LOF(1))
Get #1, , ByteImage
Close #1
Où est la déclaration pour la mstream de variablve? –
Ceci est un extrait, notez 'New ADODB.Stream' – Fionnuala
Je pense qu'il est déconseillé de publier des extraits de code sans leurs déclarations de variables. Même rs doit avoir sa déclaration, car il peut s'agir de deux types de jeu d'enregistrements, ADO ou DAO. –