Discussion :

[Chatbour]

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

Code :

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

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..

[sovo]

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

[Chatbour]

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é..

[sovo]

Voila un code juste a titre d'exemple

Code :

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

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.

[ProgElecT]

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.

[Chatbour]

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

[chamma9]

merci

Voila un code juste a titre d'exemple

Code :

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

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.