关于数据库存取word,excel文档的问题

Question

我现在要用vb程序把一些word,excel文档保存进数据库，然后在其他机器用vb程序读取这些文档让用户通过vb程序界面修改查看这些文档。我想用ole技术在vb程序界面中使用word,excel界面，可是我不知道如何把一些word,excel文档保存进数据库并且读取，使用varbinary类型吗？我用的数据库是SQL server。哪位高人请指点一下，最好有源程序演示。

Answer 1

1：按2进制文件方式保存 ， 你搜索下保存图片的方式
2：用文本字段保存 ：要先转成BASE64了

Answer 2

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long'工程->引用->Micorosft Word 9.0 Object Library (后面为版本号)
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset'保存
Private Sub Command1_Click()
    Dim stmCon As New Stream
    
    stmCon.Type = adTypeBinary
    stmCon.Open
    stmCon.LoadFromFile "C:\bb.doc"
        
    If rs.State = adStateOpen Then rs.Close
    cn.CursorLocation = adUseClient
    cn.Execute "DELETE FROM TABLENAME"
    rs.Open "SELECT * FROM TABLENAME", cn, adOpenDynamic, adLockOptimistic    rs.AddNew
    rs!ID = "12"
    rs!Name = "bb"
    rs.Fields("DOC") = stmCon.Read
    rs.Update
    
    stmCon.Close
    Set stmCon = Nothing
End Sub'打开
Private Sub Command2_Click()
    Dim stmCon As New Stream
    
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM TABLENAME", cn, adOpenForwardOnly, adLockReadOnly
    If Not rs.EOF Then
        stmCon.Type = adTypeBinary
        stmCon.Open
        stmCon.Write (rs.Fields("DOC").Value)
        stmCon.SaveToFile "C:\aa.doc", adSaveCreateOverWrite
    End If    ShellExecute Me.hwnd, "open", "C:\aa.doc", vbNullString, vbNullString, 1
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
        "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End Sub