Discussion :

[Abalalojik]

Bonjour,

J'ai mis l'authentification forms comme indiqué dans le tuto, cependant, je n'arrives pas à faire qu'un utilisateur soit "logué" Apparement, il y a un disfonctionnement au moment de se connecter dans la base. Voici le code en cause :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
28
29
30
31
32
33
34
35
36
Private Sub valid_btn_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles valid_btn.Click
        'déclaration de la variable qui servira à vérifier le password
        If Logon_form.Value = "" Then
            Me.TextBox1.Visible = True
            Me.TextBox1.Text = "Le login est obligatoire."
        ElseIf Pass_form.Value = "" Then
            Me.TextBox1.Visible = True
            Me.TextBox1.Text = "Vous avez obligatoirement un password, merci de le saisir. "
        Else
            If Authentifier(Logon_form.Value, Pass_form.Value) Then
                FormsAuthentication.RedirectFromLoginPage(Logon_form.Value, False)
                Page.Response.Redirect("comer_acc.aspx")
            Else
                Me.TextBox1.Visible = True
                Me.TextBox1.Text = "Erreur d'authentification, l'utilisateur ou le mot de passe n'existent pas!"
            End If
        End If
    End Sub
 
    Private Function Authentifier(ByVal strUtilisateur As String, ByVal strMotDePasse As String) As Boolean
        Dim bOk As Boolean = False
        Try
            Dim oCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT Login, Nom, Nom_machine, Pasword, Prénom, Rang FROM Tab_logoncrea WHERE login= " + Logon_form.Value)
            Me.conex.Open()
            Dim drUtilisateur As OleDb.OleDbDataReader = oCommand.ExecuteReader()
            While drUtilisateur.Read()
                If drUtilisateur("Pasword").ToString() = strMotDePasse Then
                    bOk = True
                End If
            End While
        Catch generatedExceptionVariable0 As SystemException
            bOk = False
        End Try
        conex.Close()
        Return bOk
    End Function

Mon appli ne passe jamais dans le while drutilisateur. Quelqu'un aurait-il une idée sur ce phénomène ?

[Abalalojik]

j'ai rajouté un composant oledbcomand et j'ai modifié ma fonction comme suit, mais il me dit qu'il me manque des paramètres pour mon executereader:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Function Authentifier(ByVal strUtilisateur As String, ByVal strMotDePasse As String) As Boolean
        Dim bOk As Boolean = False
        Dim var As String 
        Try
            Me.command.CommandText = ("SELECT Login, Nom, Nom_machine, Pasword, Prénom, Rang FROM Tab_logoncrea WHERE login= " + Logon_form.Value)
            Me.conex.Open()
            Dim drUtilisateur As OleDb.OleDbDataReader = command.ExecuteReader()
            While drUtilisateur.Read()
                If drUtilisateur("Pasword").ToString() = strMotDePasse Then
                    bOk = True
                End If
            End While
        Catch generatedExceptionVariable0 As SystemException
            var = generatedExceptionVariable0.message
            bOk = False
        End Try
        conex.Close()
        Return bOk
    End Function

[ld9474]

Tu n'as pas passé ta connexion à ta commande.

[Abalalojik]

Bah heu si sur le composant graphique y'en a une.

CF le second code que j'ai donné :/

Il me dit qu'il manque un paramètre, mais je ne vois pas lequel en fait :/

J'ai fait ces changements :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.command.CommandText = ("SELECT Pasword FROM Tab_logoncrea WHERE login = " + Logon_form.Value)

[Abalalojik]

Le bon code était :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Function Authentifier(ByVal strUtilisateur As String, ByVal strMotDePasse As String) As Boolean
        Dim bOk As Boolean = False
        Dim var As String
        Try
            Me.command.CommandText = "SELECT Pasword FROM (Tab_logoncrea) WHERE (Login = '" + strUtilisateur + "')"
            Me.conex.Open()
            Dim drUtilisateur As OleDb.OleDbDataReader = Me.command.ExecuteReader()
            While drUtilisateur.Read()
                If drUtilisateur("Pasword").ToString() = strMotDePasse Then
                    bOk = True
                End If
            End While
        Catch generatedExceptionVariable0 As SystemException
            var = generatedExceptionVariable0.Message
            bOk = False
        End Try
        conex.Close()
        Return bOk
    End Function

Changement majeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.command.CommandText = "SELECT Pasword FROM (Tab_logoncrea) WHERE (Login = '" + strUtilisateur + "')"

Depuis quand on met des parenthèses pour la chaîne du commandtext ???
Je suis vraiment trop bête !!!

Merci à ceux qui se sont penché sur le sujet qu'ils aient posté ou non.