VISUAL BASIC 6 ET CRYSTAL REPORT 8.5

' la fenetre apercu qui contient le composant CRview

Dim RsRapport As New ADODB.Recordset ' jeu d’enregistrements
Dim lStrSql As String ' Contient l’ordre SQL pour le recordset
Dim lStrConnect As String ' Contient la chaîne de connection à la base
Dim Report As New CRAXDRT.Report
Dim ApplicationReport As New CRAXDRT.Application
Dim Parametres As New CRAXDRT.ParameterValue
Dim ChampParametre As String
Dim CRXPFDParametres As CRAXDRT.ParameterFieldDefinitions
Dim CRXPFD As CRAXDRT.ParameterFieldDefinition



Private Sub Form_Load()

' Change le pointeur de souris en sablier
MousePointer = vbHourglass

' Initialise le recordset avec la requête et l’objet connection
RsRapport.Open RequeteCrystal, Cn
' Instancie l'objet application
Set ApplicationReport = New CRAXDRT.Application
' Lance la visualisation du rapport
Set Report = ApplicationReport.OpenReport(FichierRpt)
' Indique à l'objet de visualisation que les données viennent du rapport
CRViewer1.ReportSource = Report
' Définiton de la chaîne de caractères destinée à être inserée dans le rapport
DynFieldStr = TitreFilm
' Récupère la collection des champs paramètre du rapport
Set CRXPFDParametres = Report.ParameterFields
If Report.ParameterFields.Count <> 0 Then
    'boucle pour recuperer les parametres de l etat
    For i = 1 To Report.ParameterFields.Count
        ' Récupère le premier champ paramètre de la collection
        Set CRXPFD = CRXPFDParametres.Item(i)
        ' Ajoute la chaîne de caractères au champ paramètre
        CRXPFD.AddCurrentValue (DynFieldStr)
    Next
End If
' Lance la visualisation du rapport
CRViewer1.ViewReport
' Le pointeur de souris redevient normal une fois le chargement effectué
MousePointer = vbNormal

RsRapport.Close

End Sub

'Le code qui appelle la fenetre ci dessus
TitreFilm = Mid(frmdetail.Caption, 20)
RequeteCrystal = "select * from films where film_nom='" & Mid(Me.Caption, 20) & "'"
FichierRpt = "C:\program files\videotheque\Rpt\Fiche_Film.rpt"
frmApercu.Show