Rapport sur Microsoft visuel studio 2008
Fermé
dhekra123
Messages postés
16
Date d'inscription
jeudi 19 mars 2015
Statut
Membre
Dernière intervention
14 avril 2015
-
Modifié par dhekra123 le 19/03/2015 à 13:18
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 4 avril 2015 à 00:13
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 4 avril 2015 à 00:13
A voir également:
- Rapport sur Microsoft visuel studio 2008
- Rapport de stage - Guide
- Désinstaller microsoft edge - Guide
- Cam studio - Télécharger - Capture d'écran
- Fl studio gratuit pc - Télécharger - Édition & Montage
- Telecharger clavier visuel arabe - Télécharger - Divers Web & Internet
1 réponse
Kalissi
Messages postés
218
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
15 juillet 2019
20
Modifié par Whismeril le 4/04/2015 à 11:21
Modifié par Whismeril le 4/04/2015 à 11:21
Bonjour,
Créer un dataset :
Appeler le rapport :
En gros, ça ressemble à cela.
K
EDIT: Précision du langage dans la coloration syntaxique.
Créer un dataset :
Private Sub CreerRapport(ByVal pLaCollection As Type_Collection)
Dim LesDonnes As New MonDataSet
Dim Lacollection = pLaCollection
Dim dt As DataTable = LesDonnes.TableVideo
Dim Indice As Int32 = Lacollection.Count - 1
Dim Boucle As Int32 = 0
Dim Ent As Type_Entite = Nothing
Dim Ligne As DataRow
For Boucle = 0 To Indice
Ent = LaCollection.Item(Boucle)
Ligne = dt.NewRow()
Ligne("MediaNumeroCassette") = Ent.MediaNumeroCode
Ligne("MediaCassette") = Ent.MediaCassette
Ligne("MediaAnnee") = Ent.MediaAnnee
Ligne("MediaTitreFrancais") = Ent.MediaTitre_Francais
Ligne("MediaEpisode") = Ent.MediaEpisode
Ligne("MediaNationalite") = Ent.MediaNationalite
Ligne("MediaStyle") = Ent.MediaStyle
Ligne("MediaCategorie") = Ent.MediaCategorie
Ligne("MediaDuree") = Ent.MediaDuree
Ligne("MediaCote") = Ent.MediaCote
Ligne("MediaRealisateur") = Ent.MediaRealisateur
Ligne("MediaSerie") = Ent.MediaSerie
Ligne("MediaTitreAnglais") = Ent.MediaTitreAnglais
Ligne("MediaMode") = Ent.MediaMode
Ligne("MediaFicheOK") = Ent.MediaFiche_OK
Ligne("MediaStock") = Ent.MediaStock
Ligne("MediaClasse") = Ent.MediaClasse
Ligne("MediaType") = Ent.MediaType
Ligne("MediaQualite") = Ent.MediaQualite
Ligne("MediaCritiques") = Ent.MediaCritiques
Ligne("MediaActeursP") = Ent.MediaActeurs_P
Ligne("MediaActeursS") = Ent.MediaActeurs_S
dt.Rows.Add(Ligne)
Next
Dim objRapport As New Type_Rapport
objRapport.SetDataSource(LesDonnes.Tables("TableVideo"))
Dim FenRap As New FormRapports(Contexte)
FenRap.ViewReport(LesDonnes)
FenRap.Show()
End Sub
Appeler le rapport :
Public Sub ViewReport(ByVal LeDataSet As DataSet)
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"
Report.Load(Contexte.CheminRAP & "RapportVideo.rpt")
Report.SetDataSource(LeDataSet)
CrystalReportViewer.ReportSource = Report
Me.Panneau.Controls.Add(CrystalReportViewer)
End Sub
Public Sub ViewReport(ByVal ReportName As String, ByVal TableName As String, ByVal QueryString As String, Optional ByVal [Parameter] As String = "")
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 Adapter As New OleDb.OleDbDataAdapter
Dim DataSet As New DataSet
Adapter = GetDataAdaptor(QueryString)
Adapter.Fill(DataSet, TableName)
Report.Load(Dossier_RPT & ReportName)
Report.SetDataSource(DataSet)
If Not [Parameter] = "" Then
Report.SetParameterValue(0, [Parameter])
End If
CrystalReportViewer.ReportSource = Report
Me.Panneau.Controls.Add(CrystalReportViewer)
End Sub
Public Sub ViewReport(ByVal ReportName As String, ByVal LeDataSet As DataSet, Optional ByVal [Parameter] As String = "")
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"
Report.Load(Dossier_RPT & ReportName)
Report.SetDataSource(LeDataSet)
If Not [Parameter] = "" Then
Report.SetParameterValue(0, [Parameter])
End If
CrystalReportViewer.ReportSource = Report
Me.Panneau.Controls.Add(CrystalReportViewer)
End Sub
En gros, ça ressemble à cela.
K
EDIT: Précision du langage dans la coloration syntaxique.