IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Connectivité Discussion :

[CR 8.5 + VB6] Le serveur n'a pas encore été ouvert


Sujet :

Connectivité

  1. #1
    Jsh
    Jsh est déconnecté
    Membre régulier Avatar de Jsh
    Inscrit en
    août 2005
    Messages
    100
    Détails du profil
    Informations personnelles :
    Âge : 53

    Informations forums :
    Inscription : août 2005
    Messages : 100
    Points : 90
    Points
    90
    Par défaut [CR 8.5 + VB6] Le serveur n'a pas encore été ouvert
    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.
    Membre ou futur membre d'une SSII ?
    N'hésite pas à rejoindre le groupe social SSII

  2. #2
    Jsh
    Jsh est déconnecté
    Membre régulier Avatar de Jsh
    Inscrit en
    août 2005
    Messages
    100
    Détails du profil
    Informations personnelles :
    Âge : 53

    Informations forums :
    Inscription : août 2005
    Messages : 100
    Points : 90
    Points
    90
    Par défaut
    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 ?
    Membre ou futur membre d'une SSII ?
    N'hésite pas à rejoindre le groupe social SSII

Discussions similaires

  1. [PB ODBC] Ce serveur n'existe pas ou son accès est refusé
    Par meufeu dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 28/12/2015, 18h02
  2. [VB6] et Serveur
    Par djam21 dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 22/04/2006, 12h16
  3. Probleme deploiement appli vb6 sur serveur 2003
    Par rivierem dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 12/04/2006, 16h02
  4. Serveur NAS (physique pas un PC configuré comme NAS ! )
    Par bster dans le forum Administration système
    Réponses: 1
    Dernier message: 17/03/2006, 11h30
  5. Serveur dédié ou pas ??
    Par R3iTt0R dans le forum Serveurs (Apache, IIS,...)
    Réponses: 3
    Dernier message: 16/07/2004, 11h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo