Discussion :

[Jsh]

Bonjour,

Voici mon souci.

J'ouvre un rapport existant avec VB6
je récupère le nom de la procédure stockée
j'applique une boucle qui va traduire les libellés
j'enregistre mon rapport sous un autre nom.

J'ouvre ce nouveau rapport
J'injecte :
- la chaine de connexion au serveur
- la procédure stockée qui sera appelée
- les paramètres de cette procédure

Enfin je lance l'export du rapport en PDF.

Et là, c'est le drame :

erreur -2147192184 Le serveur n'a pas encore été ouvert.

Voici le code :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
 Set CRreport = CRAPP.OpenReport("MonRapport.rpt")
        Set CRsections = CRreport.Sections
        '--- Recherche sur chaque section de l'etat
        nbsection = CRsections.Count
        For numsection = 1 To nbsection
            Set CRsect = CRsections.Item(numsection)
            '--- Recherche du nombre de libelle par section
            Set CRobj = CRsect.ReportObjects
            nbobject = CRobj.Count
            For compteur = 1 To nbobject
                If TypeOf CRobj.Item(compteur) Is CRAXDRT.TextObject Then
                    Set CRtxtobj = CRobj.Item(compteur)
' ici fonction pour la traduction :
                    Inter.getMessage CRtxtobj.Text, Data
                    CRtxtobj.SetText (Data.Message)
                End If
            Next
        Next
 
        '--- Définition du nom de la ProcStock
        nomtable = CRreport.Database.Tables(1).Name
 
        '-------------------- Sauvegarde de l'état dans un fichier temporaire 
 
        CRreport.SaveAs "Tempo.rpt", cr80FileFormat
 
        NomEtat = cheminCreationRep & NomEtat & ".pdf"
 
        '------------------- EXPORTATION DU FICHIER AU FORMAT PDF 
 
        '--- Ouverture du fichier temporaire souhaité pour exportation
        Set CRreport = CRAPP.OpenReport("tempo.rpt")
        '--- Passage de la connexion à la base &
        '--- Définition de la ProcStock
        CRreport.Database.Tables(1).SetLogOnInfo Serveur, Base, User, PWD
        CRreport.Database.Tables(1).SetTableLocation Base& ".dbo." & nomtable, "", ""
        '------------------- Détermination des paramètres internes du rapport 
 
        CRreport.ParameterFields.Item(1).AddCurrentValue param1
        CRreport.ParameterFields.Item(2).AddCurrentValue param2
        CRreport.ParameterFields.Item(3).AddCurrentValue param3
 
        '--- Déclaration variable d'exportation
        Set ExportOptions = CRreport.ExportOptions
        ExportOptions.CharFieldDelimiter = ","
        ExportOptions.CharStringDelimiter = "'"
        '---Definition de l'état à exporter
        ExportOptions.DiskFileName = cheminCreationRep & NomEtat & ".pdf"
        ExportOptions.UseReportDateFormat = True
        '--- Destination du rapport
        ExportOptions.DestinationType = crEDTDiskFile
        ExportOptions.UseReportNumberFormat = True
        '--- Déclaration du format d'exportation
        ExportOptions.FormatType = crEFTPortableDocFormat
 
        '--- Exportation du report
        Call CRreport.Export(False)

Quelqu'un aurait-il une idée ?

Merci.

[Jsh]

L'idée a été de modifier le pilote de connexion vers la base de données.
J'étais en ODBC (!). J'ai donc testé en OLE DB et en Microsoft SQL (le second ne se connecte toujours pas) :
Menu Base de données/convertir le pilote de base de données (pour ceux que ça intéresse).

La connexion semble se faire, mais j'ai maintenant ce message d'erreur :



et la description de l'erreur renvoyée dans VB est :

-2147192179 Erreur détectée par la DLL de base de données. Source : Crystal Reports ActiveX Designer

Toujours pas d'avis ?