Visual basic 6 et crystal report 8.5
Soyez le premier à donner votre avis sur cette source.
Snippet vu 22 367 fois - Téléchargée 25 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
- Basic crystals
- Craxdrt.application vb6 - Meilleures réponses
- Crystal report 6 - Meilleures réponses
- Visual Basic / VB.NET : Crystal reports/vb6 - CodeS SourceS - Guide
- Visual basic 6 directx 8 - Guide
- Visual Basic / VB.NET : Programmation directx 8 tutorial 1 : initialisation de direct3d 8 - CodeS So - Guide
- Visual Basic / VB.NET : Snow avec directx 8 - CodeS SourceS - Guide
- Visual basic 6 installer ✓ - Forum - Visual Basic 6
14 déc. 2007 à 18:15
30 oct. 2007 à 18:37
11 févr. 2007 à 11:17
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
11 févr. 2007 à 11:08
11 févr. 2007 à 11:06
En réponse à chouchou270403 On veut bien un petit bout de code
Merci
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.