generate report from values of data table

See more:

VB

hello again,,can someone help me with this code,please?

Dim cnn As SqlConnection
        Dim connectionString As String
        Dim sql As String
        connectionString = "data source=-----\SQLEXPRESS,49172; Initial Catalog=irsdb;User Id=hposadmin;Password=1zones;"
        cnn = New SqlConnection(connectionString)

        cnn.Open()
        sql = "select folioid,quantity,foodorder,price,total from foodordertbl where folioid=" + folioid
        Dim dscmd As New SqlDataAdapter(sql, cnn)
        Dim ds As New DataSet1
        dscmd.Fill(ds, "foodordertbl")

        Dim cryRpt As New ReportDocument 'The report you created.
        cryRpt.SetDataSource(ds.Tables(0))
        cryRpt.Load("C:\Users\Frontliner0102\Desktop\newRSVSYSTEM\ReservationSys\ReservationSys\ReservationSys\Reports\orderrpt.rpt")

        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue
        Dim param As New ParameterDiscreteValue


        crParameterDiscreteValue.Value = TextBox5.Text
        crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("folioid")
        crParameterValues = crParameterFieldDefinition.CurrentValues



        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.Refresh()

i want to select the values from my table which is "foodordertbl" with the folioid i have.