[CR][VB6]prob de connection erreur d'exec '20599' [Résolu]

[Phiss]

J'ai une base de données SQL serveur.
Je souhaite afficher un Etat, grâce à Crystal Report, par rapport à une requête SQL.
Je suis sous VB 6 et mon code est le suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
 VgSqlCrpt = "SELECT EPR.SERIE , EPR.NAT, EPR.LE, EPR.PC, EPR.AC, EPR.ORG, EPR.SYM, EPR.CLE, EPR.NUMDES, EPR.REPDES, EPR.ULI, EPR.TYPGES, EPR.DEPOT, EPR.CODGES, EPR.SSA, EPR.COM, EPR.QENG, EPR.ORD "
    VgSqlCrpt = VgSqlCrpt & "From dbamom.dbo.EPR EPR "
    VgSqlCrpt = VgSqlCrpt & "WHERE EPR.SERIE='" & VgSerie & "' and EPR.LE='" & VgLE & "' and EPR.PC='" & VgPC & "' and EPR.AC='" & VgAC & "' "
    VgSqlCrpt = VgSqlCrpt & "ORDER BY EPR.SERIE, EPR.LE, EPR.PC, EPR.AC, EPR.ORD"
 
    CrptETAT.Connect = "DSN=sqltest;UID=EprApp;PWD=lvebeprapp"
 
    CrptETAT.ReportFileName = App.Path + "\etatCRYSTAL\EtatEPR.rpt"
    CrptETAT.SQLQuery = VgSqlCrpt
    CrptETAT.PrintReport
    CrptETAT.Action = 0

Lorsque j'exécute mon programme, il m'affiche le message d'erreur suivant:

Erreur d'exécution 20599
Impossible de se connecter au serveur SQL

[Phiss]

Bon j'ai réussi à faire passer ce que je voulais à crystal en utilisant

Code :

CrptETAT.Formula

Au lieu de

Code :

CrptETAT.SQLQuery