- *************************************************************************
- '**
- '** 使用 ADODB.Stream 保存/读取文件到数据库
- '** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
- '**
- '** ----- 数据库连接字符串模板 ---------------------------------------
- '** ACCESS数据库
- '** iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
- '** ";Data Source=数据库名"
- '**
- '** SQL数据库
- '** iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
- '** "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"
- '**
- '*************************************************************************
- '
- '保存文件到数据库中
- Sub s_SaveFile()
- Dim iStm As ADODB.Stream
- Dim iRe As ADODB.Recordset
- Dim iConcStr As String
- '数据库连接字符串
- iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
- ";Data Source=F:\My Documents\客户资料1.mdb"
- '读取文件到内容
- Set iStm = New ADODB.Stream
- With iStm
- .Type = adTypeBinary '二进制模式
- .Open
- .LoadFromFile "c:\test.doc"
- End With
- '打开保存文件的表
- Set iRe = New ADODB.Recordset
- With iRe
- .Open "表", iConc, adOpenKeyset, adLockOptimistic
- .AddNew '新增一条记录
- .Fields("保存文件内容的字段") = iStm.Read
- .Update
- End With
- '完成后关闭对象
- iRe.Close
- iStm.Close
- End Sub
- '从数据库中读取数据,保存成文件
- Sub s_ReadFile()
- Dim iStm As ADODB.Stream
- Dim iRe As ADODB.Recordset
- Dim iConc As String
- '数据库连接字符串
- iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
- ";Data Source=\\xz\c$\Inetpub\zj\zj\zj.mdb"
- '打开表
- Set iRe = New ADODB.Recordset
- iRe.Open "tb_img", iConc, adOpenKeyset, adLockReadOnly
- iRe.Filter = "id=64"
- '保存到文件
- Set iStm = New ADODB.Stream
- With iStm
- .Mode = adModeReadWrite
- .Type = adTypeBinary
- .Open
- .Write iRe("img")
- .SaveToFile "c:\test.doc"
- End With
- '关闭对象
- iRe.Close
- iStm.Close
- End Sub
用asp实现的数据库中存取文件的代码
2019-10-21 10:26asp代码网 ASP教程
用asp实现的数据库中存取文件的代码
延伸 · 阅读
- 2022-06-24实战搭建MySQL高可用架构(手残党表示都会了!)
- 2022-06-24Python连接数据库并批量插入包含日期记录的操作
- 2022-06-07MongoDB创建与删除数据库
- 2022-06-06NoSQL优缺点与mongoDB数据库简介
- 2022-04-29手残又删库了,binlog救了我的命……
- 2022-04-28今年一季度暴露的数据库数量创新高,Redis排第一
精彩推荐
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
asp中一段防SQL注入的通用脚本
asp中一段防SQL注入的通用脚本...
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...
- ASP教程
字符批量替换程序asp服务器版
字符批量替换程序asp服务器版,安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 ...
- ASP教程
ASP 判断是否有中文的代码
其实我上一篇写的js判断中文才是最好的方法,这个是asp的一种,只要是双字节都是当作中文判断...
- ASP教程
ASP实现文件上传的方法
在基于浏览器/服务器的应用环境中,在浏览器中上传各种类型的文件一直是困扰用户文件管理应用的难题之一。常用的实现方法是利用在RFC1867中引入的一...
- ASP教程
ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode ...
- ASP教程
asp删除mssql数据库中没有记录的图片代码
asp删除没有记录的图片需要文件夹(存放图片的文件夹)中的每个图片和数据库中的所有记录进行比较...