word存入数据库的问题。sos~~

Question

我在编写一套评估系统时遇到了这样一个问题：
在窗体上放置了一个按钮，当点击空虚按钮时。会用word打开本机上一篇 word文档。用户编辑完后就
点击文件菜单中的保存，把这篇word文档存入到数据库中，请问这样好实现 吗？，应该怎么样实现，，说个思路也行啊，谢谢

Answer 1

word文档存入到数据库中很容易实现，不过用户点击文件菜单中的保存 这个事件不大好捕捉

Answer 2

'保存Word文件到数据库'引用 Microsoft ActiveX Data Objects 2.5 Library 或以上版本
'字段myWord为image类型
Private Sub Command1_Click()
  On Error GoTo err
  Dim StmWord As ADODB.Stream
    '保存你所选择的文件
    Set StmWord = New ADODB.Stream
    StmWord.Type = adTypeBinary    '指定流是二进制类型
    CommonDialog1.ShowOpen    
    StmWord.Open                     '将数据获取到Stream对象中
    StmWord.LoadFromFile (CommonDialog1.FileName) '将选择的文件加载到打开的StmPic中
    rs.AddNew
    rs.Fields("myWord").Value = StmWord.Read   '从StmPic对象中读取数据
    rs.Update
    StmWord.Close
  Exit Sub
err:
  MsgBox err.Description
End Sub

Answer 3

在VB中我可以实现 保存，，但是当打开word后我就不能实现点保存后存入数据库了。这个是地方是不是要用到VBA操作呢

Answer 4

但是当打开word后我就不能实现点保存后存入数据库了
------------------------------------------------
这个 点保存 ，是指Word里File菜单下的保存吗

Answer 5

在Word里做的话，难啊，能不能改在vb里做呀

Answer 6

可以是可以，可是老总有个要求，就是要和word中的格式一样。这样用户操作起来方便。我原来在VB中作过，是在ole中，，实现了保存功能，但就是word中的那些工具条没有，，并且办面也不是
太好看，所以老总让把  word脱离出来。所以说我想问你一下有没有一个控件可以实现我说的这种功能。或者说方法也可以
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
faysky2 可不可以留下你的在线联系方式呢，如果方便的话加我的也可以MSN： [email protected]不方便就算了，，呵 呵 ====CSDN 小助手 V2.5 2005年11月05日发布====
CSDN小助手是一款脱离浏览器也可以访问Csdn论坛的软件
界面：http://blog.csdn.net/Qqwwee_Com/archive/2005/11/05/523395.aspx
下载：http://szlawbook.com/csdnv2

Answer 7

老总还让我们两个三天来完成呢，，我现在还没有作一点，，哎，烦。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
faysky2 可不可以留下你的在线联系方式呢，如果方便的话加我的也可以MSN： [email protected]不方便就算了，，呵 呵 

Answer 8

楼主的问题正是我的问题
严重关注
lgsl265