Bonsoir à tous.
J'ai une péocupation depuis une semaine que je n'arrive pas à résoudre.
J'ai cherché sur les forum mais je n'ai pas trouver de réponse satifaisante.
J'espère que quelqu'un aura l'aimabilité de me dépanner.
Merci d'avance.
Je vous explique mon problème , j'ai un état crystal report 9.0 basé sur un procédure stockée sql server 2000 avec accès sécurisée à la base de données et avec des paramtres en entrées .
J'aimerai avoir la séqence complète d'appel de l'état crystal report 9.0 sous visual basic 6.0.
Je suis en train de soupconné les paramètres d'accès à la base de données
Voici le message d'eereur que j'obtiens :
***********************
échec de la connexion.
Dtails : IM002:[Microsoft][Gestionnaire de pilotes ODBC] Source de donnes introuvable et nom de pilote non spécifié
*******************
voici le code que j'ai récupérer et que j'ai mis en place :
Dim CrxApp As New CRAXDRT.Application
Dim CrxEtat As New CRAXDRT.Report
Dim AdoRs1 As New Recordset, FichierRpt As String
Dim CrxParam
Dim crx1 As New CRField
Dim DynFieldStr As Integer
Dim AdoRs As New Recordset
Dim Connect As New SeriConnexion.ClsConnexion
Dim Db As ADODB.Connection
'*************
Dim Parametres As New CRAXDRT.ParameterValue
Dim ChampParametre As String
Dim CRXPFDParametres As CRAXDRT.ParameterFieldDefinitions
Dim CRXPFD As CRAXDRT.ParameterFieldDefinition
'*********************
Set Db = New ADODB.Connection
'Set AdoRs = New ADODB.Recordset
("D:\Mes_Developpements\StockManager_LABO\Etats\Etat_Test.rpt")
'Set crx1 = CrxEtat.ParameterFields
FichierRpt = "D:\Mes_Developpements\StockManager_LABO\Etats\Etat_Test.rpt"
'Private Sub Form_Load()
MousePointer = vbHourglass
Set ApplicationReport = New CRAXDRT.Application
Set Report = ApplicationReport.OpenReport(FichierRpt)
'///////////
For i = 1 To Report.Database.Tables.Count
Report.Database.Tables(i).SetLogOnInfo "TOTO", "STOCK", "AZEA", "AZEA"
Next i
''TOTO: Nom serveur Sql
''STOCK : Nom Bdd
''AZEA : Nom utilisateur
''AZEA : Mot de passe
'///////////
CRViewer91.ReportSource = Report
DynFieldStr = 2006
Set CRXPFDParametres = Report.ParameterFields
If Report.ParameterFields.Count <> 0 Then
For i = 1 To Report.ParameterFields.Count
Set CRXPFD = CRXPFDParametres.Item(i)
CRXPFD.AddCurrentValue (DynFieldStr)
Next
End If
CRViewer91.ViewReport
MousePointer = vbNormal
'End Sub
Merci pour votre aide