[分享]显示/存储OLE字段存储图片的另类方法

leoyan76 · 发表于 2007-9-13 11:31:44

資料庫會暴增，修改一下保存圖片的代碼如下就會解決問題：
Private Sub cmdSave_Click()
Dim PicData() As Byte
Dim PicSize As Long
PicSize = FileLen(Me.msDlg.fileName)
If PicSize > 0 Then
      ReDim PicData(PicSize)
      FileNo = FreeFile
      Open Me.msDlg.fileName For Binary As #FileNo
      Get #FileNo, , PicData()
      Close #FileNo
      rs("photo").Value = PicData
      rs.Update
End If
Erase PicData
End Sub

lfxwolf · 发表于 2007-9-18 13:44:49

学习学习呀

sancai · 发表于 2007-9-19 10:27:56

规定发给的非官方的交换机

tailang56 · 发表于 2007-9-24 13:30:59

顶一下，学多点东西

小何 · 发表于 2007-9-25 21:54:56

好,正在用的到在此谢谢楼主了

loren · 发表于 2007-10-10 10:50:17

到此学习,谢谢楼主分享

wxf16 · 发表于 2007-10-16 21:00:08

学习中。。。。。。。。。

wzh · 发表于 2007-10-26 08:56:20

谢谢分享学习学习!

xmxth002 · 发表于 2007-10-28 19:50:51

Xue Xi Zhi.....

IT人 · 发表于 2007-11-5 11:54:34

5hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] [分享]显示/存储OLE字段存储图片的另类方法

群介绍
主题无相 (随机显示版	同地区群块其他地区)