Crystal reports/vb6

Soyez le premier à donner votre avis sur cette source.

Snippet vu 35 887 fois - Téléchargée 33 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

cs_frop01
Messages postés
1356
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
1 -
Salut,

Tu dire quoi par " 'Selection des données (La requête doit être la même que la requête du rapport en ado)
" ??????

Est-ce qu'on peut modifier la requete (juste la partie Where) ??
cs_frop01
Messages postés
1356
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
1 -
Si ce n'est pas le cas alors le code suivant suffira :


Dim CrAppl As New CRAXDRT.Application
Dim CrRep As New CRAXDRT.Report
Set CrRep = CrAppl.OpenReport("c:\report1.rpt")
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
cs_frop01
Messages postés
1356
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
1 -
Salut,

Pour afficher des engregistrements selon des critères spécifique, il existe bien un moyen :

CrRep.RecordSelectionFormula = "{Command.Champs}=valeur"

ex :

CrRep.RecordSelectionFormula = "{Command.Champs} >=3 AND {Command1.Champs2} = 'Client'"
capoueidiablo
Messages postés
316
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
1 février 2010
1 -
Merci pour ca ;)
dogui1
Messages postés
5
Date d'inscription
vendredi 25 novembre 2005
Statut
Membre
Dernière intervention
26 novembre 2006
-
j'ai voulu utiliser le 'LIKE' dans les critères spécifiques, mais ca marche pas ... FROP01, t'aurai pas une petite idée pour ca ?

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.