Login avec base de données access

Télécharger le projet
Commenter

Description

Ce programme montre l'utilisation d'une base de données Access en VB6 dans le cadre d'un formulaire de login. Dans cet exemple, il est aussi possible de modifier son mot de passe.

Source / Exemple : 


Public Function LogonUser(UserName As String, Password As String, SetCU As Boolean) As Byte
'0: OK
'1: Bad UserName and/or password
'2: User disabled

 Dim SQL As String, rs As ADODB.Recordset
 SQL = "SELECT * FROM Users WHERE UserName='" & Database.Pure(UserName) & "' AND Password='" & mod_MD5.MD5(Password) & "';"
 Set rs = Database.Conn.Execute(SQL)
 If Database.RsEmpty(rs) Then
  LogonUser = 1
  Else
   If CBool(rs("Disabled")) Then
    LogonUser = 2
    Else
     LogonUser = 0
     If SetCU Then
      With CurrentUser
       .Admin = rs("Admin")
       .Idx = rs("Idx")
       .Password = rs("Password")
       .UserName = rs("UserName")
      End With
     End If
   End If
 End If
 rs.Close
 Set rs = Nothing
End Function

Conclusion :


Mots de passe sous la forme
>> UserName-Password => droits

>> Admin-admin => administrateur
>> Autre-autre => utilisateur simple
>> MonsieurX-bonjour => utilisateur désactivé
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ghuysmans99)