hello,
i using vb 6 and i did report seagate crystal report .
i want to know how it use in vb . i did some code but it not display anything
code is
Public strReportPath As String
Public strRecordSelect ion As String
Dim crystal As New CRAXDRT.Applica tion
Dim Report As New CRAXDRT.Report
Private Sub Form_Load()
strRecordSelect ion = ""
strReportPath = App.Path & "\" & "Report1.rp t"
On Error Resume Next
Set crystal = New CRAXDRT.Applica tion
Set Report = Nothing
Set Report = crystal.OpenRep ort(strReportPa th)
Report.Database .LogOnServer "pdsodbc.dl l", stud.mdb, sd
If strRecordSelect ion <> "" Then
Report.RecordSe lectionFormula = strRecordSelect ion
End If
Report.DiscardS avedData
Cry.ReportSourc e = Report
Cry.ViewReport
Cry.Zoom 2
Set crystal = Nothing
end sub
please tell why it not display report
i using vb 6 and i did report seagate crystal report .
i want to know how it use in vb . i did some code but it not display anything
code is
Public strReportPath As String
Public strRecordSelect ion As String
Dim crystal As New CRAXDRT.Applica tion
Dim Report As New CRAXDRT.Report
Private Sub Form_Load()
strRecordSelect ion = ""
strReportPath = App.Path & "\" & "Report1.rp t"
On Error Resume Next
Set crystal = New CRAXDRT.Applica tion
Set Report = Nothing
Set Report = crystal.OpenRep ort(strReportPa th)
Report.Database .LogOnServer "pdsodbc.dl l", stud.mdb, sd
If strRecordSelect ion <> "" Then
Report.RecordSe lectionFormula = strRecordSelect ion
End If
Report.DiscardS avedData
Cry.ReportSourc e = Report
Cry.ViewReport
Cry.Zoom 2
Set crystal = Nothing
end sub
please tell why it not display report
Comment