Aide pour authentification !

Signaler
Messages postés
65
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
25 juin 2010
-
Messages postés
65
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
25 juin 2010
-
Function PasswordOk(ByVal Nickname As String, ByVal Password As String)
Dim Db As Database
Dim Rs As Recordset
Dim Sql As String
Set Db = OpenDatabase(App.Path & "/datas/database.mdb")
Nickname = Replace(Nickname, "'", "")
Password = Replace(Password, "'", "") Sql "SELECT * FROM Players WHERE (((nickname) '" & Nickname & "') AND ((password) = '" & Password & "'))"
Set Rs = Db.OpenRecordset(Sql, dbOpenDynaset)
Nb = Rs.RecordCount
If Nb = "1" Then
PasswordOk = True
Else
PasswordOk = False
End If
Rs.Close
End Function

Meme en ayant Password = "abc"
et Players.password = "abc"
j'ai quand meme False !
:////

I'm a killing Master

1 réponse

Messages postés
65
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
25 juin 2010

Jai resolu le probleme ! ne vous attardés pas ici !

I'm a killing Master