word与vb的问题

[supermog]

能否将在word里输入的内容通过vb放入到数据库中呢？如果可以应怎样编程呢？

[cindytsai]

http://community.csdn.net/Expert/topic/3548/3548319.xml?temp=.2650568
http://community.csdn.net/Expert/topic/3457/3457852.xml?temp=.6339075

[supermog]

我的意思不是将整个word放进数据库，而是把word里的内容分开放到数据库，如word文件里有标题和正文，我想把标题与正文输入的内容分别放到数据库表的不同项中。

[射天狼]

可以,与图片的方式一样,保存二进制数据!!

'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim rs As New ADODB.Recordset, cn As New ADODB.Connection

Private Sub Form_Load()
cn.ConnectionString = "Driver={SQL Server};SERVER=DataServer;DATABASE=zxzx;UID=information;PWD=information*&#"
cn.Open

'查询字符串可以上这里查
'http://www.connectionstrings.com/
End Sub

'保存WORD文件内容
Dim lb_Word() As Byte

Open OfName.lpstrFile For Binary Access Read As #1
lb_Word = InputB(LOF(1), #1)
Close #1

s.Open "SELECT DOC FROM TABLENAME", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("DOC").AppendChunk lb_Word
rs.Update

[xiaoxiaoP]

学习学习，以前我都是在数据库里存一个指向word文件的地址。

[Akun22]

mark