word格式问题，高手请进!在线等，解决后马上结帖！

用word编辑完数据后，点击保存后，就把数据连同整个word文档的格式一同保存进数据库。请问有什么办法？ 问题点数：50、回复次数：12Top

1 楼AKillGodKillBuddha（神挡杀神 佛挡杀佛）回复于 2004-08-02 15:24:55 得分 50

不如直接把这个文件保存到数据库中  
  z字段的格式设为imageTop

2 楼adamcn（adamcn）回复于 2004-08-02 15:29:51 得分 0

存为二进制文件Top

3 楼LGYAN（紫衣随想）回复于 2004-08-03 13:56:42 得分 0

如果是SQL   Server就直接把Word文档保存到Image字段类型中  
  如果是Oracle则可以保存到LongRaw或者Blob等等中。使用ADO的Stream类。  
   
  如果是Oralce，Oracle有自定义的对象，保存极为简单。Top

4 楼shine（阿帅)(【抵制日本】）回复于 2004-08-03 14:02:28 得分 0

这需要重新定义word的“保存”按钮功能。使用VBATop

5 楼shine（阿帅)(【抵制日本】）回复于 2004-08-03 14:03:45 得分 0

为此你必须定义一个新的word模板，把vba定义进去。  
  Top

6 楼huanshen0634（绿色的地球）回复于 2004-08-04 09:11:04 得分 0

有没有具体的代码和或者实例可以供我参考的？Top

7 楼huanshen0634（绿色的地球）回复于 2004-08-04 12:46:09 得分 0

LGYAN(紫衣随想)   ，怎么把Word文档保存到Image字段类型中？  
  请给一段实例代码，谢谢！Top

8 楼huanshen0634（绿色的地球）回复于 2004-08-05 10:36:14 得分 0

这个问题急待解决，请高手帮忙，在线等Top

9 楼delphi999（总在想，却不愿做！）回复于 2004-08-06 14:20:35 得分 0

这个过程将文件保存到数据库中   SQL-SERVER   文件字段   IMAGE类型  
  Private   Sub   SaveWord(Strpath   As   String,   Filename   As   String)                                                         '这个过程是将文件保存到数据库中  
  Dim   Rst   As   ADODB.Recordset  
  Dim   Datafile   As   String                                                         '定义一个管道用的数组  
  Dim   Size   As   Long                                                                                                                                                  
  Dim   WENJIANN()   As   Byte                                                                                                                                      
  On   Error   GoTo   Errh  
          Datafile   =   1  
          Set   Rst   =   New   ADODB.Recordset  
          '求出要写入的数段  
          If   state   =   0   Then  
                  Txtid.Text   =   RstNo  
                  Rst.Open   "SELECT   *   FROM   B_GZZJ_INFO",   connpub,   adOpenDynamic,   adLockPessimistic,   adCmdText  
                  Rst.AddNew                                                                                     '打开新的一行  
                  Rst.Fields("GZZJ_INFO_ID")   =   Val(Txtid.Text)  
                  Rst.Fields("Gzzj_Year")   =   Fyear  
          End   If  
          If   state   =   1   Then  
                  Rst.Open   "SELECT   *   FROM   B_GZZJ_INFO   where   GZZJ_INFO_ID=   "   &   Val(Txtid)   &   "     ",   connpub,   adOpenDynamic,   adLockPessimistic,   adCmdText  
                  Rst.Update  
          End   If  
          If   Wordstate   =   1   Then  
              Open   Strpath   For   Binary   Access   Read   As   #Datafile                                                                              
              Size   =   LOF(Datafile)                                                                                                                  
              Do   While   Size   >   0                                                                                                                    
                  ReDim   WENJIANN(Size)   As   byte                                                                                                        
                  Get   #Datafile,   ,   WENJIANN                                                                                                                
                  Rst("WD").AppendChunk   WENJIANN                                                                                                
                  Size   =   Size   -   Size   '关闭这个循环  
              Close   #Datafile                                                                                                                                            
          End   If  
           
           
          Rst.Fields("a")   =   FkindId  
          Rst.Fields("b")   =   FDeptCode  
          Rst.Update  
          Rst.Close  
          Set   Rst   =   Nothing  
   
  Exit   Sub  
  Errh:  
        MsgBox   err  
  End   SubTop

10 楼delphi999（总在想，却不愿做！）回复于 2004-08-06 14:23:39 得分 0

自己把字段的名称整理一下就好了  
  要想在WORD退出时执行上面的过程，需要  
  Public   WithEvents   AppWord   As   Word.Application   这样定义  
  然后添加AppWord的相应事件Top

11 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2004-08-06 15:04:13 得分 0

http://office.9zp.com/dispbbs.asp?boardID=15&ID=2162Top

12 楼flyingZFX（卍 南无阿弥陀佛 卍）回复于 2004-08-13 16:22:12 得分 0

办法太多了，而且，也非常简单，呵呵，你就直接把文件存进数据库就可以了。  
  Top

相关问题

• 字段
• 数据库
• 文档
• 文件
• word
• gzzj
• rst
• 保存
• 格式
• datafile

• 帖主：huanshen0634
• AKillGodKillBuddha

• Visual Basic类图书
• Visual Basic类源码下载