[VB6 + Mysql]Gestion des erreurs de connexion

**Deejoh** · 25/01/2006, 11h48

Bonjour tout le monde,

l'utilisateur de mon programme se connecte à la base mysql en entrant son login et mot de passe. J'aimerai savoir comment savoir si la connexion s'est bien déroulée ou non afin d'envoyer un message approprié.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
'Bonton de connexion
'Si la connexion réussi celà dégrise le menu
'Un message apparait donnant le login et que la connexion a réussi
 
'sinon un message d'erreur apparait
 
'Déclaration de la variable associée à la connexion
Dim cnx As ADODB.Connection
'Instanciation
Set cnx = New ADODB.Connection
 
Dim NomUtilisateur As String
NomUtilisateur = TxtLogin
Dim MotDePasse As Long
MotDePasse = Val(TxtMdp)
 
Const NomServeur = "127.0.0.1"
Const NomBaseDeDonnées = "ProjetRichet"
 
'Définition de la chaîne de connexion
cnx.ConnectionString = "UID=" & NomUtilisateur & ";PWD=" & MotDePasse & ";" & "DRIVER={MySQL ODBC 3.51 Driver};Server=" & NomServeur & ";Database=" & NomBaseDeDonnées & ";"
cnx.Open
cnx.Close

Merci

**jmfmarques** · 25/01/2006, 11h55

Si tu fermes ta connexion tout de suite après l'avoir ouverte, il me semble que rien ne se passera...

En principe, maintenant... ta 1ère tentative de lecture dans la base aura un résultat (si tout s'est bien passé) ou aucun (sauf peut-être un message d'erreur) dans le cas contraire... il me semble

:

**Deejoh** · 25/01/2006, 11h58

en fait je la ferme exprés c'est simplement pour tester si l'utilisateur existe.
j'aimerai rajouter une condition du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Si connexion=vrai alors
 
...
 
Sinon
 
Afficher"Mot de passe ou nom d'utilisateur incorrect"
 
FSI

Mais pour celà il faudrait que la connexion me renvoi qqch et je sais pas si c'est possible :-/

Xo · 25/01/2006, 14h31

Cf les tuto sur Developpez

http://drq.developpez.com/vb/tutoriels/ADO/, Page 2, on y parle de la propriété State

**Deejoh** · 25/01/2006, 14h34

génial merci beaucoup

**ThierryAIM** · 25/01/2006, 18h30

il y a aussi ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    conn.Open
 
    'Gestion des erreurs de la Connexion ADO
    With conn
        If .Errors.Count > 0 Then
            For i = 0 To .Errors.Count - 1
                MsgBox .Errors(i).Number & " : " & .Errors(i).Description
            Next
        End If
    End With

**Deejoh** · 25/01/2006, 19h23

génial merci

Sinon j'ai une autre question

voilà dans mon programme j'ai plusieur Form, dans chaque form j'ai des recordset tous utilisant la même connexion. J'ai un form accueil ou l'utilisateur entre son nom et son mot de passe puis se connecte.

Est il possible de faire en sorte que la connexion crée dans la form accueil reste ouverte et soit utilisée par les différent recordset plutot que j'ouvre la connexion à chaque fois ??

Si c'est possible comment faire mettre ma cnx en public ? please help me