如何通过VB往SQL数据库里存取WORD文档？？

Question

存我已经做好了
    Set cnn = New ADODB.Connection
    cnn.Open constr
    Set rs = New ADODB.Recordset
    Dim rsstr1 As ADODB.Stream
    Set rsstr1 = New ADODB.Stream
    Dim rsstr2 As ADODB.Stream
    Set rsstr2 = New ADODB.Stream
    
    With rs
        .ActiveConnection = cnn
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open "select * from image"
    End With
    rsstr1.Type = adTypeBinary
    rsstr1.Open
    rsstr1.LoadFromFile Text10.Text
    
    rsstr2.Type = adTypeBinary
    rsstr2.Open
    rsstr2.LoadFromFile "d:\yf.doc"
    
    rs.AddNew
    rs.Fields("name") = "1001"
    rs.Fields("Word1").Value = rsstr1.Read
    rs.Fields("Word2").Value = rsstr2.Read
    rs.Update
    
但是我现在不知道怎么取了？
要先启动一个WORD吗？
没有思路！
请大家支着！
最好给出代码！
谢谢

Answer 1

我有一个类似的问题，如何向SQL里存取图片。
请各位大大不吝赐教！！！

Answer 2

ww_wyc(wen)可不可以给我也发一个，我现在也是要把一个pdf文件存取到oracle数据库里，谢谢了。
[email protected]

Answer 3

to sprite14:
    我已经发给你了，但是是在下班的时候发的，不知你收到没有。那是我为你做的一个access的例子，sql的原理是一样的。你把我源程序中的ado连接过程改为sql的连接就可以了（过程我已经写在源码中了）。不只是不是你要的结果，希望给我个回信。
to sala:
    我等一下发给你。pdf和doc文件的原理都是一样的。只是oracle的连接我就不知道了。希望你解决后能返回一份给我，让我也学习学习，谢谢了。

Answer 4

hello，给我也发一份吧，谢谢
[email protected]

Answer 5

你好!我也想要一个!
[email protected]

Answer 6

ww_wyc(wen) ,你好:我什么时候能收到! [email protected]

Answer 7

忘了邮箱了
   [email protected]