The report has no tables

[GirishSharma]

Hello,
I am getting above error message. Here is my code which i am using:
...
...

tablename = clsname & exmname & Trim(DropDownList1.Text)
sql = "select * from " & tablename & " where rollno between " & TextBox1.Text & " and " & TextBox2.Text
Dim myr As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim ocn As New System.Data.OracleClient.OracleConnection
Dim ods As New System.Data.DataSet
Dim oda As New System.Data.OracleClient.OracleDataAdapter(sql, ocn)
ocn.ConnectionString = "Data Source=orcl;User ID=scott;Password=tiger;Unicode=True"
oda.Fill(ods, tablename)
myr.Load("C:\Inetpub\wwwroot\Exam2\CrystalReport.rpt")

myr.SetDataSource(ods.Tables(0)) ' This is error line.

myr.DataDefinition.FormulaFields("rollno").Text = ods.Tables(0).Rows.Item(0).Item("rollno")
myr.DataDefinition.FormulaFields("dob").Text = ods.Tables(0).Rows.Item(0).Item("dob")
myr.DataDefinition.FormulaFields("name").Text = ods.Tables(0).Rows.Item(0).Item("name")
myr.DataDefinition.FormulaFields("schcode").Text = ods.Tables(0).Rows.Item(0).Item("schcode")
myr.DataDefinition.FormulaFields("centcode").Text = ods.Tables(0).Rows.Item(0).Item("centcode")
CrystalReportViewer1.ReportSource = myr
CrystalReportViewer1.DataBind()

Since i can not give the table name in design time (it will be dynamic); so
I have create a crystal report in which i have created formula fields in the report which will be populated as above code.

Please guide and help me.
Regards
Girish Sharma

[Jupic]

Hi,
I use vs2008 with CR, and I have same problem "The report has no tables"
in my code:


---------------------------------------------------------------
Dim ReportForm As New CrystalReportForm
CRput = App_Path() & "CrystalReport1.rpt"

Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocument = _
New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CrystalReportViewer As CrystalDecisions.Windows.Forms.CrystalReportViewer = _
New CrystalDecisions.Windows.Forms.CrystalReportViewer

CrystalReportViewer.ActiveViewIndex = 0
CrystalReportViewer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
CrystalReportViewer.DisplayGroupTree = False
CrystalReportViewer.Dock = System.Windows.Forms.DockStyle.Fill
CrystalReportViewer.Location = New System.Drawing.Point(0, 0)
CrystalReportViewer.Name = "CrystalReportViewer"

Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App_Path() & "prizmaPRO.mdb;")
cn.Open()

Dim Adapter As New OleDbDataAdapter
Adapter = New OleDbDataAdapter("SELECT * FROM tabNORM", cn)

Dim ds As New DataSet

Adapter.Fill(ds, "tabNORM")

Report.Load(CRput)
Report.SetDataSource(ds.Tables(0))

CrystalReportViewer.ReportSource = Report
Me.Panel1.Controls.Add(CrystalReportViewer)
ReportForm.Show()
--------------------------------------------------------
Coments?