tester si le serveur MS SQL Server est démarré

Bonjour à tous,
je veux faire une connexion vers MS SQL Server 2000 depuis VB6 à l'aide d'un adodc..

Code:

---

1 2 3

dim cx as ADODB.Connection cx.ConnectionString = ... cx.Open

---

Comment faire pour tester si le serveur est en marche, sinon cx.Open va causer une erreur..

Merci pour vos réponses..

tu pex justement jouer avec cette erreur qu'il te renvoi.

Tu fait la connexion
s'il te renvoi une erreur alors la connexion n'est pas bonne et dans ce cas tu en deduit. Sinon elle est bonne et tu continue.

PS: pour eviter que le programme s'arreter utilise le OnError Goto

Merci pour votre réponse..
Pouvez-vous me fournir du code, je suis débutant en fait..
En plus On Error Resume Next n'a pas marché.. :?

Voila un code juste a titre d'exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

dim cx as ADODB.Connection cx.ConnectionString = ... On Error Goto Fin cx.Open .......   Exit Sub 'pour forcer la sortir de la procedure 'ou Exit Function dans d'une fonctio   Fin : Msgbox "Connexion impossible" End Sub (ou Function)

---

tu peux donc te servir de cet exemple pour l'adapter a ton code.

Ne pas oublier de paramétrer l'editeur VB.
--> Outils --> Options --> Onglets "Général" --> Récupération d'erreur
choisir: Arrêt sur les erreurs non gérées
sinon même avec le On error resume next, l'erreur est declanchée.

C'est plus clair maintenant.. Merci pour vos réponses :P

merci

Citation:

---

Envoyé par sovo

Voila un code juste a titre d'exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

dim cx as ADODB.Connection cx.ConnectionString = ... On Error Goto Fin cx.Open .......   Exit Sub 'pour forcer la sortir de la procedure 'ou Exit Function dans d'une fonctio   Fin : Msgbox "Connexion impossible" End Sub (ou Function)

---

tu peux donc te servir de cet exemple pour l'adapter a ton code.

---