VB ADO 用二进制方式来读写文件 入数据库 __________请参考(把文件(包括图片)存入数据库)
来源:互联网 发布:最新网络赚钱项目 编辑:程序博客网 时间:2024/05/18 00:13
转自 :http://community.csdn.net/Expert/topic/4603/4603745.xml?temp=.7745935
那就用二进制方式来读写文件,请参考(把文件(包括图片)存入数据库):
Dim cn As New ADODB.Connection,rs As New ADODB.Recordset
Private Sub Form_Load()
cn.CursorLocation = adUseClient
'这里给的是sql库的连接,具体的数据库连接请自己改过来,如果是Access库,只改数据库的连接即可
cn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=ljx"
End Sub
Private Sub cmdSaveFile_Click()
saveFile App.Path & "/temp.jpg"
End Sub
Private Sub cmdReadFile_Click()
readFile App.Path & "/temp1.jpg"
End Sub
'保存文件到数据库
Private Sub saveFile(Byval strFile As String)
Dim tmp() As Byte
Dim lngFile As Long
If rs.State=adStateOpen Then rs.Close
rs.Open "select * from test where 1<>1", cn, adOpenDynamic, adLockOptimistic
lngFile = FreeFile
Open strFile For Binary As #lngFile
ReDim tmp(LOF(lngFile))
Get #lngFile, , tmp
Close #lngFile
rs.AddNew
rs.Fields("ID").Value="001"
rs.Fields("pic").Value = tmp
rs.Update
End Sub
'读取数据库的文件,保存到硬盘
Private Sub readFile(Byval strFile As String)
Dim tmp() As Byte
If rs.State=adStateOpen Then rs.Close
rs.Open "select * from test where [ID]='001'", cn
ReDim tmp(rs.Fields(0).ActualSize) '返回2进制文件的字节长度
tmp = rs.Fields("pic").Value
Open strFile For Binary As #1
Put #1, , tmp
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
If rs.State<>adStateClosed Then rs.Close
If cn.State<>adStateClosed Then cn.Close
Set rs = Nothing
Set cn=Nothing
End Sub
- VB ADO 用二进制方式来读写文件 入数据库 __________请参考(把文件(包括图片)存入数据库)
- 把图片文件存入数据库
- 把图片文件存入数据库
- VB把文件存入数据库IMAGE字段
- 把文件存入数据库
- 图片二进制存入数据库
- WinForm把图片以二进制的方式存入到数据库,并将存入数据库的二进制图片读出显示到PictureBox中
- php从数据库中取二进制流文件转换为图片,图片以二进制流存入数据库实现
- php从数据库中取二进制流文件转换为图片,图片以二进制流存入数据库实现
- php从数据库中取二进制流文件转换为图片,图片以二进制流存入数据库实现
- 用ASP把图片存入数据库
- 把图片存入mysql数据库
- delphi 把图片存入数据库
- 把结构用二进制方式写入文件,并读出来
- 二进制图片信息存入数据库并用gridview显示图片(添加鼠标移到图片上显示大图效果)后台语言vb.net
- 把图片文件存入oracle数据库 然后读取并显示在jsp页面
- 将图片以二进制流存入数据库
- 把图片转换成二进制--把二进制转换成图片(针对于数据库操作)
- 倒霉的一天
- java代码编写的30条建意
- 软件开发中的测试方法
- [原创]VC实现Base64编码范例
- 访问被拒绝。未能开始监视文件更改。
- VB ADO 用二进制方式来读写文件 入数据库 __________请参考(把文件(包括图片)存入数据库)
- Servlet tips --init(), destroy() and retrieving information
- 学习笔记之其它
- ftp 多线程下载的设计与实现
- 课程设计(2006.4.19草稿)
- 看看 Vista 的标志
- 我的Struts+Spring+Hibernate 框架
- 一个安全批处理文件
- Java与XML联合编程之DOM篇