crystal reports + dataset

[Flupke]

Hello, I'm trying to figure out how to create a Crystal Report in VB2005 using a CrystalReportViewer from a dataset that I created on a form Form1. The dataset (from an Access Database) appears on a DatagridView on Form1, assuring me that there is nothing wrong with thre creation of the dataset itself. However , I cannot make it appear in the Report Viewer. The error that constantly throws up is : "Report has no tables". This is my code :

Dim rpt as new CrystalReport
Dim mds As New DataSet
mds = ........ (creation of a dataset)

rpt.SetDataSource(mds)
CrystalReportViewer1.ReportSource = rpt

When running this code, the dataset is created and appears in a datagridvieuw, but the report remains empty.
Have I skipped a crucial step ? I would appreciate to receive help from anyone on short notice, as I have to finish a project including several reports by the end of April.

I read the answers on simmilar quetions on the forum, but I don't see the answer to my question.

Greetings !

Flupke

[Dököll]

Hey there!

You probably have already seen this out there:

 
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
 
 

Not too skilled in Crystal, see what this does for ya...

Also get some step by step here:

http://www.neodynamic.com/ND/FaqsTip...rodid=7&sid=80

Please fetch results through this forum, just to see if anything already posted.

In a bit!

Dököll