Error on App Launch

[Micash]

Hi all out there
I need a bit of help here - new problem
App written in VB6.0 Prof.
Uses Crystal Reps.v8 OCX
Access 97 DB
Visual Installer used to package.
Application deploys on eveything under 'normal' circumstances from Win95 to Win XP.
Latest User has installed on WinXP and this error message is reported upon attempting to launch the App for the first time:

"-2147024770 Automation Error. The specified module could not be found."

Your urgent help will be greatly appreciated
Regards - Micash

 

[jlgdeveloper]

I looked around, no luck yet.

Rules when all else fails:
1> Reboot, try again.
2> Apply the latest service packs, and or windows updates.

Best of luck. Jonathan Galpin

http://www.keen.com/categories/categorylist_expand.asp?sid=5215353&gid=0&pmode=0

 

[bjd4jc]

Do you have error trapping that catches what line the program is giving this error on?

If you have it, paste the spot in your code where the error is happening.

 

[zemp]

Visual Installer can be specific for an operating system.ng systems. Make sure that the installer you are using is designed to install on winXP. If not then something is not being installed properly or at all.

Check the microsoft website for more details. Thanks and Good Luck!

zemp

 

[jlgdeveloper]

bjd4c is on the money. Add error handling to your code.

Your app then will report errors to the application event log. Use the event viewer to view.

Sample error trapping code:
*****************************
Public Function loadBySocial(ByRef social As String) As Boolean
Dim myRS As J_rs.c_jRS
Dim source As String
Dim rsH As Object

On Error GoTo errorhandler
Set myRS = New J_rs.c_jRS
source = "select * from Patient where Social = '" & social & "'"
Set rsH = myRS.openRS(read_only, source, "BHG&quot
If Not (rsH.bof And rsH.EOF) Then
myPkPatientID = rsH("pkPatientID&quot
myFkMMID = rsH("FkMMID&quot
myFName = Trim(rsH("FName&quot)
myLName = Trim(rsH("LName&quot)
....
....
myDobYear = Trim(rsH("dobYear&quot)
If IsDate(rsH("dob&quot) Then
myDob = rsH("dob&quot
End If
myCreatedDate = rsH("createdDate&quot
loadBySocial = True
Else
loadBySocial = False
End If
Set myRS = Nothing
Set rsH = Nothing
Exit Function

errorhandler:
loadBySocial = False
Set myRS = Nothing
Set rsH = Nothing
App.LogEvent vbcrlf & Err.Description & " " & Err.Number & " " & App.EXEName & " Patient Object: loadbysocial"
Err.Clear
End Function
******************************** Jonathan Galpin

http://www.keen.com/categories/categorylist_expand.asp?sid=5215353&gid=0&pmode=0

 

[Guest_imported]

1. Make Sure that all files are installed on client's computer. If they are, ask them to run install again ( you might need to ask them to uninstall first depending on how your install is written). It is possible that some files did not properly register.Make sure that they are logged in into XP with administrator privileges when they are installing package. It might make the difference.

 

[mgm1380]

We have been using the Package Deployment Wizard to packed our package written in Visual Basic 6.0. We have tried to install it in a Windows 98 environment and it works, unfortunately, when we tried intalling it in a Windows XP environment but several errors have occured. We would appreciate any comments or suggestions that you could provide us.

Path access error 75 and other Runtime Errors