Solved

OLE Server isn't registered- Images work in Access 2003, but not in Access 2000

Posted on 2006-07-07
11
554 Views
Last Modified: 2013-11-25
Alright, so here's the problem. I've created an application that works on my XP machine, but doesn't display the images on my Windows 2K machine. I have a need to store about 5 images in my database (SQL backend), but because of security permissions on folders, and the fact that the folder structure could be changed in the future, the images are stored directly inside the database, and not in a folder where they're pathed to. I display them in an Unbound Object Frame. Here's the code that I use to display my images:

    Dim rsSWImage As DAO.Recordset
    Set rsSWImage = CurrentDb.OpenRecordset("select * from SWImages WHERE [ImageName]='" & Me![cmbSWImages].Column(1) & "' AND [PrepDate]='" & Me![cmbSWImages].Column(0) & "';")

        Me.ImagePic.OleData = rsSWImage.Fields("ImagePic").GetChunk(0, rsSWImage.Fields("ImagePic").FieldSize)
        If IsNull(rsSWImage![ImagePic]) Then
            Me.ImagePic.Visible = False
        Else
            Me.ImagePic.Height = (CInt(rsSWImage![ImageHeight]) * 15)
            Me.ImagePic.Width = (CInt(rsSWImage![ImageWidth]) * 15)
            Me.ImageName = rsSWImage![ImageName]
                     
            Dim lngPosition As Long
            lngPosition = (Me.Width - (CInt(rsSWImage![ImageWidth]) * 15)) / 2
            Me.ImagePic.Left = lngPosition
            Me.ImageName.Top = Me.ImagePic.Top + (CInt(rsSWImage![ImageHeight]) * 15)
            Me.ImageName.Left = (Me.Width - Me.ImageName.Width) / 2
            Me.ImagePic.Visible = True
        End If
       
    rsSWImage.Close
    Set rsSWImage = Nothing

I receive a runtime error of '2725 the OLE server isn't registered', on this line 'Me.ImagePic.OleData = rsSWImage.Fields("ImagePic").GetChunk(0, rsSWImage.Fields("ImagePic").FieldSize)'

As I said, it works just fine on my XP machine. Not on W2K. I've checked the references and none look broken to me: Visual Basic for Applications
Microsoft Access 11.0 Object Library
Microsoft DAO 3.6 Object Library
OLE Automation
Microsoft Visual Basic for Applications Extensibility 5.3
Microsoft ActiveX Data Objects 2.5 Library
library.mda

I'm running MS Office Access 2003 SP2 on XP, and Access 2000 SP-3 on W2K. Does anyone know why this is happening? I need to find a solution ASAP, and would be extremely gratious if anyone could help me do so.
0
Comment
Question by:Tyedyeguy
  • 6
  • 4
11 Comments
 
LVL 65

Expert Comment

by:rockiroads
ID: 17059871
Is there an activex control you using?
Regardless of whether u are or not

Out of the references, some need registering

u can do this by running

regsvr32 <<fullpathname of control>>

path can be found in references

try that and see what happens
0
 

Author Comment

by:Tyedyeguy
ID: 17059980
Sorry, I forgot to mention it before, but this is an application to be deployed to other users. Ideally, they shouldn't have to do anything on their workstation, other than have the proper permission rights, and install the shortcut to the application.

By registering the references, would I have to do this on every machine, or just once in the application? Also, by registering the server, what are the potential implications on the workstation?
0
 

Author Comment

by:Tyedyeguy
ID: 17059987
And no, no ActiveX control that I'm aware of, it's just some textfields, and an Unbound Object Frame
0
 
LVL 65

Expert Comment

by:rockiroads
ID: 17060021
ok, on that PC where it doesnt work, just try registering the controls

regsvr32


then if that works, it means u need to create a script which registers these controls

Thats where installation scripts come in handy

0
 

Author Comment

by:Tyedyeguy
ID: 17060157
I registered the following:
Microsoft DAO 3.6 Object Library
OLE Automation
Microsoft Visual Basic for Applications Extensibility 5.3
Microsoft ActiveX Data Objects 2.5 Library

Microsoft DAO 3.6 object Library came back saying 'DllRegisterServer in C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll succeeded.', but all the rest gave me the same message as what Microsoft ActiveX Data Objects 2.5 library gave me, 'C:\Program Files\Common Files\System\ADO\msado25.tlb was loaded, but the DllRegisterServer entry point was not found.

C:\Program Files\Common Files\System\ADO\msado25.tlb does not appear to be a .DLL or .OCX file.'

But it's still acting the same as it ever was. Please tell me you have more suggestions. I'm running out of ideas as to what the problem is.

And yeah, I'd most likely just create an install package if individual workstation setup is required.
0
Complete Microsoft Windows PC® & Mac Backup

Backup and recovery solutions to protect all your PCs & Mac– on-premises or in remote locations. Acronis backs up entire PC or Mac with patented reliable disk imaging technology and you will be able to restore workstations to a new, dissimilar hardware in minutes.

 
LVL 84
ID: 17060408
What type of image files are you opening? Access//Office only installs graphics filters for the .bmp and .gif formats IIRC ... you can install other filters for Access, of course, but you'll need to re-run setup and select the Advanced options ... not sure exactly where they are, but look for Graphics Filters.

0
 

Author Comment

by:Tyedyeguy
ID: 17060895
All images are bitmaps.
0
 
LVL 65

Accepted Solution

by:
rockiroads earned 500 total points
ID: 17067274
ok, only other thing I could think of is possibly a not complete install of Office

Have u tried getting latest updates,

have u tried repairing office install? e.g. http://support.microsoft.com/default.aspx?scid=kb;en-us;896865  although it says a DAP, suggestion if dll fails is repairing.

I found this - this talks about a image http://www.experts-exchange.com/Databases/MS_Access/Q_21581218.html
this mentions Norton
0
 

Author Comment

by:Tyedyeguy
ID: 17074982
Okay, I tried recoding it many different ways, and it resulted in errors for every method tried. I tried it on some other Win2K machines, and it works just fine. I'm assuming that it's a bad install on my Win2K machine. If you don't mind, I'm going to try repairing Office within the next day or two to see if that's the real reason why it doesn't work, and I'll get back to you, rockiroads. I have a gut feeling you're right, so if you'd like the points sooner, I can just hand them over now, before I test your theory out.
0
 
LVL 65

Expert Comment

by:rockiroads
ID: 17076439
Keep my fingers crossed for you

Not worried about the points, more important to get u sorted first
0
 

Author Comment

by:Tyedyeguy
ID: 17102652
Well, unfortunately I haven't had time to test this yet, but I've been having several issues pop up with access on my Win2K machine lately, so I'm pretty sure there's a problem with the installation of Office. The points are yours rockiroads, as well as many thanks!
0

Featured Post

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now