Tester instanciation d'un composant ActiveX

Version imprimable

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:

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")"

Citation:

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

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:

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

11/06/2008, 13h57
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...
11/06/2008, 18h08
ProgElecT

Citation:

je souhaiterai identifier précisement l'erreur

dans la gestion d'erreur,

Code:

MsgBox Err.Number & " " & Err.Description

devrait de donner des infos.