Discussion :

[watcha2020]

Bonjour à tous,

je travaille sur une appplication web en asp et vb6 qui utilise des ActiveX. Ces activeX permettent entre autre de requêter sur des bases distantes.

Voici mon code :

Code :

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

1
2
3
4
Set oM_test = CreateObject("EI_MSR0.M_SERVICE_NX")
sContexteErreur = "appel de la méthode test_LstConso"
lCodeRetour = oM_test.ListerConso(dtDebPer, CDate(Format(dtFinPer, "dd/mm/yyyy") & " 23:59:59"), , Null, vLstMABab)
Set oM_test = Nothing

mon problème est que si mon serveur distant n'est pas connecté je me prend une erreur sur la ligne "Set oM_test = CreateObject("EI_MSR0.M_SERVICE_NX")"

Erreur fatale -- instanciation de EI_MSR0.M_SERVICE_NX (IR_MEDITION : 462 : Le serveur distant n'existe pas ou n'est pas disponible.)

Comment pourrais je tester si le composant est bien instancié?

merci d'avance

[zesamoth]

Bonjour,

A vrai dire je me souviens plus trop comment on teste l'instanciation d'un activex ou autre mais par contre tu peux tenter dans ton cas de faire une gestion d'erreur, non ?

Un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
on error goto erreur
 
Set oM_test = CreateObject("EI_MSR0.M_SERVICE_NX")
sContexteErreur = "appel de la méthode test_LstConso"
lCodeRetour = oM_test.ListerConso(dtDebPer, CDate(Format(dtFinPer, "dd/mm/yyyy") & " 23:59:59"), , Null, vLstMABab)
Set oM_test = Nothing
exit sub
 
'si ton serveur n'est pas lancé alors tu prend une erreur et du coup tu te retrouves à cet endroit dans le code.
' de là tu gères comme tu veux...
erreur:
      msgbox "erreur ans la création de l'active x"  
      'ta gestion d'erreur....

@+ zesamoth

[watcha2020]

merci pour ta réponse.
j'ai déja mis en place la gestion d'erreur dans l'ensemble de ma fonction. Le problème c'est que je souhaiterai identifier précisement l'erreur soulevée dans ce cas précis.
je vais continuer à chercher...

[ProgElecT]

je souhaiterai identifier précisement l'erreur

dans la gestion d'erreur,

Code :

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

MsgBox Err.Number & " " & Err.Description

devrait de donner des infos.