CRYSTAL REPORTS/VB6

Commentaire de frop01 le 28/10/2004 13:55:25

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

Commentaire de frop01 le 29/10/2004 01:41:28

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'"

Commentaire de dogui1 le 21/06/2006 11:02:45

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 ?

Commentaire de lolorenzeb le 01/09/2006 11:45:44

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'"

Commentaire de infoamz le 29/12/2006 15:41:34

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

Commentaire de boutaibmustapha le 25/04/2007 12:08:51

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

Commentaire de elaek le 30/04/2007 12:26:33

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

Commentaire de Niangoran le 07/12/2007 15:34:06

Dim CrAppl As New CRAXDRT.Application
je reçoit le message "Type définit par l'utilisateur non défini"
Que faire ?
merci

Commentaire de mrkaanane le 07/04/2008 11:22:11

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

Commentaire de hosaub le 20/07/2008 21:23:41

merci pour l'aide

Commentaire de futurist le 04/07/2009 11:24:04

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

Commentaire de ikmus le 29/10/2009 22:45:37

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

Commentaire de BoutEllis le 08/03/2010 10:16:34

salut ,
il faut s'assurer que  cette déclaration  existe
Public crwapplication As New CRPEAuto.Application
A+