Discussion :

[soazig]

Bonjour,
Actuellement j'ai une dll active X qui est référencé dans une projet ExeStandard.
Dans cette dll il y a notamment une classe CCSV2
qui possède un evenement ChargementTermine.
Voilà la définition de cet évenement

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
Public Event ChargementTermine(ByVal strNomUsuel As String, ByVal strNomNaiss As String, _
                               ByVal strPrenomUsuel As String, ByVal strDateNaiss As String, _
                               ByVal strRangGemellaire As String, ByVal strQualite As String, _
                               ByVal strNumSS As String, ByVal strAdresse As String, _
                               ByVal strRegimeLib As String, ByVal strCodeOrganisme As String, _
                               ByVal strOrgRegime As String, ByVal strOrgCaisse As String, _
                               ByVal strOrgCentre As String, _
                               ByVal strOrganismeLib As String, ByVal strCodeGestion As String, _
                               ByVal strGestionLib As String, ByVal strDebDroitAMO As String, _
                               ByVal strFinDroitAMO As String, ByVal strLibelleExo As String, _
                               ByVal strMedTraitant As String, ByVal strTypeContrat As String, _
                               ByVal strDebDroitMUT As String, ByVal strFinDroitMUT As String, _
                               ByVal strNumeroB2 As String, ByVal strNumeroEDI As String, _
                               ByVal strNumeroAdherent As String, ByVal strDebValAMC As String, _
                               ByVal strFinValAMC As String, ByVal strTypeCodeCMU As String, _
                               ByVal strTypeLibCMU As String, ByVal strDebDroitCMU As String, _
                               ByVal strFinDroitCMU As String)

Dans l'exe standard sur l'evenement en question on traite toutes ces chaines pour mettre à jour la base de données.
Je dois rajouter quelques paramètres de plus.
Comme je trouve qu'il y en a définitivement trop, je me suis dit que j'allais lui passer un objet.
J'ai donc crée un autre évenement pour savoir si c'est possible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Event SFChargementTermine(ByVal objResultatLu As CInfoLusCSV)

Lorsqu'il se déclenche j'ai une erreur Automation.
Est-ce possible comme architecture?
Si oui
La classe CInfoLusCSV doit avoir quel propriété Instancing
Persistable.

La classe CInfoLusCSV est juste un conteneur de valeurs avec des propriétés read write et c'est tout, elle est définie dans ma dll active X.

Merci de votre aide
Soazig

[soazig]

Bonjour,
Finalement cette solution est tout à fait possible.
Mon erreur automation était du à une coquille
Avant le raise error
Voilà comment était mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim objResultat As CInfoLuesCSV
objResultat = New CInfoLuesCSV
objResultat.NomAssure = strNomUsuel
objResultat.PrenomAssure = strPrenomUsuel
RaiseEvent ChargementTermine(objResultat)

Il manquait donc le Set devant objResultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim objResultat As CInfoLuesCSV
Set objResultat = New CInfoLuesCSV
objResultat.NomAssure = strNomUsuel
objResultat.PrenomAssure = strPrenomUsuel
RaiseEvent ChargementTermine(objResultat)

Erreur due au passage d'un développeur VB.Net en VB6 et qui oublie donc la base en VB6.

Désolée du dérangement.
Soazig