Crystal report probleme

Bonjour,

j'ai une fonction avec un parametre qui retour une table et je veux afficher les colons dans un "crystal report"

exemple :

CREATE FUNCTION produit(@mois INT)
RETURNS TABLE AS RETURN (
SELECT id, nom, mois, prix
FROM produits
)

la requête est complique, c'est juste un exemple

Merci d'avance

4 réponses

  1. Bonjour,

    Ta fonction semble être du PL/SQL, mais avec quel langage
    comptes-tu manipuler Crystal Report ?

    Cdt

    Lupin
    0
    1. Bonjour Lupin.PC4,

      c'est avec Asp.net (vb) et base de donnees SQL Server

      Cdt
      0
      1. re:

        Je suis plutôt familier avec VBForms.Net, néanmoins
        ça doit se ressembler beaucoup.

        1.) Tu crée un Dataset static avec le nom de tes colonnes
        2.) Tu instancie celui-ci :
        Dim LeDataSet As New MonDataSet
        3.) Tu alimente le DataSet à partir du DataReader
        3.) Tu instancie un objet Rapport (*.rpt)
        Dim ObjetRapport As MonRapport
        4.) Tu appelle une méthode de visualisation dans un form secondaire

        Dim FenRap As New FormRapports()

        FenRap.ViewReport(LeDataSet)

        FenRap.Show()

        Méthode du nouveau form

        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(Dossier_RPT & "RapportVideo.rpt") 
        Report.SetDataSource(LeDataSet) 
        CrystalReportViewer.ReportSource = Report 
        
        Me.Panneau.Controls.Add(CrystalReportViewer) 
        
        End Sub 
        


        Cdt

        Lupin
        0
        1. Merci pour votre solution, mais ça marche pas :(
          0