Crystal report XI et VB.net [Résolu]

Kurtis22 2 Messages postés mardi 23 novembre 2004Date d'inscription 19 avril 2007 Dernière intervention - 18 avril 2007 à 14:09 - Dernière réponse : eric_biloo 1 Messages postés mardi 12 juin 2007Date d'inscription 12 juin 2007 Dernière intervention
- 12 juin 2007 à 11:17
    Bonjour,

Voila voila, j'ai comme un gros soucis. Je suis développeur WinDev, donc VB je connais pas trop... Bref, voici mon problème : Je voudrais savoir comment faire pour que un client puisse ouvrir un Report Crystal XI sans avoir à l'integrer au projet. En effet le report sera toujours différents de nom comme de structure.

Je ne sais pas si c'est clair. Mais en gros.

J'ouvre une fenetre
Je vais chercher mon .rpt
Je l'ouvre
Je trouve ça merveilleux
Je referme

Voila je suis en recherche d'aide et de code depuis une semaine.

Merci pour vos réponses.
Afficher la suite 

3 réponses

Répondre au sujet
Kurtis22 2 Messages postés mardi 23 novembre 2004Date d'inscription 19 avril 2007 Dernière intervention - 19 avril 2007 à 12:00
+3
Utile
Bon j'ai la solution...

Je vais envoyer le source une fois finalisé mais voila le truc.
Et ça fonctionne avec Crystal Report XI release 2.

Private Sub Form_Load()
    Form_Resize
    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
    Dim FichierRpt As String
    Dim SelectFormula As String
   
    FichierRpt = "C:\test.rpt"
    SelectFormula = "{Table1.N°}=1"
    MousePointer = vbHourglass

    'Set applicationReport = New CRAXDRT.Application
    Set report = applicationReport.OpenReport(FichierRpt)
    report.RecordSelectionFormula = SelectFormula
    With CRViewer
    .ReportSource = report
    .EnableExportButton = True
    .DisplayGroupTree = False
    .EnablePopupMenu = False
    .EnableDrillDown = False
    .EnableSelectExpertButton = False
    '.SelectionFormula (SelectFormula)
    '.SearchByFormula (SelectFormula)
    .ViewReport
    .Zoom 100
    End With
    'CRViewer.ReportSource = report
    'CRViewer.SearchByFormula (Formula)
    'CRViewer.ViewReport
    MousePointer = vbNormal
End Sub

Pour des questions pas de soucy.

Bonne journée.
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Kurtis22
cs_safamiss 1 Messages postés mardi 3 avril 2007Date d'inscription 18 avril 2007 Dernière intervention - 18 avril 2007 à 19:33
0
Utile
salut tout le monde!!!!!!!!!!
Commenter la réponse de cs_safamiss
eric_biloo 1 Messages postés mardi 12 juin 2007Date d'inscription 12 juin 2007 Dernière intervention - 12 juin 2007 à 11:17
0
Utile
Bonjour,

Pour mon projet, je programme en C++.
Je prend la suite de quelqu'un qui à déjà réalisé un module d'impression et d'aperçu des états crystal mais pour la version 8.
Ce module fonctionne avec les dlls du dossier "shared" de l'installation de crystal 8. Alors pas besoin d'installer le logiciel chez les client juste la copie des dll dans system 32 suffit.
Mon problème c'est de passé à la version XI.
Si j'installe le logiciel entier chez le client ça marche, mais je ne sait pas comment faire pour éviter cela (car je ne veux pas obligé le client a acheter le logiciel crystal XI pour faire evoluer la version du mien : "logiciel de recouvrement").
Donc je recherche quelles sont les dll que je pourrais copier pour utiliser la même méthode que pour la version précedente.

Merci d'avance pour votre aide.
Bonne journée.

MERCI à tous !!
Plusieurs cerveaux valent mieux que le mien !
Commenter la réponse de eric_biloo

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.