Exporting Crystal Report To Excel
Hi,
When I am exporting crystal report to excel it is giving error 'Missing Parameter Current Value' even after passing the parameters. This is the code: can any one help.
Dim arrtemp As Array
Dim strExportFileName As String
Dim strExportFileNameWithPath As String
Dim crtableLogoninfos As New TableLogOnInfos()
Dim crtableLogoninfo As New TableLogOnInfo()
Dim CrTables As Tables
Dim CrTable As Table
Dim TableCounter
Dim crConnectionInfo As New ConnectionInfo()
Dim crReportDocument As ReportDocument
crReportDocument = New ReportDocument()
Dim x, y As DateTime
Dim z, z1, z2, z3 As String
Dim Zd, Zd1 As Date
Dim arrval As Array
Dim i As Integer
arrval = Split(Request.QueryString("FromDate"), "/")
z2 = Trim(Replace(arrval(0), " ", ""))
z1 = Trim(Replace(arrval(1), " ", ""))
z3 = Trim(Replace(arrval(2), " ", ""))
z = z1 & "/" & z2 & "/" & z3
Zd = z
arrval = Split(Request.QueryString("FromDate"), "/")
z2 = Trim(Replace(arrval(0), " ", ""))
z1 = Trim(Replace(arrval(1), " ", ""))
z3 = Trim(Replace(arrval(2), " ", ""))
z = z1 & "/" & z2 & "/" & z3
Zd1 = z
arrval = Split(Request.QueryString("FacilityID"), " ")
i = arrval(0)
crReportDocument.Load(Server.MapPath("\RevenueMedR eports\Reports\Formats\TrunaroundTime.rpt"))
With crConnectionInfo
.ServerName = ConfigurationSettings.AppSettings("ServerName")
.DatabaseName = ConfigurationSettings.AppSettings("DatabaseName")
.UserID = ConfigurationSettings.AppSettings("UserID")
.Password = ConfigurationSettings.AppSettings("Password")
End With
CrTables = crReportDocument.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
rptViewer.ReportSource = crReportDocument
Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
Dim strRptName As String
strRptName = "TrunaroundTime.rpt"
arrtemp = strRptName.Split(".")
strExportFileName = arrtemp(0)
If strExportPath = "" Then
strExportPath = "D:\RevenueMedReports\Reports\"
End If
If Directory.Exists(strExportPath) = False Then
Directory.CreateDirectory(strExportPath)
End If
strExportFileNameWithPath = strExportPath + "\" + strExportFileName
crDiskFileDestinationOptions = New DiskFileDestinationOptions()
crExportOptions = crReportDocument.ExportOptions
Response.Write("<BR><br>")
Response.Write("Exporting Started")
Select Case strExportFormat 'this contains the value of the selected export format.
Case "Portable Document (PDF)"
crDiskFileDestinationOptions.DiskFileName = strExportFileNameWithPath & ".pdf"
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
Case "MS Excel (XLS)"
crDiskFileDestinationOptions.DiskFileName = strExportFileNameWithPath & ".xls"
With crReportDocument.ExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.Excel
.DestinationOptions = crDiskFileDestinationOptions
End With
End Select 'export format
Try
Dim rptName, rptFormula, strPath As String
Dim paramFields As New ParameterFields()
Dim paramField As New ParameterField()
Dim discreteVal As New ParameterDiscreteValue()
paramField.ParameterFieldName = "@FromDate"
discreteVal.Value = Request.QueryString("FromDate")
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)
paramField = New ParameterField()
discreteVal = New ParameterDiscreteValue()
paramField.ParameterFieldName = "@ToDate"
discreteVal.Value = Request.QueryString("ToDate")
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)
paramField = New ParameterField()
discreteVal = New ParameterDiscreteValue()
paramField.ParameterFieldName = "@FacilityID"
discreteVal.Value = Request.QueryString("FacilityID")
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)
rptViewer.ParameterFieldInfo = paramFields
rptViewer.DataBind()
crReportDocument.Export()
Catch err As Exception
Response.Write("<BR>")
Response.Write(err.Message.ToString)
End Try
End Sub
Thanks & Regards
Mohith Kumar
K.S.Mohith Kumar
Software Engineer
Pioneer Online Pvt. Ltd
#3D, Samrat Complex, Saifabad
Hyderabad - 500004
Ph:0091-040-23299999 (ext : 320)
|
