精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VB和Basic>>〓〓...数据库技术...〓〓>>二进制文件(图片)<=>数据库的典型代码

主题:二进制文件(图片)<=>数据库的典型代码
发信人: honestbill(狮子)
整理人: gzwsh(2001-05-12 23:13:29), 站内信件
以下代码示范了将二进制文件存入数据库并从数据库中将文件恢复的方法
这个技术通常用于图片文件(JPG/GIF等)存放到数据库
今天刚刚写好,顺便贴出来
如有错误或有更好的办法,请指教

以MDB数据库为例,建一个类型为"OLE对象的字段(Visual Data Manager 里叫Binary) 名称为"PicFile"

--------以下代码将文件存入数据库
file_len = FileLen(FileName)
ReDim s(file_len - 1) As Byte

Open FileName For Binary As #1
        Get #1, 1, s
Close #1
   
Data1.Recordset.Edit
Data1.Recordset.Fields("picfile") = s
Data1.Recordset.Update

--------以下代码将文件从数据库中取出存盘
Dim B() As Byte
B = Data1.Recordset("picfile")

Open "e:\tempfile" For Binary As #1    ' 打开输出文件。
Put #1, 1, B
Close #1   ' 关闭文件。

小提示:
为什么要用DATA控件呢?
因为可以用IMAGE+DATA控件直接显示图片
只须修改IMAGE的DataSource 和 DataField属性即可
--------
codebank原创



----
中国代码银行 - codebank.chn.net
或 http://www14.brinkster.com/timemax  

             这里只有和编程有关的技术文章
           *******************************
                  We Save, We Share
           *******************************
  _     ___              _  _   _   _    _
 /  |_|  |  |\ |  /\    /  / \ | \ |_   |_)  /\  |\ | |/
 \_ | | _|_ | \| /--\   \_ \_/ |_/ |_   |_) /--\ | \| |\
  

[关闭][返回]