Bonjour à tous,
J'ai fait un état composé d'un état principal et de 4 autres sous-états.Mes états ont été fait avec Crystal Report 9.
J'arrive à ouvrir l'état avec Crystal Report 9
J'arrive à appeler les états simples avec VB6
Mais quand j'appelle l'état à partir de mon menu avec VB6 j'ai le message suivant :
Login failed.
Details:28000:[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'PBUser'
Veuillez m'aider
Merci
Voici mon code
code du bouton d'appel
#
'------Contrôle d'accès---------
    If Not ControleGroupe(VarGroupe, "ETA1", "IMPRI" ) Then
        Message (49)
    Exit Sub
    End If
    '-------------------------------
   mCodeRapport = Val(txtFields(0).Text)
   Rapport = 32
   LstViewer.Show vbModal
   Exit Sub
 
code du formulaire d'affichage de l'état
#
Set CrxReport = crxApplication.OpenReport(App.Path & "\EtatListRapp.rpt" )
CrxReport.DiscardSavedData
Set AdoRs1 = New Recordset
Set AdoRs2 = New Recordset
Set AdoRs3 = New Recordset
Set AdoRs4 = New Recordset
Set AdoRs5 = New Recordset
AdoRs1.Open "Select * from V_ETAT_RAPPORT Where V_ETAT_RAPPORT.CodeRapp = " & mCodeRapport, db, adOpenDynamic, adLockOptimistic
AdoRs2.Open "Select * from V_SOUS_ETAT_BL_RAPPORT Where V_SOUS_ETAT_BL_RAPPORT.CodeRapp = " & mCodeRapport, db, adOpenDynamic, adLockOptimistic
AdoRs3.Open "Select * from V_SOUS_ETAT_ACHATDEPOT_RAPPORT Where V_SOUS_ETAT_ACHATDEPOT_RAPPORT.CodeRapp = " & mCodeRapport, db, adOpenDynamic, adLockOptimistic
AdoRs4.Open "Select * from V_SOUS_ETAT_DEPENSE_RAPPORT Where V_SOUS_ETAT_DEPENSE_RAPPORT.CodeRapp = " & mCodeRapport, db, adOpenDynamic, adLockOptimistic
AdoRs5.Open "Select * from V_SOUS_ETAT_VERSEMENT_RAPPORT Where V_SOUS_ETAT_VERSEMENT_RAPPORT.CodeRapp = " & mCodeRapport, db, adOpenDynamic, adLockOptimistic
CrxReport.Database.Tables(1).SetDataSource AdoRs1, 3
CrxReport.Database.Tables(1).SetDataSource AdoRs2, 3
CrxReport.Database.Tables(1).SetDataSource AdoRs3, 3
CrxReport.Database.Tables(1).SetDataSource AdoRs4, 3
CrxReport.Database.Tables(1).SetDataSource AdoRs5, 3
 
Aidez moi vite s'il vous plaît