Acc97 and OLE objects

[bnnook]

I wan't to do something like




Sub MyProc()
Dim strPath As String
Dim db As Database
Set db = OpenDatabase("db2.mdb")
Dim rs As Recordset
Set rs = db.OpenRecordset("test01", dbOpenDynaset)
Do While Not rs.EOF
strPath = rs("path")
' ole
[OLEPath] = strPath
[OLEFile].Class = [OLEClass]
[OLEFile].OLETypeAllowed = acOLEEmbedded
[OLEFile].SourceDoc = [OLEPath]
[OLEFile].Action = acOLECreateEmbed

rs.MoveNext
Loop
End Sub

The test01 table looks like:

Path OLEObject
c:/test/1.jpg
c:/test/2.jpg

And the filed OLEObject is an OLE field. We want to embed the photos in the OLE field


But it says external name not defined, meaning the OLEPath. I guess OLEPath only works for a newer version of Access? I'm using access 97.

We got a bunch of photos to embedd and it sure would be nice to find a coding solution.

Is there a way to do this in 97?

[SteveF]

If I recall, Access 97 wasn't too happy about embedding objects.

As an alternative, you can store the path/link to the image you want to display, and build a form that uses an image-viewing control to show the linked file. One advantage of this is that it will noticeably keep your Access mdb file size a lot smaller than if you embed things.

It's been too many years since I built exactly what I'm discussing here in Access 97 to recommend a specific image-viewing control; they are very often operating-system dependent. If you can't easily find one, post back in a new thread & see if anyone can assist there.

Steve

[Max D]

Yep, using OLE embedding will blow your database quickly, because when you embed JPG file, Windows saves uncompressed bitmap of it along with original file.

Try AccessImagine - its told to be the best image solution, especially for Access 97, that have very poor imaging options.