在VBA Access 2007中有相同的代码吗？

Question

这似乎是.NET框架代码。 ByteImage = System.IO.File.ReadAllBytes（“C：\ my folder \ my file”）

由于我不使用.NET，VBA（Access 2007）中是否有相同的代码可以执行相同的操作？

Answer 1

也许：

''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

您可以轻松地将其添加到记录集中，如下所示：

rs.AddNew
rs.Fields("ImageCol").Value = mstream.Read
rs.Update

Answer 2

  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