1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Crystal reports/vb6

Crystal reports/vb6

1/5 (26 avis)

Snippet vu 37 223 fois - Téléchargée 35 fois

Commenter

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
mistor
Messages postés
1
Date d'inscription
jeudi 4 mai 2006
Statut
Membre
Dernière intervention
10 mars 2011
10 mars 2011 à 13:57
Slt besoin d'aide
j'utilise Vb6 + Cristal report 10 pour mes etats
je ne sais pas comment faire pour afficher nom selon la classe
j'ai une table "T_Etudiant" commportant des champs Classe et Nom
je ne sais pas comment faire pour afficher selon la classe
Merci d'avance
BoutEllis
Messages postés
29
Date d'inscription
mercredi 3 octobre 2007
Statut
Membre
Dernière intervention
8 mars 2010
8 mars 2010 à 10:16
salut ,
il faut s'assurer que cette déclaration existe
Public crwapplication As New CRPEAuto.Application
A+
infodragon
Messages postés
5
Date d'inscription
mardi 12 juin 2007
Statut
Membre
Dernière intervention
8 septembre 2009
8 mars 2010 à 09:16
j'ai un message erreur server has not oppened
ikmus
Messages postés
1
Date d'inscription
mercredi 28 octobre 2009
Statut
Membre
Dernière intervention
29 octobre 2009
29 oct. 2009 à 22:45
slt,

j'ai le même prob. j'ai ajouté le fichier dll craxddrt.dll, mais j'arrive pas à ajouter le composant CRViewer, car je le trouve pas dans la liste des composants.
est ce que quelqu'un peut m'aider?

NB : J'utilise vb 6.0+crystal Report 2008

Merci
BoutEllis
Messages postés
29
Date d'inscription
mercredi 3 octobre 2007
Statut
Membre
Dernière intervention
8 mars 2010
15 août 2009 à 11:49
Bonjour,
Merci pour l aide mais vb m affiche toujours l erreur "un objet est requis" à la ligne "CRViewer1.ReportSource = CrRep" j ai ajouter le fichier crviewer.dll et je l ai registré mais ca marche pas toujours , est ce que quelqun peut m aider s il vous plait ?
merci d'avance
Afficher les 26 commentaires
S'inscrire maintenant

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.