Previous Topic Next Topic

Issue with crystal report

Closed
mikeoe2003 Posts 25 Registration date Thursday November 1, 2012 Status Member Last seen March 27, 2014 - Feb 1, 2013 at 06:06 AM
apprabhu Posts 2 Registration date Sunday February 3, 2013 Status Member Last seen February 3, 2013 - Feb 3, 2013 at 07:40 AM
Hello,
Please i need help with getting a crystal report to display data find my code below

Private Sub BtnCRPT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCRPT.Click
Try

Dim con As New OleDbConnection
con.ConnectionString = _
"provider=Microsoft.JET.OLEDB.4.0; " & _
"data source = '" & Application.StartupPath & "\school_record.mdb'"
Dim ds As New DataSet
Dim dt As New DataTable

Dim da As New OleDbDataAdapter
da = New OleDbDataAdapter("select * from student_info ", con)
ds.Tables.Add(dt)
da.Fill(ds)

Dim crReportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument
crReportDocument = New mcrystal
crReportDocument.SetDataSource(dt)
CrystalReportViewer1.ReportSource = crReportDocument

con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message & " - " & ex.Source)
End Try
End Sub




1 reply

Answer 1 / 1
apprabhu Posts 2 Registration date Sunday February 3, 2013 Status Member Last seen February 3, 2013
Feb 3, 2013 at 07:40 AM
Change this 

da = New OleDbDataAdapter("select * from student_info ", con)
ds.Tables.Add(dt)
da.Fill(ds)

Dim crReportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument
crReportDocument = New mcrystal
crReportDocument.SetDataSource(dt)


to 

da = New OleDbDataAdapter("select * from student_info ", con)
da.Fill(ds)

Dim crReportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument
crReportDocument = New mcrystal
crReportDocument.SetDataSource(ds)


When you are using single table data just use dataset only.
0