Application-defined or object-defined error

[MacChris]

Hi I'm using VB 6 and MS Access 2000
I like to have a Data Report to display and print data.
so far so good
it working fine aslong i'm running the .exe file on my dev. Maschine.
on all other PC's it say allways this App / Obj Error and
Invalid Data Source for this DataReport Object

Source are somthing Like:
create Obj conn_Database
cretae Conn to Table with a SQL Statement
run DataReport with xxxx.refresh / xxxx.show
Q: can someone tell my why ?
do I need some additionals Installations on other PC's ?

regards
Chris

 

[Sheco]

You didn't show exactly how you are connecting to the database but perhaps you are using a DSN ?

If so then all of the other machines a DSN the same as the one on your machine.

 

[MacChris]

Thanks for this quick replay.
No the 'other' PC's are a standard Windows XP PC.
for test hier the full source:

http://mypage.bluewin.ch/LehnerChris/Downloads/DataReport.mdb

http://mypage.bluewin.ch/LehnerChris/Downloads/DataReportView.vbp

http://mypage.bluewin.ch/LehnerChris/Downloads/DataReportView.vbw

http://mypage.bluewin.ch/LehnerChris/Downloads/de_DataReport.DCA

http://mypage.bluewin.ch/LehnerChris/Downloads/de_DataReport.Dsr

http://mypage.bluewin.ch/LehnerChris/Downloads/de_DataReport.dsx

http://mypage.bluewin.ch/LehnerChris/Downloads/dr_Test.DCA

http://mypage.bluewin.ch/LehnerChris/Downloads/dr_Test.Dsr

http://mypage.bluewin.ch/LehnerChris/Downloads/dr_Test.dsx

http://mypage.bluewin.ch/LehnerChris/Downloads/frm_Main.frm

sorry for non direct downloading.

 

[Sheco]

Is it possible that this exact path does not exist on the second computer?

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\DataReport.mdb;Persist Security Info=False


Also the problem may be that a required external file is missing from the second computer. Use the Package & Deployment Wizard to create an Install program so that you can be certain that required dependancies are present on the second machine.

 

[MacChris]

It's a good thing do check it. thx
because i'm not so fam. with this Package & ... so i us allways the standard wizard to Package the SW and standard Installation on other PC's.
this will take a few time (PC are at home and i be on working yet)
Thanks at this time
regards
Christian

 

[Sheco]

Oh, yes the standard one is the one that I use... On my computer it has the name "Package & Deployment Wizard" ... it is the install creator that came with Visual Studio.

 

[MacChris]

yes i'm using Package & Deployment Wizard and it's still not working like i used it from begin.
The installation will be done with the created Setup.exe and .cab file.
and even wenn i create this directories and copy all files into its not working.
Chris

 

[Sheco]

Did you add the DataReport.mdb file to the package?

 

[MacChris]

no let me do that, thx Sheco
Chris

 

[MacChris]

Dear Sheco

One small step for man one giant step for mankind
Like it was just a small thing for you and somthing unknowing staff for me. It's working but i have to enter in this ' Geben Sie bitte MS JET OLE-DB-Initialisierungsinformationen ein. ' Windows the Datasource Username Password ....
Are there some code do to it autumatical on VB and where ist the Place do to that?

regards
Chris

 

[MacChris]

Private Sub Form_Initialize()

DataEnvironment.Connection.Close
DataEnvironment.Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & " /Datenbank.mdb;Persist Security Info=False"
DataEnvironment.Connection.Open

End Sub

Thanks Sheco for your Help

 

[Sheco]

I'm not sure that I understand... is it prompting the user for a database passowrd?

 

[MacChris]

Yes, it's appear when die Data Source can not be located. It's define manually the Path and Username ... the new ConnectionString.
Or thake the Source above and it will not longer appears.

Chris

 

[Sheco]

Hmm, I don't recall the exact syntax but it is possible to include the password in the Connection String.

Try this (with appropriate substitutions):

DataEnvironment.Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
        & "Data Source=" & App.Path & " /Datenbank.mdb;" _
        & "User Id=[b][i]UserName[/i][/b];" _
        & "Password=[b][i]Password[/i][/b]"

 

[Sheco]

Another thing you might try is passing username and passoword to the .Open method:

DataEnvironment.Connection.Open , ,[b]UserName[/b], [b]Password[/b]

In the line above I ommitted the first argument because it is ConnectionString and it was already set so I do not believe that it has to be passed again (I may be wrong on this point.)

Perhaps you could combine it all into a single statement:

....Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
        & "Data Source=" & App.Path & " /Datenbank.mdb;" , _
        [b]UserName[/b], _
        [b]Password[/b]

Also I think it is possible to set a password on the MDB file itself. If this is your scenario then the connection string should be modified to include:
Jet OLEDB:MDB File Password

 

[MacChris]

Dear all
Now I know why this App-def Obj-def error i got.
Wrong path in the Application! First solution is include the mdb File into the Package & Deployment Wizard thanks Sheco for help.
Secound I found that my Software is looking in the WinPath like C:\Windows\System32
and there is something wrong because when you have an english version of Windows or a Windows NT installation its have a Directory named C:\WINNT and the Program Files Directory calls Programme Germen / English setting of the Installation from Windows XP / 2000 / NT ...
If i create this missig Directories an include the dll's from the setup its working very well.
It will be very kindly if have somebody Time to have a look on this German / English setting Problem.