CRYSTAL REPORTS/VB6

Question

CRYSTAL REPORTS/VB6

Signaler

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

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

Signaler

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

Signaler

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+

Signaler

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

Signaler

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

Afficher les 26 commentaires

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
salut ,
il faut s'assurer que cette déclaration existe
Public crwapplication As New CRPEAuto.Application
A+
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
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
oui oui super merci ca marche parfaitement avec access cafait une semaine que je cherche merci bcp
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
comment passer une chaine de connexion sans passé par DSN (connexion native)==> via DLL
Salut,
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.
j'ai un grand problème au moment de l'appel de l'etat crystal report un message d'erreur affiché :
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
Bonjour et merci pour le code
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
Dim CrAppl As New CRAXDRT.Application
je reçoit le message "Type définit par l'utilisateur non défini"
Que faire ?
merci
j'ai le même problème que ELAEK qu'est ce que je dois fiare?
Salut tout les monde,
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
je travaille avec sql server et vb6 et crystal report (avec la dll craxddrt.dll)
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
dans module
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
Salut tout le monde,

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.
merci d abord mais dsl le code ca marche pa car les enregistrements ajoutées seront pa afficher ce code y a de monque de kelk chose
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
c bon cette application est bonne mais je n'arrive pas à trouver CRAXDRT????
c koi???
J'ai eu le meme problème et j'ai trouvé la solution. remplacé le % par *

au lieu de:

CrRep.RecordSelectionFormula = "{User.name} like '%n'"

tout simplement:

CrRep.RecordSelectionFormula = "{User.name} like '*n'"
exemple .. :

CrRep.RecordSelectionFormula = "{User.name} like '%n'"
j'ai voulu utiliser le 'LIKE' dans les critères spécifiques, mais ca marche pas ... FROP01, t'aurai pas une petite idée pour ca ?
Salut,

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'"
Si ce n'est pas le cas alors le code suivant suffira :

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
Salut,

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) ??

Answer 1

Votre réponse