Unable to retrieve Crystal Report with Password Protected Acces DB

[SkyCoder]

Dim sRep As String
sRep = "RepStudentResults.rpt"
cr1.ReportFileName = App.path & "/" & sRep
cr1.WindowState = crptNormal
cr1.WindowWidth = 800
cr1.WindowHeight = 600
cr1.PrintReport
cr1.Reset

This is the code im ussing to retrieve a Crystal Report (ver 8.1) in a vb6 app. The Database i make use of is an access db that is password protected.
Im having difficulties to retrieve the report
Do i have to pass the Access pasword to Crystal somewhere or what?

[Hack]

First, your slash is going the wrong way. It should be "\" & sRep
and second, yes, in order to open a password protected database, you must pass the password.

[SkyCoder]

How do i pass the database password through crystal?
something like this:

cr1.password = "123"

[Hack]

If you open it with your VB6 front end, then it will already be open when you call your report, so you shouldn't have to pass it to crystal. Only to Access in your connection string.

[GaryMazzone]

Unfurtunity that is not true with crystal. Using Crystal with proteted MS Access database is a real hassel. I use it with many and with versions before CR 9 You need to set a registry entry if you are using groups and user permissions. Crystal supplied a program called sysdb32 that let you do this if you did not want to manipulate the registry manually.

[Hack]

Unfurtunity that is not true with crystal. Using Crystal with proteted MS Access database is a real hassel. I use it with many and with versions before CR 9 You need to set a registry entry if you are using groups and user permissions. Crystal supplied a program called sysdb32 that let you do this if you did not want to manipulate the registry manually.

That is good to know. All of my experience with Crystal has been with SQL Server or Oracle.

If you are using Access, then why wouldn't you want to use Access reports instead of Crystal?

[SkyCoder]

Resolved it by passing the password

cr1.Connect = "DSN=MyApp;UID= ;PWD=123 ;DSQ=MyApp"

Dim sRep As String
sRep = "RepStudentResults.rpt"

cr1.Connect = "DSN=MyApp;UID= ;PWD=123 ;DSQ=MyApp"

cr1.ReportFileName = App.path & "/" & sRep
cr1.WindowState = crptNormal
cr1.WindowWidth = 800
cr1.WindowHeight = 600
cr1.PrintReport
cr1.Reset

[GaryMazzone]

I am programming the app in VB6 and can't be sure a user has Access. So I use crystal for all report output. Also some apps pass data into Excel for graphing functions (only if Excel on the system). For those that use Excel the requirements state that Excel is required to do the graphing. I found that Crystal graphing functions did not perform to my requirements way to simple graphs.