CRYSTAL REPORTS/VB6
cs_frop01
Messages postés
1352
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
-
28 oct. 2004 à 13:55
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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/27139-crystal-reports-vb6
https://codes-sources.commentcamarche.net/source/27139-crystal-reports-vb6
10 mars 2011 à 13:57
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
8 mars 2010 à 10:16
il faut s'assurer que cette déclaration existe
Public crwapplication As New CRPEAuto.Application
A+
8 mars 2010 à 09:16
29 oct. 2009 à 22:45
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
15 août 2009 à 11:49
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
4 juil. 2009 à 11:24
solution pour crystal 10.5
1-ajout du de la reference craxddrt.dll attention ce n'est pas craxdrt.dll
2-ajout du composant CRViewer1 et aussi lajouter sur le form
puis
3-dans le module
Dim CrAppl As New CRAXDDRT.Application
Dim CrRep As New CRAXDDRT.Report
Dim AdoRs As New ADODB.Recordset
4-dans le code form
Private Sub Command1_Click()
Set CrAppl = New CRAXDDRT.Application
Set CrRep = New CRAXDDRT.Report
Set AdoRs = New ADODB.Recordset
AdoRs.Open " SELECT * FROM FACTURE_ENT where N_FACTURE like '" & Combo1.Text & "'", cn, 1, 2
Set CrRep = CrAppl.OpenReport(App.Path & "\états\facture.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
voila tout est bien detaillés
merci mbesses
29 août 2008 à 19:22
20 juil. 2008 à 21:23
3 juil. 2008 à 11:38
y a t'il qlq un qui peut m'aider.
J'utilise CRAXDRT.dll et CRVIEWER .DLL
Je n'ai pas de problem pour afficher un rapport. Le problem est:
1. Comment modifier le contenu de FormulaField. J'ai utilisé la proriété .texte; mais ça marche seulement avec des nombres. Qd j'affetcte un txte, il y a un message d'erreur.
2. Comment insérer dans le fichier rpt un nouveau chmp FORMULA FIELD.
7 avril 2008 à 11:22
Run-time Error 20525
impossibnle de charger l'etat
merci mes amis de faire qlq chose c'est trés urgent.
voila le code :
Private Sub CmdEtat_Click()
Dim ok, ok1 As Long
Dim user_id As String
Dim Passwd_id As String
user_id = "USER"
Passwd_id = "MOPAS"
Me.MousePointer = 11
ChDrive App.Path
ChDir App.Path
CrystalReport1.connect = "DSN=TEST;uid=" & user_id & ";pwd=" & Passwd_id
CrystalReport1.WindowState = crptMaximized
CrystalReport1.ParameterFields(0) = "param; " & Txt_param.Text & ";TRUE"
CrystalReport1.ReportFileName = App.Path & "\etats" & "\etat_xx.rpt"
CrystalReport1.Action = 1
Me.MousePointer = 0
Exit Sub
ErrorHandler:
Call GetError
End Sub
21 févr. 2008 à 11:53
En supposant que mon etat (EtatPrinc.rpt) comporte un sous-etat (EtatSous.rpt) et que les données utilisées par l'etat principal sont fournies par un jeu d'enregistrement (AdoPrinc) alors que ceux du sous-état sont fournies par AdoSous, comment peux se réécrire le bout de programme.
Merci
7 déc. 2007 à 15:34
je reçoit le message "Type définit par l'utilisateur non défini"
Que faire ?
merci
6 déc. 2007 à 12:46
30 avril 2007 à 12:26
J'utilise VB5 et VB6 avec l'ancienne version de crystal (Ver.4.6), je voudrais bien savoir comment ajouter une ligne à mon rapport (ou supprimer une ligne) en mode exécution.
Auusi, dans les codes, avec VB; la ligne suivante n'est pas accéptée:
Dim CrAppl As New CRAXDRT.Application
je reçoit le message "Type définit par l'utilisateur nst défini"
Merci
26 avril 2007 à 14:34
le probleme c'est que ma base de donnees est protégée par un pass alors qu'est ce que je peut faire. Merci de bien vouloir m'aider, c'est très urgent. elias_bendaho@hotmail.com
25 avril 2007 à 12:08
Public crApp As CRAXDRT.Application
Public Report As CRAXDRT.Report
Sub edtier()
Set Report = crApp.OpenReport("c:\pointage\retard.rpt")
CRViewer91.ReportSource = Report
CRViewer91.Refresh
Report.DiscardSavedData
CRViewer91.ViewReport
CRViewer91.Zoom 1
End sub
Mon probléme c'est que j'ai une base de donnée acces protégée par un mot de passe.
Erreur : Echec de la connexion
Détails : DAO error Code 0*bd7
Source : DAO.Workspace
Description: Mot de Passe non valide
Merci de me trouver une solution c'est trés urgent mille merci
20 mars 2007 à 18:20
je cherche quelqu'un qui puisse m'aider
Je crée un report basé sur des tables acces. Quand je le teste dans Crystal Report, je n'ai pas de souci, les données s'affichent et quand je demande un réaffichage, les données s'actualisent.
Mon problème est le suivant:
Quand je suis dans vb6, j'arrive à accéder à mon report. Le problème est que les données ne sont pas actualiser par rapport au données de la bases. vb m'affiche le report qui a été sauvegardé lors de la création ou de la modification de celui-ci.
Si quelqu'un a une piste, çà serait super sympa.
29 déc. 2006 à 15:41
il m affiche ce message " le serveur n est pa encore ouvert"
g pa trouvé de solution jusqu'à moment avec les crystal reports 8 et 11 mais je travail tres bien dans l encien version qui s adapte avec BD 97 et merci
si vous avez des solution PLZ infoamz@yahoo.fr
7 nov. 2006 à 10:46
c koi???
1 sept. 2006 à 11:45
au lieu de:
CrRep.RecordSelectionFormula = "{User.name} like '%n'"
tout simplement:
CrRep.RecordSelectionFormula = "{User.name} like '*n'"
21 juin 2006 à 11:06
CrRep.RecordSelectionFormula = "{User.name} like '%n'"
21 juin 2006 à 11:02
15 mai 2006 à 13:33
29 oct. 2004 à 01:41
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'"
28 oct. 2004 à 13:57
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
28 oct. 2004 à 13:55
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) ??