GRAVACAO / RECUPERACAO DE DADOS ACCESS

Option Explicit
Dim m_strPicData As String
Dim m_lngPicLen As Long
Dim m_db As Database

'Pegar uma imagem para um picturebox...
'Depois grava os bytes em memória...
Private Sub cmdGet_Click()
    With CDlg
        .CancelError = True
        .Filter = "*.bmp|*.bmp"
        .InitDir = App.Path
        .ShowOpen
        Picture1.Picture = LoadPicture(.FileName)
        Open .FileName For Binary Access Read As #1
            m_strPicData = Space$(LOF(1))
            Get #1, , m_strPicData
        Close #1
    End With
End Sub

'Gravar no banco de dados
Private Sub cmdSave_Click()
    Dim rs As Recordset
    Set m_db = OpenDatabase(App.Path & "\fotos.mdb")
    Set rs = m_db.OpenRecordset("Photos")
    rs.AddNew
    rs.Fields("Photo").AppendChunk m_strPicData
    rs.Update
    rs.Close
    m_db.Close
End Sub

'Limpa a imagem da picturebox
Private Sub cmdClear_Click()
    m_strPicData = ""
    Picture1.Picture = LoadPicture(m_strPicData)
End Sub

'Pega a imagem do banco de dados
Private Sub cmdRetr_Click()
    Dim rs As Recordset
    Dim TempFile As String
    TempFile = App.Path & "    mp.bmp"
    Set m_db = OpenDatabase(App.Path & "\fotos.mdb")
    Set rs = m_db.OpenRecordset("Photos")
    m_lngPicLen = rs.Fields("Photo").FieldSize
    If m_lngPicLen > 0 Then
        m_strPicData = rs.Fields("Photo").GetChunk(0, m_lngPicLen)
        Open TempFile For Binary As #1
            Put #1, , m_strPicData
        Close #1
        Picture1.Picture = LoadPicture(TempFile)
        Kill TempFile
    Else
        Picture1.Picture = LoadPicture("")
    End If
    rs.Close
    m_db.Close
End Sub