请问如何在vb里把数据以二进制的形式存到access里面,然后再读出来呢

Question

问题如标题.我是想把一个对象以property bag 的 方法存到数据库中 实现对象的持久化 .另外还想把 一些外部文件 以二进制的形式存到access数据库中 不知能否做到 诚盼赐教

Answer 1

看看
http://expert.csdn.net/Expert/topic/2575/2575392.xml?temp=.7955896

Answer 2

谢谢 可是我遇到了另外一个麻烦 就是如何使自己定义的类 支持 property bag 呢

Answer 3

Dim Chunk() As Byte 
Dim lngLengh As Long
Dim intChunks As Integer 
Dim intFragment As Integer
Const ChunkSize = 1000 '文件分块字节大小
Const lngDataFile = 1
********************************************
保存文件
'以二进制方式打开文件
    Open Trim(txtFilePath.Text) For Binary Access Read As lngDataFile
    lngLengh = LOF(lngDataFile)    ' 文件大小
    If lngLengh = 0 Then Close lngDataFile: Exit Sub
    intChunks = lngLengh \ ChunkSize
    intFragment = lngLengh Mod ChunkSize
    '新建记录
    rsImage.AddNew
        ReDim Chunk(intFragment)
        Get lngDataFile, , Chunk()
        rsImage!picImage.AppendChunk Chunk()
        ReDim Chunk(ChunkSize)
        For I = 1 To intChunks
            Get lngDataFile, , Chunk()
            rsImage!picImage.AppendChunk Chunk()
        Next I
    rsImage.Update
    Close lngDataFile
**************************************************
读取文件：
Open "tempfile" For Binary Access Write As lngDataFile 'tempfile为所写文件名
        lngLengh = rsImage!picImage.ActualSize
        intChunks = lngLengh \ ChunkSize
        intFragment = lngLengh Mod ChunkSize
        ReDim Chunk(intFragment)
        Chunk() = rsImage!picImage.GetChunk(intFragment)
        Put lngDataFile, , Chunk()
        For I = 1 To intChunks
           ReDim Buffer(ChunkSize)
           Chunk() = rsImage!picImage.GetChunk(ChunkSize)
           Put lngDataFile, , Chunk()
        Next I
    Close lngDataFile