Solved

How can I display data in crystal report using dataset

Posted on 2008-10-13
6
779 Views
Last Modified: 2012-05-05
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
Comment
Question by:Celorza
  • 3
  • 2
6 Comments
 
LVL 100

Expert Comment

by:mlmcc
ID: 22703891
0
 
LVL 70

Accepted Solution

by:
Éric Moreau earned 500 total points
ID: 22703894
0
 

Author Comment

by:Celorza
ID: 22743857
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
Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

 
LVL 70

Expert Comment

by:Éric Moreau
ID: 22744099
SetDataSource requires a Dataset not a datatable.
0
 

Author Comment

by:Celorza
ID: 22744323
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
 
LVL 70

Expert Comment

by:Éric Moreau
ID: 22744581
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

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question