CR not display data in the report. [ resolved ]

[steve_rm]

Hello,

I am using VS 2005 and CR 10. I have using typed dataset. However, I have a problem displaying the data in the report. I have created an typed dataset.xsd called DS_JobSheet.xsd. I have previewed the data and it displays everything. I have created the reports.

In the report I have select database expert / project Data / ADO.Net Dataset. I have select my dataset and selected the table.

I have dragged the fields on to the report. I think everything seems to be ok here.

The code for filling the report is below. I have added a grid to the report to see if that gets filled and it does. I just don't understand why my report does not show any data.

I have imported
CrystalDecisions.CrystalReports.Engine
CrystalDecisions.Shared
Can any correct if I have done something wrong.

Many thanks,

Steve

Private Sub frmJobSheet1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim customerReport As New rptJobSheet1()
        Dim DS_JobSheet As DataSet 'DS_JobSheet is the .xsd data schema, data has been generated
        Dim IDNumber As Integer
        Dim cnn As New SqlConnection()
        Dim da As New SqlDataAdapter()
        Dim cmd As New SqlCommand()

        cnn.ConnectionString = "server=steve02\ssd02; database=serviceMaster; pwd=a123; user id=sa"

        cmd.CommandType = CommandType.Text
        cmd.CommandText = "SELECT * FROM Incident"
        DS_JobSheet = New DataSet

        Try
            cnn.Open()
            cmd.Connection = cnn

            da.SelectCommand = cmd
            da.Fill(DS_JobSheet)

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        IDNumber = 68 'Display record for ID number 68 this number exists in the database table

        customerReport.SetDataSource(DS_JobSheet)


        Me.CrystalReportViewer1.Refresh()
        Me.CrystalReportViewer1.SelectionFormula = "{Incident.IncidentID} = " & IDNumber & " "
        Me.CrystalReportViewer1.ReportSource = customerReport 'Application.StartupPath & "\JobSheetReport\rptJobSheet1.rpt"


        Me.UltraGrid1.DataSource = DS_JobSheet.Tables(0).DefaultView 'Data is displayed in the datagrid so this is ok
        Me.UltraGrid1.Refresh()

        Me.CrystalReportViewer1.Show()

    End Sub

[shakti5385]

Check the crystal report if there is save data with report opetion is ture the unchacked it

[steve_rm]

Hello Shakti,

I am using CR 10. I can't find this save data report option. I have looked under the properties of the report. Am I looking in the correct place for this. There is only about 10 properties. Is is something that would be in the field explorer?

Thanks,

Steve

[shakti5385]

Hello Shakti,
I am using CR 10. I can't find this save data report option. I have looked
Thanks,
Steve

This option will display at the file menu of the crystal report.
Check it if it is checked the remove this check using the click on it.

[steve_rm]

I check the CR file menu.

I could not see anything that refered to save data. Should CR 10 have this on the file menu?

My friend has a simpliar problem as me, he can not get his report to display data using the typed dataset.

The datagrid fills with data, so there is not a problem there in filling the dataset.

I have removed this line:
Me.CrystalReportViewer1.SelectionFormula = "{Incident.IncidentID} = " & IDNumber & " "
So that i can display all the data.

I have added this line:
customerReport.Database.Tables(0).SetDataSource(DS_JobSheet2)

But still the same problem.

Thanks if you can help,

Steve

[shakti5385]

Hi
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
It is working fine at my PC.
If you do not want to use the sql query then you can use the selection formulas also

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

[steve_rm]

Hello,

Thanks for the code, just a quick comment. Did you use typed dataset?

Thanks,

Steve

[steve_rm]

Thanks for your help. The report worked.

You really are an expert.

Now all l have to do is make this things fail so l know why it was not working for me.

Just a quick question.
why create a new report document
Dim customerReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument

I was doing this:
Dim customerReport As New rptJobSheet1() 'Is this wrong

Me.CrystalReportViewer1.Name = "CrystalReportViewer1" 'Why this line

Why do we need to do this, and have the report in the same folder as the exe
report.Load(Application.StartupPath & "/rptJobSheet2.rpt")

Thanks for your answers.

Steve

[shakti5385]

Hello,
Thanks for the code, just a quick comment. Did you use typed dataset?
Thanks,
Stee

Typed Data Set

[steve_rm]

Hello,

I did send you a post with some questions.

Please if you have time can you answer them.

Many thanks for your help today.

Steve

[shakti5385]

Thanks for your help. The report worked.
You really are an expert.

Your Welcome
Not so much expert still learning

Dim customerReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument

In a declaration or assignment statement, a New clause must specify a defined class from which the instance can be created. This means the class must expose a constructor that the calling code can access

I was doing this:
Dim customerReport As New rptJobSheet1() 'Is this wrong

Can not say but remember you are using VS.NET so does not work here like Vb

Why do we need to do this, and have the report in the same folder as the exe
report.Load(Application.StartupPath & "/rptJobSheet2.rpt")

This is the better way to work

Hope Now you get all the answer

[steve_rm]

Thanks for answering my questions,

Steve

[shakti5385]

Thanks for answering my questions,

Steve

If you got the solution of your question then go to the thread tool menu and click on the resloved this thread.