Setting DB location in VB6

[deathtoms666]

Hi All,

Im using VB6 SP6 and CR XII with SP2.

I want to be able to set the database path in vb code to pass to the crystal report.

I have done a search on the forum and people are saying to pass the recordset containing the data I want to display. I have done this but if the database is not set correctly in the crystal report then no data is displayed. If I set the path in the report correctly it works.

There used to be a way to set the path of the database via VB code but I cant see that now.

I need the user to specify the path of the database when they load the database and I want to pass this info onto the crystal reports.

Im using the following code:


Private Sub DisplayPersonReport(Optional ByVal plgPersonID As Long = 0)

'Display the person report
Dim pstPerson As String
Dim prsPerson As New ADODB.Recordset
Dim pcrCrystalReports As New CRAXDRT.Application
Dim prpPerson As CRAXDRT.Report
Dim pinResponse As Integer

'Check to see if report file exists
If FileExists(mstReportPath & "\Person.rpt") = True Then
Set prpPerson = pcrCrystalReports.OpenReport(mstReportPath & "\Person.rpt", 1)
pstPerson = "SELECT * " & _
"FROM tblPerson "
If plgPersonID <> 0 Then
pstPerson = pstPerson & "WHERE PersonID = " & plgPersonID
End If

prsPerson.Open pstPerson, gcnLPFMS, adOpenStatic, adLockReadOnly, adCmdText
If prsPerson.RecordCount = 0 Then
pinResponse = MsgBox("There is no data to display in report.", vbExclamation + vbOKOnly, "No data")
Unload frmReport
Else
crvReports.DisplayBorder = False
crvReports.DisplayTabs = False
crvReports.EnableDrillDown = False
crvReports.EnableRefreshButton = False
prpPerson.DiscardSavedData
prpPerson.Database.SetDataSource prsPerson, 3, 1
crvReports.ReportSource = prpPerson
crvReports.ViewReport
End If
prsPerson.Close
Else
pinResponse = MsgBox("The file " & mstReportPath & "\Person.rpt does not exist.", vbExclamation + vbOKOnly, "File Not Found")
End If

End Sub