VB二进制存储数据
来源:互联网 发布:最新网络流行歌曲2017 编辑:程序博客网 时间:2024/05/22 00:18
´*************************************************************************
´**
´** 使用 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
- VB二进制存储数据
- MySQL存储二进制数据
- MySQL存储二进制数据
- 二进制数据存储
- 关于用VC,VB进行图像数据(二进制大对象)存储数据库的一点心得
- 关于用VC,VB进行图像数据(二进制大对象)存储数据库的一点心
- 用VC,VB进行图像数据(二进制大对象)存储数据库的方法
- C++ MySQL存储二进制数据
- postgres存储二进制数据java
- Dbms_LOB存储二进制,文本数据
- VB.net读写二进制数据方法
- mysql数据库存储二进制数据 linux
- 数据的存储以及二进制思想
- JDBC存储和读取二进制数据
- 二进制思想以及数据的存储
- 07 二进制思想以及数据的存储
- VB对图像数据存储显示
- 使用用VB处理MYSQL数据库中二进制数据问题
- asp.net 网页抓取
- 正在学习中文分词
- MVC项目日常问题解决记录
- 【转】URL汉字编码问题(及乱码解决)
- C#类型转换
- VB二进制存储数据
- JS打印页面(转)
- Don Norman: 简单不是答案
- Access学习编程中
- 餐馆联邦一次运行的时间推进序列 (按时间排序的时间推进请求和time grant序列)
- ABPA 对文件的存取
- struts1.x 文件上传 formfile
- java 数据验证类
- 测试株连分析(Test Impact)