[RESOLVED] crystal reports and VB 2005

Printable View

Nov 9th, 2006, 04:23 AM
gp04lch

[RESOLVED] crystal reports and VB 2005

hi everyone,

i'm trying to do reporting with crystal reports but i dont seem to be finding anything useful on the internet. can any of you point me in the correct direction? the syntax in VB2005 is so different from VB6.0.

thanks in advance.

Re: crystal reports and VB 2005

Hi :wave:
I Make a simple code for printing data in the crystal report just read each and every line in the code and check it.
Remember This code simply on the Form Load event.
Test this code
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 here

VB Code:

Dim CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer = New CrystalDecisions.Windows.Forms.CrystalReportViewer
        Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
        CrystalReportViewer1.ActiveViewIndex = 0
        CrystalReportViewer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        CrystalReportViewer1.DisplayGroupTree = False
        CrystalReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
        CrystalReportViewer1.Location = New System.Drawing.Point(0, 0)
        CrystalReportViewer1.Name = "CrystalReportViewer1"
 
        Dim QueryString As String = "select * from TableName" 'Your Query here
        Dim Connection As New OleDbConnection(funcs.con) 'Your Database Connection Here
        Connection.Open()
 
        Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter(querystring, connection)'Passing the query in the connection
        Dim DataSet As DataSet = New DataSet() 'DataSet
        Adapter.Fill(DataSet)
        Dim DataTable As DataTable = New DataTable 'DataTable
        DataTable = DataSet.Tables(0) 'filling the datatable here
        Report.Load(Application.StartupPath & "/ReportName.rpt") 'Report Name Here
        Report.SetDataSource(DataTable)
        CrystalReportViewer1.ReportSource = Report

Nov 10th, 2006, 11:14 PM
gp04lch

Re: crystal reports and VB 2005

thank you. i'll give it a try when i get back.
Nov 11th, 2006, 07:41 PM
Mark Gambo

Re: crystal reports and VB 2005

I can't wait Until the tags are fixed!
Nov 12th, 2006, 01:28 AM
shakti5385

Re: crystal reports and VB 2005

Quote:

Originally Posted by Mark Gambo

I can't wait Until the tags are fixed!

Which Tags :confused:
Nov 12th, 2006, 09:13 AM
Mark Gambo

Re: crystal reports and VB 2005

Quote:

Originally Posted by shakti5385

Which Tags :confused:

The [VBCODE] your code goes in here [/VBCODE] Tags
Nov 13th, 2006, 01:21 AM
shakti5385

Re: crystal reports and VB 2005

Quote:

Originally Posted by Mark Gambo

The [VBCODE] your code goes in here [/VBCODE] Tags

I use that code but why that are not working i have not any idea :confused:
Nov 13th, 2006, 08:35 AM
Mark Gambo

Re: crystal reports and VB 2005

Quote:

Originally Posted by shakti5385

I use that code but why that are not working i have not any idea :confused:

They upgraded the Fourm Software, take a look at this LINK. According to the Post the tags should be working by today.
Nov 13th, 2006, 08:44 AM
shakti5385

Re: crystal reports and VB 2005

Ic ;)
Dec 26th, 2006, 01:48 AM
gp04lch

Re: crystal reports and VB 2005

thank you everyone and sorry for the late reply. what happens if i want to preview the report in crystal report itself? i cant seem to find the revelant codes.

Re: crystal reports and VB 2005

Please HELP

I am trying to get this code to work and the only thing I get is a empty form:-(

VB Code:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer = New CrystalDecisions.Windows.Forms.CrystalReportViewer
        Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
        CrystalReportViewer1.ActiveViewIndex = 0
        CrystalReportViewer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        CrystalReportViewer1.DisplayGroupTree = False
        CrystalReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
        CrystalReportViewer1.Location = New System.Drawing.Point(0, 0)
        CrystalReportViewer1.Name = "CrystalReportViewer"
 
        Dim QueryString As String = "select * from Companies" 'Your Query here
        Dim Connection As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=c:\alpha.mdf;Integrated Security=True;User Instance=True") 'Your Database Connection Here
        Connection.Open()
 
        Dim Adapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(QueryString, Connection) 'Passing the query in the connection
        Dim DataSet As DataSet = New DataSet() 'DataSet
        Adapter.Fill(DataSet)
        Dim DataTable As DataTable = New DataTable 'DataTable
        DataTable = DataSet.Tables(0) 'filling the datatable here
        Report.Load(Application.StartupPath & "/CrystalReport1.rpt") 'Report Name Here
        Report.SetDataSource(DataTable)
    End Sub

Anybody having a sample on how to use Crystal in VB.net?

Bert

Dec 29th, 2006, 05:05 AM
shakti5385

Re: crystal reports and VB 2005

Read Cr in VB.NET At my signature Last Post
Dec 29th, 2006, 05:34 AM
AlphaOne

Re: crystal reports and VB 2005

Well, that is what I have been doing. If you look on my code will you see that its from your "Cr in VB.Net

Bert
Dec 29th, 2006, 05:48 AM
shakti5385

Re: crystal reports and VB 2005

Quote:

Originally Posted by AlphaOne

Well, that is what I have been doing. If you look on my code will you see that its from your "Cr in VB.Net

Bert

See Again The Last Post There is New Code I Pot Recently, If Any Problem Then Tell
Dec 30th, 2006, 10:46 AM
gp04lch

Re: crystal reports and VB 2005

thank you so much shakti for the examples. they were great! i was able to load crystal report through vb without any difficulties. however, i DO have difficulties trying to pass parameters into the report.

i start out doing the easy parts first:

1. creat a form called CrystalReportForm with the following function:

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

2. i then create another form with a simple button and code (no tables no queries yet) just to test if it works. i pasted this code into the buttonand it works.

Dim ReportForm As New CrystalReportForm
Dim TableName(0) As String
Dim QueryString(0) As String
TableName(0) = "TableName"
QueryString(0) = "SELECT * FROM TableName"
'ReportForm.MdiParent = MainForm 'Pass For Mdi True
ReportForm.ViewReport("CrystalReport1.rpt", TableName, QueryString, )
' You can pass the Parameter Value It is Optional
ReportForm.Show()

3. i then read about parameter passing and wanted to try it out so i added the following into the button control as well.

Imports CrystalDecisions.CrystalReports.Engine

then under the button:

Dim crParameterDiscreteValue As ParameterDiscreteValue
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldLocation As ParameterFieldDefinition
Dim crParameterValues As ParameterValues

crParameterFieldDefinitions = report.DataDefinition.ParameterFields
crParameterFieldLocation = crParameterFieldDefinitions.Item("@ParameterName1")
crParameterValues = crParameterFieldLocation.CurrentValues
crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = "Parameter1Value"
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

however for the ParameterDiscretevalue and ParameterValues i get the error 'type not defined'.

and for the crParameterFieldDefinitions = report.DataDefinition.ParameterFields i get an error message 'DataDefinition is not a member of Reportname.crystalreport'.

what am i doing wrong here?? is there something i left out?

best regards and happy new year.
Jan 2nd, 2007, 01:50 AM
shakti5385

Re: crystal reports and VB 2005
Quote:

. i then read about parameter passing and wanted to try it out so i added the following into the button control as well.

Imports CrystalDecisions.CrystalReports.Engine

then under the button:

Dim crParameterDiscreteValue As ParameterDiscreteValue
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldLocation As ParameterFieldDefinition
Dim crParameterValues As ParameterValues

crParameterFieldDefinitions = report.DataDefinition.ParameterFields
crParameterFieldLocation = crParameterFieldDefinitions.Item("@ParameterName1")
crParameterValues = crParameterFieldLocation.CurrentValues
crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = "Parameter1Value"
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

however for the ParameterDiscretevalue and ParameterValues i get the error 'type not defined'.

and for the crParameterFieldDefinitions = report.DataDefinition.ParameterFields i get an error message 'DataDefinition is not a member of Reportname.crystalreport'.

Do not do this
Pass the value of parameter in the funciton and for multiple parameter you can use array of parameter also.
If any need to change the funciton then change it.
Pass the parameter as I mention
VB Code:
```
If Not [Parameter] = "" Then Report.SetParameterValue("ParameterName", [Parameter])
```
Jan 2nd, 2007, 07:46 AM
gp04lch

Re: crystal reports and VB 2005

thank you so very much. that did the trick!
Jan 2nd, 2007, 08:41 AM
shakti5385

Re: crystal reports and VB 2005

Quote:

Originally Posted by gp04lch

thank you so very much. that did the trick!

Your Welcome :thumb:
Get the solution then please go to the thread tool menu and click on the Resolved this thread, so people know that it is resolved.