读写二进制字段数据

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

阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页