Solved

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

Posted on 2006-07-07
11
558 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
Ransomware: The New Cyber Threat & How to Stop It

This infographic explains ransomware, type of malware that blocks access to your files or your systems and holds them hostage until a ransom is paid. It also examines the different types of ransomware and explains what you can do to thwart this sinister online threat.  

 
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
 
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

U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
It’s been over a month into 2017, and there is already a sophisticated Gmail phishing email making it rounds. New techniques and tactics, have given hackers a way to authentically impersonate your contacts.How it Works The attack works by targeti…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

809 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