VB and Crystal Reports problem - Please help

Hi,

Nevermind, figured it out

I am having a similar problem. How did you get it to work?

Hi,

1. Within my SQL Server 2000 database I created a new login
(Login: ppmstest, psw: ppmstest and granted access to procedures that my Crystal reports access

Note: Say copy of your report before converting...

2. Converted Crystal report to OLE and embedded login/psw. (Database menu, Convert Database Driver to pdsoledb.dll driver... tried using the pdssql.dll driver (sql server direct one) but got errors - this seems to be a Crystal bug. I found some articles on this, but was never able to resolve it so I left driver within Crystal report as the OLE one.) Saved. Then selected Verify Database - should say something like "The database is up to date"

3. Checked to ensure changes took place (see Set Location option...

4. Removed my ODBC DSN

5. Execute in development mode to ensure all ok

6. Modified VB code as follows (uses pdssql driver) - How you can read this ok...(code on clicked event in my application)
----------------------------------------------------
' Report object has been declared within the General Declaration section
If fso.FileExists(App.Path & "\Inventory Report.rpt&quot Then
' Check if user has selected a System to report
If g_strSystem = "All" Or g_strSystem = "" Then
MsgBox "Please select a System Value and try again. Current System: " & g_strSystem, vbExclamation, "Warning"
Else
Set Report = crxApplication.OpenReport(App.Path & "\Inventory Report.rpt&quot

' Next 2 lines has been left for testing purposes
'Report.ParameterFields(1).AddCurrentValue (CDate("2003/01/10 00:00&quot)
'Report.ParameterFields(2).AddCurrentValue ("SYS02&quot
'Parameter 1 - Inventory Date
Report.ParameterFields(1).AddCurrentValue (CDate(Format(GetSelectedDate, "yyyy/mm/dd 00:00:00&quot))
MsgBox ("date parm: " & GetSelectedDate)
'Parameter 2 - System
Report.ParameterFields(2).AddCurrentValue ("SYS0" & g_strSystem)

'Establish connection for report using ole
Report.Database.LogOnServer "p2ssql.dll", "Kcdevsql2k", "PPMS", "ppmstest", "ppmstest"
Report.Database.Tables(1).SetLogOnInfo "Kcdevsql2k", "PPMS", "ppmstest", "ppmstest"

' Check if they want to print or view the report
Dim MyVar
MyVar = MsgBox("Do you wish to just PRINT the report without viewing?", vbYesNo, "Inventory Report&quot
If MyVar = 6 Then
'They selected "YES" - Just Print it (Parms: Prompt user, #copies)
Report.PrintOut False, 1
Else
'T They selected "NO" - Load Page with Crystal Report Viewer Object
Load Form2
Form2.Show
End If
End If

Else
MsgBox "Error encountered while trying to open file Inventory Report.rpt." & vbCrLf & "File Does Not Exist.", vbExclamation, "File Error"
End If
------------------------------

General Declarations:

'****************************************
' Add declarations for Inventory report
'****************************************
Dim crxApplication As New CRAXDRT.Application
Dim crxReport As CRAXDDRT.Report
Public Report As New CRAXDRT.Report
------------------------------------------
Note:
Report.Database.LogOnServer "p2ssql.dll", "Kcdevsql2k", "PPMS", "ppmstest", "ppmstest"

Parms: driver, server, database, login, password


p2ssql is the driver for SQL Server you can use OLE, and there are others available for Sybase, Oracle, DB2 and others...



7. Your install should include:

Crystl32.ocx, mfcans32.dll, olepro32.dll, crpe32.dll, crpaig80.dll, implode.dll, mfc42.dll, msvcirt.dll, msvcp60.dll

Database specific files (these are for SQL Server):
p2ssql.dll, p2lsql.dll We also included the nmplib.dll file (can't remember exact name..)

More info see:
I hope this helps...

Computergeek

Thanks! I will give this a try. It looks like I was almost there. Thanks for the fast reply.
Di