Reportviewer exemple génération de rapport en vb

Soyez le premier à donner votre avis sur cette source.

Vue 31 148 fois - Téléchargée 2 430 fois

Télécharger le projet
Commenter

Description

Voila une source RepportViewer qui peut être utile a certain.
La particularité de cette source est que le rapport est généré en vb
on peut donc lui donner les paramettres voulu et faire des recherches
dans une table SQL

Source / Exemple : 


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

Conclusion :


Le site comporte une base SQL pour exemple

ouvrer le site tapper "a" dans le texbox recherche par nom et lancez la recherche.
Vous pouvez voir le rapport ainsi que des liens sur les mails
avec des fonctions enfin voila je pense que ca peut etre utile.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
falstuff
Messages postés
40
Date d'inscription
jeudi 23 septembre 2004
Statut
Membre
Dernière intervention
26 avril 2012
 2
Merci pour ce bout de code. ca m'a été trés utile. Quel galere sans avoir trouvé ton code. Je te met 9/10 car j'ai du l'adapté pour du winform ;-) je plaisante, c'est tout simplement on peut l'optimiser un peu plus
merci encore
@++
Signaler
slyderkiller
Messages postés
146
Date d'inscription
lundi 28 avril 2003
Statut
Membre
Dernière intervention
16 février 2012
Derien si tu as besion de plus de précision je suis a l'écoute
Signaler
anthride
Messages postés
11
Date d'inscription
vendredi 19 avril 2002
Statut
Membre
Dernière intervention
4 mai 2008
Merci pour votre exemple . cla m'a bien aidé pour demarrer mon reporting.

Par contre j'ai l'Erreur suivante:
ASP.NET viewstate has been disabled. The report viewer control requires that viewstat be enabled.

J' ai cette erreur seulement sur certaine page. Elle est assez explicite , mais apres plusieursd jour a rechercher dans les librairies et forums je ne saisie pas encore la corriger.

Si vous avez une Solution.
Cette erreur n'ayant aucun rapport avec votre exemple, je vousai treseconnaissant.

Merci Desvernes claude
Signaler
slyderkiller
Messages postés
146
Date d'inscription
lundi 28 avril 2003
Statut
Membre
Dernière intervention
16 février 2012
Bien comme ca je ne s'est pas. Elles ont quoi de particulier les pages ou il y a cette erreur?

Sans voir de code je te dirais de mettre EnableViewState a true sur l'instance de la page.
Signaler
garnier54
Messages postés
160
Date d'inscription
mardi 17 janvier 2006
Statut
Membre
Dernière intervention
9 décembre 2018
bonjour,
merci pour ton code c'est exactement ce que je recherche. par contre je possédé visual studio 2010 et je rencontre quelque problèmes pour l'adapter (je débute avec vs)
1) la classe Microsoft.Reporting n'existe pas
2) il ne trouve pas la classe cltest

merci de ton aide

nicolas
Afficher les 6 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (slyderkiller)