发信人: 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
*******************************
_ ___ _ _ _ _ _
/ |_| | |\ | /\ / / \ | \ |_ |_) /\ |\ | |/
\_ | | _|_ | \| /--\ \_ \_/ |_/ |_ |_) /--\ | \| |\
|
|