~~~急啊！求助>怎样把Access数据库中OLE对象存储的WORD文档内容导出来啊？？？？？？？？？？

Question

我试了很多的方法，Stream的方法也试过，导是能够导出来，可是我不明白为什么导出来的是乱码
请高手指点迷津啊
还有什么好办法么？？？？？？？？？？？？？？最好有源码，有重谢啊

Answer 1

Dim doc_filename As String
　Dim abyte() As Byte
　rs.Open sql, cn, adOpenDynamic, adLockReadOnly
　temp_image() = rs("doc")
　doc_filename = App.Path + "\1.tmp"
　rs.Close
　Open doc_filename For Binary As #1
　Put #1, , abyte()
　Close #1
  Name App.Path & "\1.tmp" As App.Path & "\1.doc"

Answer 2

先谢谢了 我马上去试 我要是笨的弄不出来的话 那就又要麻烦你了
那个最后一句的 Name App.Path & "\1.tmp" As App.Path & "\1.doc"
什么意思?我没用过

Answer 3

那个最后一句的 Name App.Path & "\1.tmp" As App.Path & "\1.doc"  什么意思?
--------------------
是改写文件名字

Answer 4

找了些代码，你试看行不行
////////////////////
Option Explicit
Dim conn As New ADODB.Connection
Private Sub Command1_Click()
  Dim StmPic As New ADODB.Stream, rs As New ADODB.Recordset
    '保存你所选择的文件
    Set StmPic = New ADODB.Stream
    CommonDialog1.ShowOpen
    With StmPic
        .Type = adTypeBinary    '指定流是二进制类型
        .Open                     '将数据获取到Stream对象中
        .LoadFromFile (CommonDialog1.FileName) '将选择的文件加载到打开的StmPic中
    End With
    rs.Open "table1", conn, 3, 2
    rs.AddNew
    rs.Fields("wFile").Value = StmPic.Read   '从StmPic对象中读取数据
    rs.Update
    StmPic.Close
End SubPrivate Sub Command2_Click()
  Dim StmPic As ADODB.Stream, rs As New ADODB.Recordset
    Dim StrPicTemp As String
    '读取显示数据库中的文件
    Set StmPic = New ADODB.Stream
    StrPicTemp = "c:\temp.doc"    '临时文件,用来保存读出的文件
    rs.Open "select * from table1", conn, 3, 2
    With StmPic
        .Type = adTypeBinary
        .Open
        .Write rs.Fields("wFile")        '写入数据库中的数据至Stream中
        .SaveToFile StrPicTemp, adSaveCreateOverWrite  '将Stream中数据写入临时文件中
        .Close
    End With
End SubPrivate Sub Form_Load()
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp.mdb;Persist Security Info=False"
    conn.Open
End Sub