Hi,
I have ASP.NET website having crystal report viewer in it. I am able to generate the report but when i am trying to export it, it shows the export format but not exporting the report.
I have crystal report version 13.0.22
OS: Windows Server 2012 R2 (Standard x86)
Please help.
What I have tried:
Private Sub UserEntitlementReport()
Try
Dim strSql As String = ""
Dim strParam As String = ""
Dim StrStatus As String = ""
If Session.Item("Branch") <> "0" Then
strParam = " Where dbo.tblBranch.BranchCode = " & Session.Item("Branch")
End If
If Session.Item("Status").ToString.Trim.ToUpper <> "ALL" Then
If Session.Item("Status").ToString.Trim.ToUpper = "ENABLED" Then
StrStatus = "1"
Else
StrStatus = "0"
End If
If strParam = "" Then
strParam = "Where Isnull(dbo.tblUser.Status, 0) = " & StrStatus
Else
strParam = strParam & " And Isnull(dbo.tblUser.Status, 0) = " & StrStatus
End If
End If
strSql = "SELECT dbo.tblUser.UserID, " & _
"dbo.tblUser.UserName, " & _
"dbo.tblBranch.BranchEngName, " & _
"dbo.tblUser.CreationDate, " & _
"CASE when tblUser.AdminChanged = 0 and tblUser.Status = 0 THEN tblUser.LastSignedOn ELSE tblUser.LastSignedOnStaged END AS LastSignedOn, " & _
"dbo.tblUser.PasswordChangedOn, " & _
"dbo.tblUser.ComulativeInvalidLogin, " & _
"dbo.tblUser.SuccessiveInvalidLogin, " & _
"CASE WHEN Isnull(dbo.tblUser.Status, 0) = 1 THEN 'Enabled' ELSE 'Disabled' END AS Status ,tblUser.UserLevel " & _
"FROM dbo.tblUser INNER JOIN " & _
"dbo.tblBranch ON dbo.tblUser.BranchCode = dbo.tblBranch.BranchCode " & strParam
Dim cmd As New OdbcCommand(strSql, cn.OdbcConne)
Dim DA As New OdbcDataAdapter(cmd)
Dim ds As New DataSet()
ds.Clear()
DA.Fill(ds)
Dim CRS1 As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim RPath As String = Server.MapPath("rptUserEntitlement.rpt")
Dim ParamterFields As New CrystalDecisions.Shared.ParameterFields
Dim Param As New CrystalDecisions.Shared.ParameterField
Dim paramValue As New CrystalDecisions.Shared.ParameterDiscreteValue
Param.ParameterFieldName = "Branch"
paramValue.Value = Session.Item("BranchName")
Param.CurrentValues.Add(paramValue)
ParamterFields.Add(Param)
Param = New CrystalDecisions.Shared.ParameterField
paramValue = New CrystalDecisions.Shared.ParameterDiscreteValue
Param.ParameterFieldName = "Status"
paramValue.Value = Session.Item("Status")
Param.CurrentValues.Add(paramValue)
ParamterFields.Add(Param)
CRV1.ParameterFieldInfo = ParamterFields
CRS1.Load(RPath)
CRS1.Database.Tables(0).SetDataSource(ds.Tables(0))
CRV1.ReportSource = Nothing
CRV1.ReportSource = CRS1
Catch ex As Exception
lblError.Text = ex.Message
cn.varLog.WriteLog(Format(Now, "yyyyMMddHHmmss"), Session.Item("UserID"), "WEB", , lblError.Text, Logger.Severity.Errors, Logger.EventType.Failure, "WEB")
End Try
End Sub