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.
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.