请问如何把WORD文件用二进制写到数据库中

fanty123 2004-02-25 08:43:16
本人在写一个编程,想把编辑完的WORD文件放到数据库中去。而是代码如下
Option Explicit

Public WithEvents mobjWordApp As Word.Application
Private WithEvents mobjDoc As Word.Document

Private Sub mobjDoc_Close()
Dim conn As ADODB.Connection
Dim tempOS As ADODB.Recordset
Dim mStream As ADODB.Stream
Set mStream = New Stream
Set conn = New ADODB.Connection
conn.ConnectionString = conStr
conn.Open
Set tempOS = New ADODB.Recordset
With mStream
.Type = adTypeBinary
.Open
.LoadFromFile strSave
End With
.......以下省略
End Sub
可是由于当前的WORED仍在编辑中,所以每次都会出现“无法打开文件”的错误,以致写不入数据库中。
本人曾在以上的代码结束处加入mobjWordApp.Quit,然后在Sub mobjWordApp_Quit中加入写入数据库中的代码就可以,但是这个方法的代价就是要退出WORD。
请问各位大侠其他什么办法吗?
...全文
13 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-02-25 08:43
社区公告
暂无公告