Aide pour authentification !

DakM Messages postés 65 Date d'inscription jeudi 20 janvier 2005 Statut Membre Dernière intervention 25 juin 2010 - 26 janv. 2005 à 18:12
DakM Messages postés 65 Date d'inscription jeudi 20 janvier 2005 Statut Membre Dernière intervention 25 juin 2010 - 26 janv. 2005 à 18:39
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

DakM Messages postés 65 Date d'inscription jeudi 20 janvier 2005 Statut Membre Dernière intervention 25 juin 2010
26 janv. 2005 à 18:39
Jai resolu le probleme ! ne vous attardés pas ici !

I'm a killing Master
0