*************************************************************************

'**

'**使用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=xzc$Inetpubzjzjzj.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