• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 790
  • Last Modified:

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

0
Celorza
Asked:
Celorza
  • 3
  • 2
1 Solution
 
Éric MoreauSenior .Net ConsultantCommented:
0
 
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
[Webinar] Improve your customer journey

A positive customer journey is important in attracting and retaining business. To improve this experience, you can use Google Maps APIs to increase checkout conversions, boost user engagement, and optimize order fulfillment. Learn how in this webinar presented by Dito.

 
É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

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now