Hi
I am new to Crystal Reports. I am having a lot of problems
with Crystal Reports7.0 with database connectivity.
Its giving Server not yet opened. I am giving the code
here , If any body can help me fixing the problem I will be very thankful to them.Earlier it worked well but
recently I gave a password for my SQL Server7.0 with userID
as sa. After giving the password its not working.
Where and how to set userID and Password thgough this code.
"************************
cReport = cReportSelector(cReportName) '(Report selector is a function which brings the required crystal report)
Dim cReportPath As String
Dim crApplication As CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Set crApplication = New CRAXDRT.Application
cReportPath = App.Path + "\Reports\" + cReport
Set crReport = crApplication.OpenReport(cReportPath)
With crReport
If myform = "frmretailsale" Then
norderID = frmretailsale.Lblinvoice
.ParameterFields(1).AddCurrentValue norderID
CRViewer1.ReportSource = crReport
CRViewer1.ViewReport
'***********************************
Thanks in advance.
I am new to Crystal Reports. I am having a lot of problems
with Crystal Reports7.0 with database connectivity.
Its giving Server not yet opened. I am giving the code
here , If any body can help me fixing the problem I will be very thankful to them.Earlier it worked well but
recently I gave a password for my SQL Server7.0 with userID
as sa. After giving the password its not working.
Where and how to set userID and Password thgough this code.
"************************
cReport = cReportSelector(cReportName) '(Report selector is a function which brings the required crystal report)
Dim cReportPath As String
Dim crApplication As CRAXDRT.Application
Dim crReport As CRAXDRT.Report
Set crApplication = New CRAXDRT.Application
cReportPath = App.Path + "\Reports\" + cReport
Set crReport = crApplication.OpenReport(cReportPath)
With crReport
If myform = "frmretailsale" Then
norderID = frmretailsale.Lblinvoice
.ParameterFields(1).AddCurrentValue norderID
CRViewer1.ReportSource = crReport
CRViewer1.ViewReport
'***********************************
Thanks in advance.