二进制文件的数据转换成access数据表

Question

现在有几个用Ｃ写好的二进制文件，请问如何用ＶＢ读取这些二进制文件，并把它转换成access数据表．access数据表是先建立好的空表，就是用ＶＢ把这些数据写入，来实现数据的转换．

Answer 1

Option ExplicitPrivate Sub 写入数据库_Click()
    Dim con As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim strm As New ADODB.Stream
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
        ";Data Source=D:\study\student.mdb"
    With strm
        .Type = adTypeBinary    '二进制模式
        .Open
        .LoadFromFile "D:\tmp.jpg"
    End With
    
    rst.Open "select * from students where stuScore=77", con, adOpenStatic, adLockOptimistic
    rst.Fields!stuBZ = strm.Read
    rst.Update
    rst.Close
    strm.Close
    con.Close
End SubPrivate Sub 从数据库读_Click()
    Dim strm As New ADODB.Stream
    Dim con As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
        ";Data Source=D:\study\student.mdb"
    rst.Open "select * from students where stuScore=77", con, adOpenStatic, adLockOptimistic
    
    strm.Mode = adModeReadWrite
    strm.Type = adTypeBinary
    strm.Open
    strm.Write rst.Fields!stuBZ
    strm.SaveToFile "d:\huud.jpg"
    rst.Close
    strm.Close
    con.Close
End Sub