REPORTVIEWER EXEMPLE GÉNÉRATION DE RAPPORT EN VB

Imports System.Data
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim ACT As clsTest
    Dim SqlRequetes As String

    Sub RapportSynthese_Afficher(ByVal NomRapport As String)

        Dim ds As Data.DataSet = Donnees_Recuperer("dstest", NomRapport, SqlRequetes)

        Rapport_Afficher(rvTest, NomRapport, ds)

    End Sub

    Sub Rapport_Afficher(ByRef RpV As Microsoft.Reporting.WebForms.ReportViewer, ByVal NomRapport As String, ByVal ds As DataSet)

        ' paramettres du rapport exemple le bouton export visible ou non
        'RpV.ShowExportButton = False
        'RpV.ShowPrintButton = False
        RpV.ProcessingMode = Microsoft.Reporting.WebForms.ProcessingMode.Local

        'Boucle sur les tables du dataset et liaison au rapport

        RpV.LocalReport.ReportPath = NomRapport
        RpV.LocalReport.DataSources.Clear()
        Dim dt As Data.DataTable
        For Each dt In ds.Tables

            Dim rds As New Microsoft.Reporting.WebForms.ReportDataSource

            rds.Name = ds.DataSetName & "_" & dt.TableName

            rds.Value = dt

            RpV.LocalReport.DataSources.Add(rds)

        Next

        RpV.LocalReport.Refresh()

    End Sub

    Private Function Donnees_Recuperer(ByVal NomDataSet As String, ByVal NomRapport As String, ByVal SqlRequetes As String) As Data.DataSet


        Dim ds As New Data.DataSet(NomDataSet)
        Dim da As New Data.SqlClient.SqlDataAdapter(ACT.cmd)

        ACT.cmd.Parameters.Clear()

        ACT.cmd.CommandText = SqlRequetes
        'Parametre de recherche par nom
        ACT.cmd.Parameters.AddWithValue("@Nom", txbRecherche.Text & "%")

        da.Fill(ds, "info_TBL") 'Nom de la table SQL info_TBL

        'Libération des ressources
        da.Dispose()

        'Résultat
        Return ds

    End Function

    Protected Sub Page_PreLoad(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreLoad
        'on charge la class
        ACT = Session("ACT")

    End Sub

    Protected Sub bntRecherche_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bntRecherche.Click
        'Commande SQL suivant la sélection des produits

        ' On recherche les nom qui commence par la ou les lettres tappé et ont trie
        SqlRequetes = "SELECT * " & _
                           "FROM info_TBL " & _
                           "WHERE Nom LIKE @Nom " & _
                            "ORDER BY Nom ASC"


        ACT = Session("ACT")

        'On affiche le raport
        RapportSynthese_Afficher("Report.rdlc")
    End Sub

   
End Class

Télécharger le zip