Discussion :

[nngeneration]

, je tiens tout d'abord à remercier les personnes administrant developper.com et les internautes qui participent à l'émancipation du site.

Actuellement, je trifouille sur internet depuis 2jours et je n'arrive pas à trouver la solution à mon problème (), et donc forcer de constater que mon seul moyen de réussir ce que je voudrais faire est de poster ici ( ça m'embête un peu , car je ne pense pas encore posséder assez de connaissance pour aider la communauté developper.com )

Qu'est ce que je veux faire?

Je communique avec un ptit automate , avec un autre ptit programme en VB6. VB6 communique avec cet automate , pour analyser les actions effectués par cet automate. Une fois les informations analysés le ptit programme va ranger toutes ses informations dans une base oracle (les informations vont servir à dessiner une courbe).

L'utilisateur peut consulter ses archives , et Crystal Report va aider notre utilisateur à imprimer ses graphiques et c'est ici que j'ai un soucis. Comme la bdd oracle possèdent plusieurs courbe , chaque courbes est identifié par un numéro identifiant, et donc j'aurais voulu envoyé en paramètre cet identifiant à Crystal Report.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RptReport.RecordSelectionFormula = "{INFO_PRESSE.BARCODE}='" + barcode + "'"

mais mon programme en VB6 me signal une erreur de connexion à la base de donnée oracle.

Ma question.

J'aurais voulu savoir comment s'identifier à la base oracle pour que je puisse via Crystal report afficher ma courbe sur mon programme en VB6.

je vous laisse au passage le code pour afficher ma courbe , dans cet exemple je ne vais pas chercher l'identifiant (barcode) dans la bdd, je lui donne une valeur, directement une valeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
    Dim barcode As String
    barcode = "12345678"
 
    'Creation des objets'
    Dim RptReport As New CRAXDRT.Report
    Dim rptRepApp As New CRAXDRT.Application
 
 
    ReportFileName = App.Path & "\Crystal\Courbe.rpt"
 
    'copie'
 
    'instance'
    Set rptRepApp = New CRAXDRT.Application
    Set RptReport = New CRAXDRT.Report
 
    With CRVReport
        Set RptReport = rptRepApp.OpenReport(ReportFileName, 1)
 
        .ReportSource = RptReport
        RptReport.RecordSelectionFormula = "{INFO_PRESSE.BARCODE}='" + barcode + "'"
        RptReport.Database
 
        .ViewReport
        .Zoom (150)
 
    End With

Si je me suis trompé de rubrique, ou si vous avez rien compris à mon problème , bah dite le

[Fleur-Anne.Blain]

Bonjour,

La connexion est portée par chaque Crystal report, et donc à leur exécution, elle sera demandée.

Il faut donc ajouter la connexion a ton appli VB apparement à savoir tous les paramètres nécessaires à une connexion oracle : nom de server, login, pass, etc

(dans l'ideal un webconfig s'il y aune connection unique mais je ne sais plus trop comment ca marche le VB6)

[nngeneration]

et c'est bien ça mon problème c'est que moi non plus je ne sais pas comment marche le VB6 (j'aurais préferé .NET) et encore moins Crystal Report.
En tout cas une chose est sur c'est que tu as mis le doigt sur mon problème.

donc si quelqu'un à cette petite ligne de code qui me manque ça serait super sympa :p

[Fleur-Anne.Blain]

Aucune idée tu auras surement plus de réponse chez VB