Aide pour authentification !

Question

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

DakM · Answer

Jai resolu le probleme ! ne vous attard&#233;s pas ici !

I'm a killing Master

Aide pour authentification !

1 réponse

Discussions similaires