读写二进制字段数据

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

阅读更多
文章标签: stream 数据库
个人分类: VB
上一篇SendMessage相关问题
下一篇structure与byte数组相互转换
想对作者说点什么? 我来说一句

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

关闭
关闭
关闭