I am not to get data in crstyal reports, i ahve data in data base
Plase help me , wher should i chek
here is the code
Try
Cursor.Current = Cursors.WaitCursor
maConnection = InstantierConnexionBD()
Dim cryRpt As New Combined
'Report principal
Dim reportViewer As New ReportViewer
Dim strSql = My.Resources.SQLCellSiteGroupBySectorTechno.ToString
Dim dscmdFirst As New SqlDataAdapter(strSql, maConnection.getConnection)
Dim dsFirst As New DSCellSite
Dim dt As New DSCellSite.DataTable1DataTable
dscmdFirst.SelectCommand.Parameters.AddWithValue("@siteid", sLocation.getInstance.Location.Trim)
dscmdFirst.SelectCommand.Parameters.AddWithValue("@Version", sLocation.getInstance.Versions.Trim)
dscmdFirst.Fill(dsFirst.DataTable1)
cryRpt.SetDataSource(dsFirst)
'First SubReport CCNr
Dim strRptCCN = My.Resources.SQLReportsBySAnt.ToString
Dim dscmd1 As New SqlDataAdapter(strRptCCN, maConnection.getConnection)
Dim strRptGeneralInfo = "Select * from VRptCellSiteData2 Where locationID ='" & sLocation.getInstance.Location & "' And VersionsNum ='" & sLocation.getInstance.Versions & "'"
Dim dscmd2 As New SqlDataAdapter(strRptGeneralInfo, maConnection.getConnection)
Dim ds1 As New DSCellSiteSAnt
Dim da1 As New DSCellSiteSAntTableAdapters.vCCNRepFullTableAdapter
Dim da2 As New DSCellSiteSAntTableAdapters.vCCNRepBaseTableAdapter
dscmd1.SelectCommand.Parameters.AddWithValue("@siteid", sLocation.getInstance.Location)
dscmd1.SelectCommand.Parameters.AddWithValue("@AntVersion", PreviousVersion)
dscmd1.SelectCommand.Parameters.AddWithValue("@PostVersion", sLocation.getInstance.Versions)
' verifier si dscmd1 est utilisé. le commenter et l'enlever du code
dscmd1.Fill(ds1.vCCNRepFull) 'DataTable1= rptCCN
ds1.EnforceConstraints = False
dscmd2.Fill(ds1.DataTable2) 'Entete
da1.Fill(ds1.vCCNRepFull, sLocation.getInstance.Location, sLocation.getInstance.Versions)
da2.Fill(ds1.vCCNRepBase, sLocation.getInstance.Location, PreviousVersion) 'singletonLocation.getInstance.Versions)
MakeFullCCNReport(ds1.vCCNRepFull, ds1.vCCNRepBase)
cryRpt.Subreports("CCNTestSAnt.rpt").SetDataSource(ds1)
' ''Second SubReport Antenna
Dim strSql3 = "Select * from VrptCombineAntennaFeeders Where SiteID ='" & sLocation.getInstance.Location & "' And VersionsNum ='" & sLocation.getInstance.Versions & "' Order by AntennaNumber"
Dim dscmd3 As New SqlDataAdapter(strSql3, maConnection.getConnection)
Dim dsSubReport3 As New DSCombinedFeeders
dscmd3.Fill(dsSubReport3, "VRptCombineAntennaFeeders")
cryRpt.Subreports("Antenna").SetDataSource(dsSubReport3)
'' ''third subreport listening Antenna
Dim strSql4 = "Select * from VrptAntennaListing Where SiteID ='" & sLocation.getInstance.Location & "' And VersionsNum ='" & sLocation.getInstance.Versions & "' order by AntennaNumber"
Dim dscmd4 As New SqlDataAdapter(strSql4, maConnection.getConnection)
Dim dsSubReport4 As New DSAntennaListing
dscmd4.Fill(dsSubReport4, "VrptAntennaListing")
cryRpt.Subreports("AntennaListing.rpt").SetDataSource(dsSubReport4)
'Rename Exported File
If isPreview Then
maConnection.getConnection.Close()
reportViewer.CrystalReportViewer1.ReportSource = cryRpt
reportViewer.CrystalReportViewer1.Show()
reportViewer.CrystalReportViewer1.Refresh()
reportViewer.Text = "Report Combined"
reportViewer.Show()
Cursor.Current = Cursors.Default
Else
Dim reportName As String = "RptSLS-" & sLocation.getInstance.Location & "-V." & sLocation.getInstance.Versions
Dim opt As New CrystalDecisions.Shared.DiskFileDestinationOptions
Dim FilePath As String = fileName & "\" & reportName & ".pdf"
cryRpt.ExportOptions.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
cryRpt.ExportOptions.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
opt.DiskFileName = FilePath
cryRpt.ExportOptions.DestinationOptions = opt
cryRpt.Export()
cryRpt.Close()
MessageBox.Show("Your file has been saved to:" & Environment.NewLine & fileName & "", " Path:" & fileName & "" _
, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If