*************************************************************************
'**
'**使用ADODB.Stream保存/读取文件到数据库
'**引用MicrosoftActiveXDataObjects2.5Library及以上版本
'**
'**-----数据库连接字符串模板---------------------------------------
'**ACCESS数据库
'**iConcStr="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False"&_
'**";DataSource=数据库名"
'**
'**SQL数据库
'**iConcStr="Provider=SQLOLEDB.1;PersistSecurityInfo=True;"&_
'**"UserID=用户名;Password=密码;InitialCatalog=数据库名;DataSource=SQL服务器名"
'**
'*************************************************************************
'
'保存文件到数据库中
Subs_SaveFile()
DimiStmAsADODB.Stream
DimiReAsADODB.Recordset
DimiConcStrAsString
'数据库连接字符串
iConcStr="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False"&_
";DataSource=F:/MyDocuments/客户资料1.mdb"
'读取文件到内容
SetiStm=NewADODB.Stream
WithiStm
.Type=adTypeBinary'二进制模式
.Open
.LoadFromFile"c:/test.doc"
EndWith
'打开保存文件的表
SetiRe=NewADODB.Recordset
WithiRe
.Open"表",iConc,adOpenKeyset,adLockOptimistic
.AddNew'新增一条记录
.Fields("保存文件内容的字段")=iStm.Read
.Update
EndWith
'完成后关闭对象
iRe.Close
iStm.Close
EndSub
'从数据库中读取数据,保存成文件
Subs_ReadFile()
DimiStmAsADODB.Stream
DimiReAsADODB.Recordset
DimiConcAsString