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

whjtw

看一看

wan6376

学习一下

allkilled

Thx for share!!

xylqr

路过，顺便顶下。

xiaoan614

斯多夫嘎阿瑟多幅所附

flybutt2

正在寻找这方面的资料，太好了。

109091372

2342344234324

leoyan76

seeeeeeeeeeeeeeeeeeeeeeee

leoyan76

資料庫會暴增，修改一下保存圖片的代碼如下就會解決問題：
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

学习学习呀