Question

I’m trying to pass all data from a DB to a report: but I get an error (The report has no tables)

Dim sqlConn As String = "SELECT (SUM(item_selldetail * item_quantity )/ 100 * 12) AS isv_report," & _
                    " (SUM( item_selldetail * item_quantity ) - (SUM(item_selldetail * item_quantity )/ 100 * 12)) " & _
                    " AS capital_report,SUM( item_selldetail * item_quantity ) AS total_report  FROM qa_items;"
                Dim objDataAdapter As New MySqlDataAdapter(sqlConn, objConn)

                ' DataSet
                Dim ds As New DataSet

                ' llenar el DataSet
                objDataAdapter.Fill(ds)


                Dim mireporte As New ReportDocument()

                mireporte.Load("C:\Users\Jonathan\Desktop\Proyectos\Quickadmon\Quickadmon\Reportes\report_capital_rpt.rpt")

                mireporte.SetDataSource(ds)

                Me.capitalreport_viewer_capital_report.ReportSource = mireporte

Anyone have any idea what I can do?

Answer 1

Sample code here , try to dolike this

    sql = "SELECT Product_id,Product_name,Product_price FROM Product"
    Dim dscmd As New SqlDataAdapter(sql, cnn)
    Dim ds As New DataSet1
    dscmd.Fill(ds, "Product")
    cnn.Close()

    Dim objRpt As New CrystalReport1
    objRpt.SetDataSource(ds.Tables(1))
    CrystalReportViewer1.ReportSource = objRpt
    CrystalReportViewer1.Refresh()

If you need full source code :

http://vb.net-informations.com/crystal-report/crystal_report_from_sql_query_string.htm

merca.