Vb6 et crystal report 10

mtlcyr Messages postés 5 Date d'inscription mercredi 26 mai 2004 Statut Membre Dernière intervention 10 février 2005 - 14 janv. 2005 à 15:41
cs_jaridasaid Messages postés 5 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 6 août 2010 - 7 févr. 2006 à 12:42
Bonjour, je voudrais savoir comment faire pour
selectionner une enregistrement specifique dans une base de données
access et l'imprimer directement avec crystal report 10. En fait je
veux faire un bouton qui suivant le parametre d'une text box, va créer
une sql et imprimer directement le rapport.





Merci de votre aide si appreciable

mtl

1 réponse

cs_jaridasaid Messages postés 5 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 6 août 2010
7 févr. 2006 à 12:42
1° Tu ajoutes dans tes références :
-Crystal ActiveX Reports Viewer Library 10.0
-Crystal Reports ActiveX Designer Run time Library 10.0

2° tu créer une form et tu y ajoute le controle CrystalActiveXReportViewer (nomme ce controle CRVReport)

3° Tu tappes le code suivant sur le On Load de ta form :

Private Sub Form_Load()

Dim rptReport As New CRAXDRT.Report
Dim rptRepApp As New CRAXDRT.Application
Dim rtpViews As CRAXDRT.DatabaseTable

ReportFileName = "c:\Monchemin\monfichier.rpt"
Set rptRepApp = New CRAXDRT.Application
Set rptReport = New CRAXDRT.Report

With CRVReport

Set rptReport = rptRepApp.OpenReport(ReportFileName, 1)

.ReportSource = rptReport
.ViewReport

End With

End Sub
0