Step-By-Step Method of creating Parameters in Crystal Reports 9 in ASP.NET 1.1 Visual Basic

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BindReport()
    End Sub
    Sub BindReport()
        Dim con As New SqlClient.SqlConnection
        con.ConnectionString = "Server = localhost; database=ThreeWs; Trusted_Connection=yes"
        Dim com As New SqlClient.SqlCommand
        com.Connection = con
        com.CommandText = "Select * from GenTransactions" 'GenTransactions is a View
        com.CommandType = CommandType.Text
 
        Dim DA As New SqlClient.SqlDataAdapter
        DA.SelectCommand = com
 
        Dim DS As New xsdGenTransactions 'XML Schema for Dataset
 
        DA.Fill(DS, "GenTransactions")
        Dim Rpt As New rptGenTransactions
        Rpt.SetDataSource(DS)
 
        CrystalReportViewer1.DisplayGroupTree = False
 
        CrystalReportViewer1.ReportSource = Rpt
 
    End Sub
 
    Sub ExportReport()
        Dim oStream As New MemoryStream
        Dim Rpt As rptGenTransactions = New rptGenTransactions
        Dim diskOpts As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions
        Select Case DropDownList1.SelectedItem.Text 'this contains the value of the selected export format.
 
            Case "Rich Text (RTF)"
 
                oStream = Rpt.ExportToStream(CrystalDecisions.Shared.ExportFormatType.WordForWindows)
                Response.Clear()
                Response.Buffer = True
                Response.ContentType = "application/rtf"
                '--------------------------------------------------------------------
            Case "Portable Document (PDF)"
 
                oStream = Rpt.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat)
                Response.Clear()
                Response.Buffer = True
                Response.ContentType = "application/pdf"
                '--------------------------------------------------------------------
            Case "MS Word (DOC)"
 
                oStream = Rpt.ExportToStream(CrystalDecisions.Shared.ExportFormatType.WordForWindows)
                Response.Clear()
                Response.Buffer = True
                Response.ContentType = "application/doc"
                '--------------------------------------------------------------------
            Case "MS Excel (XLS)"
 
                oStream = Rpt.ExportToStream(CrystalDecisions.Shared.ExportFormatType.Excel)
                Response.Clear()
                Response.Buffer = True
                Response.ContentType = "application/vnd.ms-excel"
                '--------------------------------------------------------------------
        End Select 'export format
        Try
            Response.BinaryWrite(oStream.ToArray())
            Response.End()
        Catch err As Exception
            Response.Write("<BR>")
            Response.Write(err.Message.ToString)
        End Try
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ExportReport()
    End Sub

Select allOpen in new window

The following Code shows how to convert a Crystal Report to MS Word.
 
'First Create a crystal Report.
'Drag and drop the Crystal Report Viewer in the form
'copy this code on top of the code
 
Imports System.Data
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared       
 
Private myDS As New Dataset1() ' Dataset you created.
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        
    Dim rpt As New CrystalReport1() 'The report you created.        
    Dim myConnection As SqlConnection        
    Dim MyCommand As New SqlCommand()        
    Dim myDA As New SqlDataAdapter()        
    Try            
        myConnection = New SqlConnection("Data Source=localhost;Integrated Security=SSPI; Initial       Catalog=pubs;")            
        MyCommand.Connection = myConnection            
        MyCommand.CommandText = "SELECT * FROM authors"            
        MyCommand.CommandType = CommandType.Text            
        myDA.SelectCommand = MyCommand            
        myDA.Fill(myDS, "authors")            
        rpt.SetDataSource(myDS)            
        CrystalReportViewer1.ReportSource = rpt        
        Catch Excep As Exception            
              MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)        
       End Try    
End Sub   
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click        
 'This Code is used to Convert to word document        
       Dim reportWord As New CrystalReport1() ' Report Name         
       Dim strExportFile As String = "d:\TestWord.doc"        
       reportWord.ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile        
       reportWord.ExportOptions.ExportFormatType = ExportFormatType.WordForWindows        
       Dim objOptions As DiskFileDestinationOptions = New DiskFileDestinationOptions()        
       objOptions.DiskFileName = strExportFile        
       reportWord.ExportOptions.DestinationOptions = objOptions        
       reportWord.SetDataSource(myDS)        
       reportWord.Export()        
       objOptions = Nothing        
       reportWord = Nothing    
End Sub

Select allOpen in new window

 Private Sub ReportPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportPreview.Click
        Dim Rpt As rptSelectedAccount = New rptSelectedAccount
        Dim DS As New xsdGenTransactions
        '=================================================
        Dim myConnection As SqlConnection
        Dim MyCommand As New SqlCommand
        Dim myDA As New SqlDataAdapter
 
 
        myConnection = New SqlConnection("Data Source=localhost;Integrated Security=SSPI; Initial Catalog=ThreeWs;")
        MyCommand.Connection = myConnection
        MyCommand.CommandText = "SELECT * FROM GenTransactions"
        MyCommand.CommandType = CommandType.Text
        myDA.SelectCommand = MyCommand
        myDA.Fill(DS, "GenTransactions")
 
        Rpt.SetDataSource(DS)
        '============================
 
 
        Dim crParameterDiscreteValue As ParameterDiscreteValue
 
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
 
        Dim crParameterFieldLocation As ParameterFieldDefinition
 
        Dim crParameterValues As ParameterValues
 
        ' Get the report parameters collection. 
 
        crParameterFieldDefinitions = Rpt.DataDefinition.ParameterFields
 
        ' Add a parameter value - START
 
        crParameterFieldLocation = crParameterFieldDefinitions.Item("AccountName")
 
        crParameterValues = crParameterFieldLocation.CurrentValues
 
        crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
 
        crParameterDiscreteValue.Value = cboAccount.SelectedItem.Text
 
        crParameterValues.Add(crParameterDiscreteValue)
 
        crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
 
 
        ' Add a parameter value - END
     
 
        ' Set report's DataSource. Skip this step if your report is calling a 
        ' stored procedure direct in the report.
        
        
        CrystalReportViewer1.DisplayGroupTree = False
 
        ' Set CrystalReportViewer.ReportSource
 
        CrystalReportViewer1.ReportSource = Rpt
        CrystalReportViewer1.RefreshReport()
    End Sub

Select allOpen in new window

crParameterFieldLocation = crParameterFieldDefinitions.Item("AccountName")
 
        crParameterValues = crParameterFieldLocation.CurrentValues
 
        crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
 
        crParameterDiscreteValue.Value = txtAccount.Text

Select allOpen in new window