Soyez le premier à donner votre avis sur cette source.
Vue 32 528 fois - Téléchargée 2 581 fois
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
30 avril 2012 à 12:25
Merci pour ton code que je trouve très utile. Mais la base de Donnée de mon projet est avec Access ,
SVP comment je peut adapter ton code pour qu'il marche dans mon projet
27 juin 2011 à 18:46
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
4 mai 2008 à 20:00
Sans voir de code je te dirais de mettre EnableViewState a true sur l'instance de la page.
4 mai 2008 à 14:51
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
13 févr. 2008 à 22:28
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.