How can I display data in crystal report using dataset

I am having problems in the code used to display data of a query into a crystal report, when I conect directly to the database it work fine. The first sample works but the second one it shows me an error on the " rpt.SetDataSource(Ciudad_Table)"

Thanks

This code works.
 
Imports System.Data.SqlClient
 
Public Class Form1
 
    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()
        Dim myDS As New DataSet() 'The DataSet you created.
        Try
            myConnection = New SqlConnection("Data Source=.\SQLExpress;Integrated Security=SSPI;" & _
                                             "Initial Catalog=DSISacc;")
            MyCommand.Connection = myConnection
            MyCommand.CommandText = "SELECT * FROM M_Ciudad"
            MyCommand.CommandType = CommandType.Text
            myDA.SelectCommand = MyCommand
            myDA.Fill(myDS, "M_Ciudad")
            rpt.SetDataSource(myDS)
            CrystalReportViewer1.ReportSource = rpt
        Catch Excep As Exception
            MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class
 
____________________________________________________
 
 Dim Ciudad_Adapter As New DBSaccTableAdapters.M_CiudadTableAdapter
    Dim Ciudad_Table As New DBSacc.M_CiudadDataTable
 
 
    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.
        Try
 
            Ciudad_Adapter.Fill(Ciudad_Table)
            rpt.SetDataSource(Ciudad_Table)
            CrystalReportViewer1.ReportSource = rpt
 
        Catch Excep As Exception
            MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
 
End Class

Open in new window

CelorzaAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
CelorzaAuthor Commented:
Emoreau,

Thank, I have read your article, but I am lost in how to fill the report. I usualy

Dim Ciudad_Adapter As New DBSaccTableAdapters.M_CiudadTableAdapter
Dim Ciudad_Table As New DBSacc.M_CiudadDataTable
Private mrptDoc as new ReportDocument
 
Ciudad_Adapter.Fill(Ciudad_Table)
mrptDoc.Load("c:\dis\e-solutions\DSISacc\Cartera.rpt")
mrptDoc.SetDataSource(Ciudad_Table)
crystalReportViewer1.ReportSource = mrptDoc

But I get an error in the setdatasource it does not admint "Ciudad_Table"

Thanks for your help.

carlos
0
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
Éric MoreauSenior .Net ConsultantCommented:
SetDataSource requires a Dataset not a datatable.
0
 
CelorzaAuthor Commented:
Emoreau,

But if I put the dataset of my proyect also appear as an error, Sorry but I totaly lost. Can you helpme to understand my problem.
0
 
Éric MoreauSenior .Net ConsultantCommented:
it would really help me if you could tell me what error you have? where and how is your dataset is declared? how is it filled? I see a tableadapter and a datatable in your code but no trace of a dataset!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.