Visual basic 6 et crystal report 8.5

Soyez le premier à donner votre avis sur cette source.

Snippet vu 21 611 fois - Téléchargée 23 fois

Contenu du snippet

J'ai cherché un peu partout comment arriver à faire tourner VB6 et Crystal Report et une base Access. Ce que j'ai trouve ne me paraissait pas tres clair j'ai donc essaye de faire un truc dynamique. En fonction de l'ecran d ou vient la demande d'impression, le ou les parametres à passer à Crystal sont declarées en variables globales ainsi que la requete. Le code ci-dessous vous montre comment fonctionne le lancement de l impression.

Source / Exemple :


' 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

A voir également

Ajouter un commentaire

Commentaires

Messages postés
5
Date d'inscription
mercredi 11 mai 2005
Statut
Membre
Dernière intervention
21 avril 2010

9awad nta o code dialak
Messages postés
2
Date d'inscription
lundi 4 septembre 2006
Statut
Membre
Dernière intervention
30 octobre 2007

tfou
Messages postés
46
Date d'inscription
mercredi 1 février 2006
Statut
Membre
Dernière intervention
30 octobre 2007

Re à tous,

Voila j'ai juste un gros soucis c'est que je fichier .rar du projet est super gros il fait 1,38 Mo onc je ne peux le mettre sur le site VBFrance... Mais il est présent sur le forum que nous avons fait avec des potes pour notre section informatique. Voici l'adresse où se trouve le sujet http://membres.lycos.fr/tfmteam/viewforum.php?f=3

Il faut absolument vous inscrire sur le forum, inscription gratuite biensur afin de pouvoir voir les sources etc car nous y avons beaucoup de petite astuces etc. par la même occasions, vous pourrais éventuellement contribuer au forum lol

Le fichier rar comprend le projet complet ainsi que l'était d'impression CrystalReport et il fichier txt d'explications. Ne surtout pas oublier de renommer vos chemin car je n'ai pas eu le temps de faire des App.path pour la bdd et l'objet Crystalreport. en cherchant un rien et en lisant le txt vous comprendrez et les manipulations seront aisées !

Bon taf à tous j'espère que cela vous convient si pas ben cherchez ailleurs mdr

J-il
Messages postés
46
Date d'inscription
mercredi 1 février 2006
Statut
Membre
Dernière intervention
30 octobre 2007

Ok je vais regarder après ma source et la mettre sur le forum...
Messages postés
47
Date d'inscription
jeudi 30 août 2001
Statut
Membre
Dernière intervention
6 avril 2007

Bonjour

En réponse à chouchou270403 On veut bien un petit bout de code

Merci
Afficher les 10 commentaires

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.