Passage de paramétres à un état crystal 9 depuis vb 6.0

Signaler
Messages postés
36
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
17 avril 2014
-
cs_Visso
Messages postés
36
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
17 avril 2014
-
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

2 réponses

Messages postés
36
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
17 avril 2014

Il n'y a personne pour répondre à mon problème.

VISSO
Messages postés
36
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
17 avril 2014

Il n'y a personne pour répondre à mon problème.

VISSO