请教读取数据库Access中OLE字段记录的问题

Question

本帖最后由 xueban69 于 2009-11-14 21:33:24 编辑

Answer 1

干嘛要删，可以建立一个cache目录，将生成的文件放到这里。

Answer 2

我用的是如下代码，在读取了一条记录后，再读取下一条记录时，会提示“写入文件失败”：
Private Sub tk_ReadFile()
   Set tm_Stm = New ADODB.Stream
   With tm_Stm
      .Mode = adModeReadWrite
      .Type = adTypeBinary
      .Open
      .Write Rs("题目")
      .SaveToFile App.Path & "\tm.doc"
   End With
   With OLE1
      .SourceDoc = App.Path & "\tm.doc"
      .Action = 1                                      '从文件的内容中创建链接对象
   End With
End Sub

Answer 3

加了下面的代码，临时文件被删除了，但必须重启软件，否则，无法读取下一条记录，好烦人啊：
           Kill App.Path & "\题目.doc"

Answer 4

哎，再帮你一下吧，本不想再说什么。Private Sub tk_ReadFile() 
  static i as long
  Set tm_Stm = New ADODB.Stream 
  With tm_Stm 
      .Mode = adModeReadWrite 
      .Type = adTypeBinary 
      .Open 
      .Write Rs("题目") 
      .SaveToFile App.Path & "\tm" & cstr(i) & ".doc" 
  End With 
  With OLE1 
      .SourceDoc = App.Path & "\tm" & cstr(i) & ".doc" 
      .Action = 1                                      '从文件的内容中创建链接对象 
  End With 
  i=i+1
End Sub private sub form_load()
   kill App.Path & "\tm*.doc"
end sub

Answer 5

再次谢谢asftrhgjhkjlkttttttt，您的方法可行，有什么方法解决读取速度过慢吗？请问要读取（数据库access）OLE字段储存的word，就只能用ADODB.Stream吗？倒来倒去，好烦啊！