
FileToBlob – Copy a file’s contents into a BLOB field
‘ Copy a file’s contents into a BLOB field.Sub FileToBlob(fld As ADODB.Field, filename As String, _ Optional ChunkSize As Long = 8192) Dim fnum As Integer, bytesLeft As Long, bytes As Long Dim tmp() As Byte ‘ Raise an error if the field doesn’t support GetChunk. If (fld.Attributes And adFldLong)