Soyez le premier à donner votre avis sur cette source.
Snippet vu 22 367 fois - Téléchargée 25 fois
' 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
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.