vb向如何access中读写二进制文件

Question

我想向access中学入二进制数据,不知道怎么实现.
那位大侠有相关的例子,可以发给我看看吗?
谢谢!
分数不是问题,可以追加!

Answer 1

Private Sub Command1_Click()
    Dim v(2) As Byte
    v(0) = 1
    v(1) = 2
    v(2) = 3
    
    Dim rs As ADODB.Recordset
    Dim Con As ADODB.Connection
    
    Set Con = New ADODB.Connection
    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\WW_SOFT\DB.mdb;Persist Security Info=False"
    
    Con.Execute "Delete From FileBlock"
    
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "Select * From FILEBLOCK Where FILEID = 3 And BLOCKID = 1", Con, adOpenKeyset, adLockOptimistic
    If rs.EOF Then
        rs.AddNew
        rs.Fields("BlockData").AppendChunk v
        rs.Update
    End If
    rs.Close
End Sub

Answer 2

‘打开二进制文件    Dim Bytes() as Byte
    Dim m_FileLen as Long
    m_FileLen = FileLen(FileName)
    ReDim Bytes(m_FileLen)
    
    fNum = FreeFile
    Open FileName For Binary As fNum
    Get #fNum, , Bytes
    Close #fNum

Answer 3

ole对象怎么用!
还有ado stream 是怎么回事!

Answer 4

adostream是ADO2.5之後的版本添加的功能。
可以用他讀取任意文件到數據庫中，
字段類型為OLE。

Answer 5

以下是一个把Word文档以二进制写入Access数据库然后读出来的代码：
数据库中的字段类型为OLE类型Dim cn as New ADODB.Connection,rs As New ADODB.Recordset
Private Sub Command1_Click()
    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\DB.mdb;Persist Security Info=False"  
    set rs=cn.execute("Select * From tableName")
    call WriteFile
    call ReadFile
End SubPrivate Sub WriteFile()
    Dim StmPic As New ADODB.Stream,filePath as string
    StmPic.Type = adTypeBinary    '指定流是二进制类型
    filePath="c:\test.doc"
    StmPic.Open                     '将数据获取到Stream对象中
    StmPic.LoadFromFile (filePath) '将文件加载到打开的StmPic中
    rs.AddNew
    rs.Fields(0).Value = StmPic.Read   '从StmPic对象中读取数据
    rs.Update
    StmPic.Close
End SubPrivate Sub ReadFile()
    Dim StmPic As New ADODB.Stream，strTemp
    strTemp = "c:\temp.doc"    '临时文件,用来保存读出的文件
    With StmPic
        .Type = adTypeBinary
        .Open
        .Write rs.Fields(0)       '写入数据库中的数据至Stream中
        .SaveToFile StrPicTemp, adSaveCreateOverWrite  '将Stream中数据写入临时文件中
        .Close
    End With
End Sub

Answer 6

fanny_20(独钓秋水)你没看好别人的例子吗，晕死

Answer 7

就是用ADO.Stream对象来解决，很简单的