*************************************************************************
'**
'**使用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
【用asp实现的数据库中存取文件的代码】相关文章：
★ 在asp中通过getrows实现数据库记录分页的一段代码