Crystal Report In VB.NET

[shakti5385]

Often user get problem for making the report using Vb.Net so here I am providing the simple code for using the report in the VB.NET
This code simply on the Form Load event, you can change it according to the button also. You have to add just connection and the query according to your project.
If you do not want to use the SQL query then you can use the selection formulas also
If any problem related to this code then post me in The PM do not post here Contact me at the PM or post in the reporting section I will check your problem there.

Step By Step Crystal Report In VB.NET New Code
1) Add a from in your project Name CrystalReportForm
2) Add a panel Set the Dock Property To Fill
3) Add the Code

Imports System.Data.OleDb
Public Class CrystalReportForm
 
    Public Function GetDataAdeptor(ByVal QueryString As String) As OleDbDataAdapter
        Dim DataAdapter As New OleDbDataAdapter
        Try
            Dim NewConnection As OleDbConnection = OpenNewConnection()
            DataAdapter = New OleDbDataAdapter(QueryString, NewConnection)
            Return DataAdapter
        Catch ex1 As OleDbException
            Throw New Exception("Error Getting The Table", ex1)
        Catch ex As Exception
            Throw New Exception("Error Getting The DataAdapter", ex)
        End Try
 
    End Function
 
    ''' <summary>
    ''' Open Connection Here
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function OpenNewConnection() As OleDbConnection
        Dim NewConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=StartUpPath\Database.mdb;Jet OLEDB:Database Password='ShaktiSinghDulawat';")
        Try
            NewConnection.Open()
            Return NewConnection
        Catch ex As Exception
            Throw (ex)
        End Try
    End Function
 
    ''' <summary>
    ''' 1)Add Windows Form Name CrystalReportForm
    ''' 2)Add A Panel Set Dock Proprty To Fill
    ''' </summary>
    ''' <param name="ReportName">Report Name Contain The Name</param>
    ''' <param name="TableName">Table Name In Array</param>
    ''' <param name="QueryString">Query String In Array</param>
    ''' <param name="Parameter">Parameter If Any</param>
    ''' <remarks></remarks>
    ''' 
 
    Friend Sub ViewReport(ByVal ReportName As String, ByVal TableName() As String, ByVal QueryString() As String, Optional ByVal [Parameter] As String = "")
        Me.MdiParent = MainForm
        If Not UBound(TableName).Equals(UBound(QueryString)) Then MessageBox.Show("Passed Variable Are Not Correct", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information) : Exit Sub
        Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim CrystalReportViewer As CrystalDecisions.Windows.Forms.CrystalReportViewer = New CrystalDecisions.Windows.Forms.CrystalReportViewer
        CrystalReportViewer.ActiveViewIndex = 0
        CrystalReportViewer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        CrystalReportViewer.DisplayGroupTree = False
        CrystalReportViewer.Dock = System.Windows.Forms.DockStyle.Fill
        CrystalReportViewer.Location = New System.Drawing.Point(0, 0)
        CrystalReportViewer.Name = "CrystalReportViewer"
        Dim Adapter As New OleDb.OleDbDataAdapter
        Dim DataSet As New DataSet
        For I As Integer = 0 To UBound(TableName)
            Adapter = GetDataAdeptor(QueryString(I))
            Adapter.Fill(DataSet, TableName(I))
        Next
       'Report In the report Folder
        Report.Load(Application.StartupPath & "/Report/" & ReportName & "")
        Report.SetDataSource(DataSet)
        If Not [Parameter] = "" Then Report.SetParameterValue(0, [Parameter])
        CrystalReportViewer.ReportSource = Report
        Me.Panel1.Controls.Add(CrystalReportViewer)
    End Sub
 
End Class

How to Call It
1) Make a Crystal Report and save it in the Report folder at the application startup Path, Just add the Name of the report as CrystalReport1
2) Make a new form add a command button

Call This Function for single Table

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ReportForm As New CrystalReportForm
        Dim TableName(0) As String
        Dim QueryString(0) As String
        TableName(0) = "TableName" 'Pass The Table That you used in the crystal Report
        QueryString(0) = "SELECT * FROM TableName" ' Pass the Query
        'ReportForm.MdiParent = MainForm 'Pass For Mdi True
        ReportForm.ViewReport("CrystalReport1.rpt", TableName, QueryString, )
        ' You can pass the  Parameter Value It is Optional
        ReportForm.Show()
    End Sub

For Multiple table Increase the array

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ReportForm As New CrystalReportForm
        Dim TableName(1) As String
        Dim QueryString(1) As String
        TableName(0) = "Table1"
        TableName(1) = "Table2"
        QueryString(0) = "SELECT * FROM Table1"
        QueryString(1) = "SELECT * FROM Table2"
        ReportForm.MdiParent = MainForm
        'Here I am Passing the value of Parameter
        ReportForm.ViewReport("CrystalReport1.rpt", TableName, QueryString, "UnRegister")
        ReportForm.Show()
    End Sub

Still I am Making some modification In the Code as it work successfully I will Tell.

EDIT :14 June 2007
Add the following reference in your project.

CrystalDecisions.CrystalReport.Engine
CrystalDecisions.Enterprise.Framework
CrystalDecisions.Enterprise.infoStore
CrystalDecisions.ReportSource
CrystalDecisions.Shared
CrystalDecisions.Web
CrystalDecisions.Windows.Forms

Code For The MS Access And The SQL Server 2005 Thanks
Thanks