Show the OLE Object that saved to a SQL table in Access Form

Question

I attach the personnel's photo and documents (including SSO Card scan and etc.) to my form by this code. My back end database is SQL and the "MCScan" field data type is "varbinary(max).

Now I want to after clicking a button on my form I can see the attached file in form. (in an image box or etc.).I tried several ways but they were unsuccessful.

Private Sub cmdAttachMCScan_Click()
    Dim rs As ADODB.Recordset
    Dim fd As FileDialog
     
    
    Set rs = New ADODB.Recordset
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    

    rs.Open "SELECT * FROM tblEmployee WHERE EmployeeID= " & Me.EmployeeID.Value, CurrentProject.Connection, adOpeDynamic, adLockOptimistic
    
   
    
    Set streamobj = New ADODB.Stream
    streamobj.Type = adTypeBinary
    streamobj.Open
    'Display the file dialouge to get the path of the file
        Dim strPath As String
        fd.AllowMultiSelect = False
        fd.Show
        strPath = fd.SelectedItems(1)
        
    streamobj.LoadFromFile strPath
    rs.Fields("MCScan").Value = streamobj.Read
    rs.Update
    Set fd = Nothing
    MsgBox ("The file attached successfully.")
   
End Sub

---

Karim Vaziri Regards,

Answer 1

Hi Karim,

Have you tried using a Bound Image Control? If that doesn't work, you could try using VBA similar to the following:

Me.ImageControlName.PictureData = Me.MCScan

Hope it helps...

PS. What version of MS Access are you using? The above approach will only work with 2010 and above.

Answer 2

Dear Dbguy,

The Bound image control didn't worked. I tried your offer as follow:

Private Sub cmdShowMC_Click()
    ' Show the preview of scanned file
    Me.imgShowMC.Visible = True
    Me.imgShowMC.PictureData = Me.MCScan
End Sub

---

Karim Vaziri Regards,

Answer 3

Hi Karim,

Glad to hear you got it to work. Good luck with your project.