*************************************************************************
'**
'**使用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

'数据库连接字符串
iConc="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False"&_
";DataSource=\\xz\c$\Inetpub\zj\zj\zj.mdb"

'打开表
SetiRe=NewADODB.Recordset
iRe.Open"tb_img",iConc,adOpenKeyset,adLockReadOnly
iRe.Filter="id=64"

'保存到文件
SetiStm=NewADODB.Stream
WithiStm
.Mode=adModeReadWrite
.Type=adTypeBinary
.Open
.WriteiRe("img")
.SaveToFile"c:\test.doc"
EndWith

'关闭对象
iRe.Close
iStm.Close
EndSub