VB 文件操作
2010-04-25 22:23 Daniel Xu 阅读(449) 评论(0) 编辑 收藏 举报vb文件操作,由于项目的需要把图片以二进制的形式存到数据库中,然后再把数据库中图片的二进制文件显示在界面上,网上收集了些资料学习了一把,由于项目的限制,于数据库链接不是通过ADO控件,只需要传两个参数给一个数据库工具,实现数据库的增、删、改、查,找了几天的资料问题解决了,整理一下以备以后用。
图片文件以二进制形式存到数据库
strFileFullName = frmDetails.commPicture.FileName
file_num = FreeFile
Open strFileFullName For Binary Access Read As #file_num ----把图片以二进制形式打开
Filelength = LOF(file_num)
ReDim ByteData(1 To Filelength) As Byte
Get file_num, , ByteData()
Close file_num
图片文件以二进制形式从数据库中取出 ,二进制文件取出后放到一个临时文件中,再从临时文件里读出。
strTmp() = FindOptFileValue(bdOptions, CODE_OPTID_Welcomejpg) ---读出数据库中二进制文件
file_num = FreeFile
Open "d:\temp.dat" For Binary As #file_num ----建立一个临时文件存放数据库图片二进制文件
Dim ln As Long
ln = UBound(strTmp)
Put file_num, , strTmp() ----文件写入到临时文件中
Close file_num
.jpgPictureFirst.Picture = LoadPicture("d:\temp.dat") ---图片在界面上显示
作者:DanielXu
出处:http://www.cnblogs.com/lovetsfuer/
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。