Hi, Help me resolve this error : "Logon Failed." Error here:
crReportDocument.Export() Code:
Private Sub Btn_Export_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Export.Click Try Dim ConnInfo As New ConnectionInfo With ConnInfo .ServerName = "WASA00150" .DatabaseName = "iCalls" .UserID = "sa" .Password = "courage" End With Me.CrystalReportViewer1.ParameterFieldInfo.Clear() Dim crParameterFieldDefinitions As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinitions Dim crParameterFieldDefinition As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition If Me.txtSTdate.Text.Trim.Length > 0 Then Me.CrystalReportViewer1.ReportSource = Server.MapPath("iCalls_CrystalReport_Department.rpt") Dim crDataDef As DataDefinition crDataDef = crReportDocument.DataDefinition Dim exportFileName As String = "iCalls_CrystalReport_Department.rpt" Dim exportPath As String = "D:\SampleCrystalReports\iCalls_Export\test1.pdf" Dim crExportOptions As ExportOptions Dim crDestOptions As New DiskFileDestinationOptions crDestOptions.DiskFileName = exportPath crExportOptions = crReportDocument.ExportOptions crExportOptions.DestinationOptions = crDestOptions crExportOptions.ExportDestinationType = ExportDestinationType.DiskFile crExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat Dim ParamFields As ParameterFields = Me.CrystalReportViewer1.ParameterFieldInfo Dim Per As New ParameterField Per.ParameterFieldName = "Period" Dim ParamCurrentValues As New ParameterValues Dim values As New ParameterValues Dim Period_Value As New ParameterRangeValue Period_Value.StartValue = Me.txtSTdate.Text Period_Value.EndValue = Me.txtCLdate.Text values.Add(Period_Value) crReportDocument.DataDefinition.ParameterFields(0).ApplyCurrentValues(values) crReportDocument.Export() End If For Each cnInfo As TableLogOnInfo In Me.CrystalReportViewer1.LogOnInfo cnInfo.ConnectionInfo = ConnInfo Next Me.CrystalReportViewer1.RefreshReport() CrystalReportViewer1.Visible = True Catch ex As Exception lblmsg.Text = ex.Message.ToString End Try End Sub Thanks.
------------- Thanks,
Yasin.
|