Это, видимо, .NET-код. ByteImage = System.IO.File.ReadAllBytes («C: \ my folder \ my file»)есть эквивалентный код в VBA Access 2007?
Поскольку я не использую .NET, есть ли эквивалентный код в VBA (Access 2007), который будет делать то же самое ?
Это, видимо, .NET-код. ByteImage = System.IO.File.ReadAllBytes («C: \ my folder \ my file»)есть эквивалентный код в VBA Access 2007?
Поскольку я не использую .NET, есть ли эквивалентный код в VBA (Access 2007), который будет делать то же самое ?
Возможно:
''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
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
Где декларация для variablve mstream? –
Это фрагмент, примечание 'New ADODB.Stream' – Fionnuala
Я думаю, что нецелесообразно публиковать фрагменты кода без их объявлений переменных. Даже rs должно иметь свое объявление, поскольку оно может быть либо двух типов записей, либо ADO, либо DAO. –