C?est un petit bout de programme qui permet d?afficher un état dynamique (crystal report). A travers VB6 en passe les données à un fichier crystal reports (****.rpt) . Très utile si vous voulez modifier vos rapports sans recompiler et réinstaller votre programme.
Source / Exemple :
Private Sub data()
Dim CrAppl As New CRAXDRT.Application
Dim CrRep As New CRAXDRT.Report
Dim AdoRs As New ADODB.Recordset
'Selection des données (La requête doit être la même que la requête du rapport en ado)
AdoRs.Open " SELECT * from * WHERE *=* ", db
Set CrRep = CrAppl.OpenReport(App.path & "\*****.rpt")
CrRep.Database.Tables(1).SetDataSource AdoRs, 3
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = CrRep
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
'Plein écran
Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height - 400
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Width = Me.Width
CRViewer1.Height = Me.Height
End Sub
Conclusion :
Crystal reports 8.5/VB6
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.