如何导入导出ACCESS的长二进制文件呢？

Question

如何导入导出ACCESS的长二进制文件呢？
是用OLE对象吗？

Answer 1

如何把一个文件写入到ACCESS 又怎样读取出来
至于ACCESS数据库的字段类型是用OLE对象？

Answer 2

使用Stream对象？把文件以二进制的方式存入数据库

Answer 3

Private Sub cmdBrowse_Click()
CommonDialog1.ShowOpen
CommonDialog1.DialogTitle = "打开文件"
txtlujing.Text = CommonDialog1.FileName
End Sub
Private Sub Command1_Click()
Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set Stm = New ADODB.StreamConn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\Data.mdb;" & "persist security info=false"
Conn.Open
rs.Open "select * from a where ID=" & frmMain.MSHFlexGrid1.TextMatrix(frmMain.MSHFlexGrid1.RowSel, 1), Conn, adOpenKeyset, adLockOptimistic
Stm.Type = adTypeBinary
Stm.Open
     If Not rs.EOF Then
     Stm.LoadFromFile (CommonDialog1.FileName)    
     rs.Fields(4).Value = Stm.Read
     rs.Update
     MsgBox "成功", vbOKOnly, "提示"
     Else
     MsgBox "失败", vbOKOnly, "提示"
     Exit Sub
     Stm.Close
     rs.Clone
Conn.Close
End If
frmMain.res
Unload Me
End Sub

Answer 4

这样试试
CommonDialog1.ShowSave
CommonDialog1.DialogTitle = "保存文件"
Stm.Read =rs.Fields(4).Value 
Stm.SaveToFile CommonDialog1.FileName

Answer 5

另外你把
Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set Stm = New ADODB.Stream改为Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Stm As New ADODB.Stream那么每次你输入Stm.的时候后面的属性和方法就自动列出来了

Answer 6

CommonDialog1.ShowSave
CommonDialog1.DialogTitle = "保存文件"
Stm.Write rs.Fields(4).GetChunk(rs.Fields(4).ActualSize)
Stm.SaveToFile CommonDialog1.FileName