Crystal Reports 8.5 (VB6) to Crystal Reports NET (VB.NET) conversion
Please help me to convert this code from VB6 to VB.NET (or C#).
I want to load reports from file and then load actual data. Here is my
source code:
'------------------------
Dim oCrystalRep As CRAXDRT.Report
Dim oCrystalApp As CRAXDRT.Application
Dim rstTemp As ADODB.Recordset
Set oCrystalRep = New CRAXDRT.Report
Set oCrystalApp = New CRAXDRT.Application
Set oCrystalRep = oCrystalApp.OpenReport(App.Path & "\Reports\" & _
"SomeReport.rpt", 1)
oCrystalRep.DiscardSavedData
Set rstTemp = New ADODB.Recordset
rstTemp.Open "Select '" & mDoktekst & "' As Tekst", _
Main.conBase, adOpenForwardOnly, adLockReadOnly, adCmdText
oCrystalRep.DiscardSavedData
oCrystalRep.Database.SetDataSource rstTemp
Call PrintDocument(oCrystalRep, True)
'------------------------
Public Sub PrintDocument(ByVal CReport As CRAXDRT.Report, ByVal Preview As
Boolean, Optional ByVal Prompt As Boolean = False)
If Preview Then
frmPreViews.Caption = CReport.ReportTitle
Screen.MousePointer = vbHourglass
frmPreViews.CRViewer1.EnableExportButton = True
frmPreViews.CRViewer1.EnableGroupTree = False
frmPreViews.CRViewer1.EnableDrillDown = False
frmPreViews.CRViewer1.DisplayTabs = False
frmPreViews.CRViewer1.ReportSource = CReport
frmPreViews.CRViewer1.Zoom (100)
frmPreViews.CRViewer1.ViewReport
Screen.MousePointer = vbDefault
frmPreViews.Show vbModal, Me
Else
CReport.PrintOut Prompt
End If
End Sub
Nikolay Unguzov