请问如何把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。
请问各位大侠其他什么办法吗?
...全文
52 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧