Crystal Report In VB.NET

[manuelpeh]

i do all you say to do in the post, it does not give me an error but the crystalreport1 that opens is clear, doesnt show nothing how i can correct that?

[riendy]

Report.Load("../CrystalReport1.rpt") 'Report Name Here
Report.SetDataSource(DataTable)
CrystalReportViewer1.ReportSource = Report

if i want to use more than one datasource, how to do that ?

[dirs]

Hi, I am using Visual Basic 6.0 and not VB.Net. Do you have code I can use to create Crystal report ( Crystal Report 2008) using VB6. I have searched many forums but still have not find code that works with VB 6.0 and Crystal Report 2008.
Thanks in advance

[ADQUSIT]

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

hi shakti bhaya, the report way you mentioned is using oledb connection, while i am working in sqlclient. so can you tell me that what i do now with this?

1 more thing is that, i want that when i end user call a report so it does not ask for username and password, means that automatically it picks up the username and password.

[azad222]

Hello

I read your article in the link
It was great
Now I have a question
This gives me an error

The report has no tables

This error is on the line below:

Report.SetDataSource(DataSet)

In the following form.
CrystalReportForm.vb

Please help

Thanks

Mr Biroonvand

[richardalgor]

a simple sample code to connect vb.net to crystal reports using oledb

http://vb.net-informations.com/cryst...e_database.htm

there you can find lot of useful links .

algor