How add OLE Pic field to Database VB5?

Using VB5, I need to add a Picture (.bmp file) to one of my Access 3 or Access 7 databases. I assume I must use Visdata to create the Picture(OLE Object) field.

I can't find a Type for an "OLE object".

How can I do this?????????

Really need help on this! Thanks

Try the following way !

Code:

---

Private Sub cmdSave_Click()
   
  'Validate the employee information
    If ValidateData = False Then
        Exit Sub
    Else
        Me.MousePointer = vbHourglass
        'create an instance of the stream object
        Dim smEmp As ADODB.Stream
      Set smEmp = New ADODB.Stream
        'set the type to binary to load the image as a binary stream
        smEmp.Type = adTypeBinary
        smEmp.Open
        'Load the content of the picture into the stream object
        smEmp.LoadFromFile fileName
        'Check the size of the ado stream to make sure there is data
        If smEmp.Size > 0 Then
            'Save the Employee Information
            rsEMP.AddNew
            rsEMP("FirstName") = txtFName
            rsEMP("MiddleName") = txtMName
            rsEMP("LastName") = txtLName
            rsEMP("SSN") = txtSSN
            rsEMP("Notes") = txtNotes
            'read the entire binary stream and assign it to the Photo field
            rsEMP("Photo") = smEmp.Read
            'Update the data
            rsEMP.Update
            'Clear the form
            ClearFields
       
            MsgBox "Employee Information Saved Successfully"
        Else
            MsgBox "The Employee's Photo is not valid"
        End If
       
        'Close and destroy the stream object reference
        smEmp.Close
        Set smEmp = Nothing
   
        Me.MousePointer = vbNormal
    End If
End Sub

---

:wave:

Thanks for the Response!!

When I entered the "Dim smEmp as ADODB.Stream" I got a compile error: User-defined type not defined.

What do I need to do??

I set a reference to M/S ADO 2.8 lib and got the pgm to compile.

I inserted the following code in my program and when it ran I got a System Abend:
I have these questions: Can I use my Existing Access DB with a new field of Type binary?
Do I need to use a different kind of database? How do I define the Type of field I will be updating? It's obvious I don't know anything about ADO.

Thanks for your time and help!!


'****
Set smEmp = New ADODB.Stream
smEmp.Type = adTypeBinary
smEmp.Open
smEmp.LoadFromFile ("C:\Program Files\X-DEI-LocDB\DLPicture.bmp")

dtaLocation.Recordset.Edit ' this is my DB with a binary field named txtlocDLPic
txtLocDLPic = smEmp.Read
dtaLocation.Recordset.Update

smEmp.Close
Set smEmp = Nothing
'****

Because he probably missed the VB5 and Access part. Probably too old to even bother with. It's about 20 years out of date

The easy way to add a picture into Access 97 from VB5 is by binding a picture box to the data base via a DAO data control.

If you already have a field which stores pictures in your database you can use the data form wizard in VB5 to create a form that will allow you to add/change the pictures via a bound picture box.

Thanks for the response.

The problem is: I don't know how to insert a field into my database that can hold an OLE object. No such type shows in Visdata's dropdown "Type" box.

I was wondering if I am going to have to get a copy of Access 2010, create a new database that "can hold an OLE object" and use that in my VB5 program when I call Crystal Reports and insert the Picture from the Access 2010 DB into my Crystal Report form? I'm assuming that Access 2010 allows me to create a field that will hold OLE objects?

Or can I do it somehow with the Access 3 or 7?

Thanks for your help!

I've only did it with Access 97, 2000 and XP and of course SQL Server and MySQL.

I doubt that VisData supports this as it is really just a sample program that comes with VB5.

You really should be using something newer than VB5 most people stopped using that years ago.

Access 3 ??? That has to be very very old. I am using a 9 year old version and it is version 10 ! i.e. Access 2002 from Office XP

At any rate there is an option for OLE object as a field type.

I am sure you could write code to create the field of this type from VB you would just have to do some searching to find the proper script.

I got a copy of Access 97, created a new database with an object field, updated the new database with the picture and read it into my Crystal Report just fine. Problem solved.

Thanks to all of you for the help!!!!