Discussion :

[aminepop]

et enfin oui sa marche

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
Set rc = New ADODB.Recordset
 rc.Open "select * from conn Where [mot_passe] = '" & Text2.Text & "'", CON, 1, 2
   If rc.EOF Then
 
      MsgBox "Mot de passe invalid ! SVP Réssayez encore une fois.  ", vbCritical, ".:.:. Connexion .:.:."
    Text2.Text = ""
    Text2.SetFocus
    'rc.Close
    entrer.Show
    Unload Me
    Else
    entrer.Show
    Unload Me
 
End If

comme sa sa marche bien

merci bien pour le suivi