VB 文件操作

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")               ---图片在界面上显示

转载于:https://www.cnblogs.com/lovetsfuer/archive/2010/04/25/1720796.html