Discussion :

[php4life]

Code :

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

1
2
3
4
5
6
7
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
DNS = "ClientDB"
user = ""
pass = ""
cnx.ConnectionString = "DSN=" & DNS & ";UID=" & user & ";PWD=" & pass & ";"
cnx.Open

tout marche bien , commeent faire pour :

SI pas d'erreur de connection ALORS
on pass
SINON
msgbox("erreur etc etc..")
FIN SI

cnx.state << je crois que ca peut m'aider mé je c pas comment l'exploiter
merci !! j'espére avoire été clair !

[stamick]

je crois que tu n'as pas d'autre choix que d'intercepter l'erreur par

on error goto to

[ThierryAIM]

Code :

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

1
2
3
4
5
6
7
    With cnx
        If .Errors.Count > 0 Then
            For i = 0 To .Errors.Count - 1
                MsgBox .Errors(i).Number & " : " & .Errors(i).Description
            Next
        End If
    End With