hi,
i have tried to display values in a report viewer. but i got an error....A data source instance has not been supplied for the data source 'DataSet1'
here is the cod below. i may have some code errors. thank you
Dim connString As String = System.Configuration.ConfigurationManager.ConnectionStrings("SLA_ConnectionString").ConnectionString
Dim SQL As String = "sp_SLA_Raport_KeyValues"
Data = New DateTime(Year(Me.wdc_DataStart.Value), Month(Me.wdc_DataStart.Value), 1)
Dim DataStart As DateTime = Me.wdc_DataStart.Value 'New DateTime(Me.wdc_DataStart.Value)
Dim DataEnd As DateTime = Me.wdc_DataEnd.Value
Using da As New SqlDataAdapter(SQL, connString)
da.SelectCommand.Parameters.Add("pUserAccount", SqlDbType.NVarChar).Value = username
da.SelectCommand.Parameters.Add("pDataStart", SqlDbType.DateTime).Value = DataStart
da.SelectCommand.Parameters.Add("pDataEnd", SqlDbType.DateTime).Value = DataEnd
da.SelectCommand.Parameters.Add("pCompaniaPrest", SqlDbType.Int).Value = Me.ddlCompaniePrestator.SelectedValue
repPath = "Rapoarte\Report1.rdlc"
End Using
Me.rwT2010.Visible = False
Dim RaportChei As DataTable = New DataTable()
Dim qRaportChei As DataSetKeyTableAdapters.sp_SLA_Raport_KeyValuesTableAdapter
qRaportChei = New DataSetKeyTableAdapters.sp_SLA_Raport_KeyValuesTableAdapter
RaportChei = qRaportChei.ta_SLA_Raport_KeyValues(Me.hfUserAccount.Value, Me.hfDataStart.Value, Me.hfDataEnd.Value, Me.hfCompanyId.Value)
Dim parameters(3) As Microsoft.Reporting.WebForms.ReportParameter
parameters(0) = New Microsoft.Reporting.WebForms.ReportParameter("pUserAccount", username)
parameters(1) = New Microsoft.Reporting.WebForms.ReportParameter("pDataStart", DataStart)
parameters(2) = New Microsoft.Reporting.WebForms.ReportParameter("pDataEnd", DataEnd)
parameters(3) = New Microsoft.Reporting.WebForms.ReportParameter("pCompaniaPrest", Me.ddlCompaniePrestator.SelectedValue)
Dim rdsRaportChei As ReportDataSource = New ReportDataSource("RaportChei", RaportChei)
Me.rwT2010.LocalReport.DataSources.Clear()
Me.rwT2010.LocalReport.ReportPath = "Rapoarte\Report1.rdlc"
Me.rwT2010.LocalReport.DataSources.Add(rdsRaportChei)
Me.rwT2010.LocalReport.SetParameters(parameters)
Me.rwT2010.LocalReport.Refresh()
Me.rwT2010.Visible = True