1、使用字段对象的AppendChunk/GetChunk
2、使用ADO Stream对象(2.5版本及以上才有)
该对象用于读写二进制字段数据的,如下是写的简单代码:
Set stm = New ADODB.Stream
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile (文件名)
rs.AddNew
rs.Fields(二进制字段).Value = stm.Read '从stm对象中读取数据
rs.Update
stm.Close
如下是读的简单代码:
Dim stm As ADODB.Stream
Set stm = New ADODB.Stream
With stm
.Type = adTypeBinary
.Open
.Write rs.Fields(二进制字段) '数据库中的数据写入Stream中
.SaveToFile 文件名, adSaveCreateOverWrite '将Stream中数据写入临时文件中
.Close
End With
Exit Sub