VB.Net Visionneuse Crystal Report

Question

Bonjour à tous,
Je dois développer une application Vb.Net à partir de laquelle je dois afficher un état Crystal report dans une visionneuse.
J'utilise Vb.Net version Standard et Crystal report version 9.
L'état crystal est déjà créé, je n'ai pas besoin de passer de paramètre du type Dsn, formule de sélection..., à partir de vb.net.
Il suffit simplement d'ajouter, je suppose, un composant du type Visionneuse Crystal (axCrViewer9) et de lui passer en paramètre le chemin d'accès au fichier.
Le pb est que je ne sais pas la propriété à utiliser pour définir le chemin d'accès au fichier . J'ai bien trouvé quelques exemples mais dans tous, la référence CrystalReports.CrystalDecisions.Engine est utilisée. Cependant je ne trouve pas cette référence sur mon poste. Quelqu'un pourrait il me dire quelle librairie il faut utiliser ou me donner un tit exemple.
D'avance merci
Olan

cs_labout · Answer

labout

Voici ce que j'utilise

 Dim rptDrillDown As New CrystalDecisions.CrystalReports.Engine.ReportDocument
 rptDrillDown.Load(sAdrRpt & rapport & ".rpt")
 ' Load the report
        If Dir(sAdrRpt & rapport & ".rpt") <> "" Then
            rptDrillDown.Load(sAdrRpt & rapport & ".rpt")

            For Each tbCurrent In rptDrillDown.Database.Tables
                tliCurrent = tbCurrent.LogOnInfo
                tbCurrent.ApplyLogOnInfo(tliCurrent)
            Next tbCurrent
            frm.CrystalReportViewer1.ReportSource = rptDrillDown
            rptDrillDown.Database.Tables.Item("Immo").SetDataSource(dataset)
            If iAnnee > 0 Then
                frm.CrystalReportViewer1.SelectionFormula = "year({immo.datesaisie})=" & iAnnee
            End If
            CType(rptDrillDown.SummaryInfo, CrystalDecisions.CrystalReports.Engine.SummaryInfo).ReportTitle = "Immobilisations " & titre
            frm.CrystalReportViewer1.Zoom(2)
            frm.ShowDialog()
            rptDrillDown.Dispose()
            rptDrillDown = Nothing
            frm.Dispose()
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        Else
            MsgBox("L'état " & sAdrRpt & rapport & ".rpt est absent.", MsgBoxStyle.Critical)
        End If

@+