[Programmer-VB] Jawaban : Simpan Gambar

[Lilis]

rekan2, mgkn ini menambah jawaban dari rekan yg lain utk menyimpan gambar, 
yang aku rasa mgkn agak simple.

Private Sub cmdSave_Click()
    Set pProBag = New PropertyBag

    pProBag.WriteProperty "MyPicture", Image1.Picture

    bImageBinary = pProBag.Contents

    rs.AddNew
    rs.Fields("gambar").Value = bImageBinary
    rs.Update
    If Err.Number = 0 Then
      MsgBox "Data tersimpan"
    End If
End Sub