I hvae developed a project for staff attendance with VB and Access using ADO Library
I used Crystal Report 8 for reporting.
When I was creating reports the database path was F:\AttSys\AttSys.Mdb
I have run that project in VB so many times and it run well.
I developed SETUP for that project and install that setup on the other PC where F:\AttSys\AttSys.Mdb
was not available
After installing that project it run well but whrn try to open thew reports they give the error
which shows that database path is not correct. Its trying to get F:\AttSys\AttSys.Mdb which is not available.
How to solve this problem.
How to change the database path using code as to set the path on App.Path
Please help me.
I m using the follwong Code to show report
Dim Report As New CrDailyRep
Dim Db As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
Screen.MousePointer = vbDefault
Call ViewRep
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
Public Sub ViewRep()
Set Db = New ADODB.Connection
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\attdb.mdb;Mode=Read"
Set Rs = New ADODB.Recordset
With Rs
.Open "Select * from Tbl_Emp_Att", Db, adOpenDynamic, adLockOptimistic
On Error Resume Next
Report.Text2.SetText "REPORT OF " & FrmDaily.TxtDate.Text
StrSel = "{Tbl_Emp_Att.Att_Date} in Date(" & _
Format(FrmDaily.TxtDate, "yyyy,m,d") & ") to Date(" & _
Format(FrmDaily.TxtDate, "yyyy,m,d") & ")"
Report.DiscardSavedData
Report.Database.SetDataSource Rs
Report.RecordSelectionFormula = StrSel
CRViewer1.ReportSource = Report
CRViewer1.EnableRefreshButton = True
CRViewer1.ViewReport
End With
End Sub
Please help me
Farooq
