WORD文件存储问题

Question

怎样把一个WORD文件存储到数据库中，是整个WORD文件，不是只有它包含的文字内容。
谢！

Answer 1

你用的是什么数据库？
可用ado的stream对象完成。Public Sub SaveToDB( ByVal vFileName As String)
    
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim mstream As ADODB.Stream
    
    Const CnnStr = ""  ''连接字符         As String
    
    Set cn = New ADODB.Connection
    cn.CursorLocation = adUseClient
    cn.Open CnnStr
    
    Set rs = New ADODB.Recordset
    rs.Open "", cn, adOpenKeyset, adLockOptimistic, adCmdText
    Set mstream = New ADODB.Stream
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.LoadFromFile vFileName
    rs.Fields("存放文件的字段名").Value = mstream.Read
    rs.Update
    
    rs.Close
    cn.Close
End Sub

Answer 2

我认为先读取WORD的内容，再输出到报表