1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
'Vérification du login de l'utilisateur
Public Function VerifUser(ByVal Login As String, ByVal Password As String) As String Implements Library.IRemote.VerifUser
Dim result As String
Dim dt As New DataTable
Try
result = ""
dt = Me.ExecuteSQLQuery("SELECT * FROM USERS WHERE Login='" & Login & "' and Password='" & Password & "'")
If dt.Rows(0)(0) = "" Then
result = "Le login/password n'est pas correct !"
Else
If dt.Rows(0)("ID_GROUP") = "ADMIN" Then
result = "admin"
ElseIf dt.Rows(0)("ID_GROUP") = "MEMBERS" Then
result = "member"
End If
End If
Catch ex As Exception
Throw ex
End Try
Return result
End Function |
Partager