Discussion :

[aymando]

Bonjour
J'ai un petit souci.
Je vais vous expliquer ce que je veux faire. Je suis entrain de faire une interface d'authentification avec vb.net et oracle 10g. J'ai une table administrateur alors l'idée et que lorsque l'utilisateur s'authentifie le système recupére ce qui est ecrit comme login et mot de passe s'ils sonts présents dans la base. Il passe si non message d'erreur. Alors le probléme c'est que il ne compare qu'avec la premiére ligne il ne parcours pas tous les nom et tous les mots de passe.
Voila le code :

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
37
38
39
40
    Private Sub confirmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles confirmer.Click
 
        Dim oradb As String = "Data Source=(DESCRIPTION=(ADDRESS_LIST=" _
                    + "(ADDRESS=(PROTOCOL=TCP)(HOST=127.0.0.1)(PORT=1521)))" _
                    + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=XE)));" _
                    + "User Id=system;Password=aymen;"
 
        Dim conn As New OracleConnection(oradb)
        conn.Open()
 
        Dim cmd As New OracleCommand
        cmd.Connection = conn
        cmd.CommandText = "select * from administrateur"
        If nom.Text = "" Or pass.Text = "" Then
            MsgBox("veuillez remplir les champs", MsgBoxStyle.OkOnly)
        Else
 
            cmd.Connection = conn
            cmd.CommandText = "select nom,pass from administrateur"
            cmd.CommandType = CommandType.Text
 
 
            Dim dr As OracleDataReader = cmd.ExecuteReader()
 
            While dr.Read()
 
                If nom.Text = dr.Item("nom") And pass.Text = dr.Item("pass") Then
                    principal.Show()
                    Me.Hide()
                    Exit While
                Else
                    MsgBox("erreur")
                    conn.Dispose()
                    Exit While
                End If
 
            End While
        End If
    End Sub
End Class

[rv26t]

Bonjour,

Tu devrais directement faire ta requette de sélection avec le nom et le mot de passe et ensuite tester avec la méthode HasRows de ton "dr" s'il y a des lignes retournées.

A+, Hervé.

[asmduty]

2 Solutions.

Soit tu parcours tous tes résultats avec un

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim trouve as boolean = false
While dr.read
 
'si je trouve je passe trouve a true 
 
end while
 
'Si trouve est a true c'sst que c'est bon, s'il est a false l'utilisateur/mot de passe est incorrect.

ou tu recherches directement en SQL si la combinaison utilisateur/mot de passe existe

Code :

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

cmd.CommandText = "select count(*) from administrateur where nom =  '" & nom.text & "' and pass = '" & pass.text & "'"

si le resultat de la requete est différent de 0 c'est OK, sinon c'est qu'il y a une erreur d'utilisateur/mot de passe

[aymando]

asmduty tu peut m'expliqué d'avantage et si tu peut tu as mon code corrige le

[asmduty]

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
37
Private Sub confirmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles confirmer.Click
 
        Dim oradb As String = "Data Source=(DESCRIPTION=(ADDRESS_LIST=" _
                    + "(ADDRESS=(PROTOCOL=TCP)(HOST=127.0.0.1)(PORT=1521)))" _
                    + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=XE)));" _
                    + "User Id=system;Password=aymen;"
 
        Dim conn As New OracleConnection(oradb)
        conn.Open()
 
        Dim cmd As New OracleCommand
        cmd.Connection = conn
        cmd.CommandText = "select count(*) from administrateur where nom = '" & nom.text & "' and pass = '" & pass.text & "'"
        If nom.Text = "" Or pass.Text = "" Then
            MsgBox("veuillez remplir les champs", MsgBoxStyle.OkOnly)
        Else
 
            cmd.CommandType = CommandType.Text
 
            Dim dr As OracleDataReader = cmd.ExecuteReader()
 
            if dr.Read()
 
                If  dr(0).value <> 0 Then
                    principal.Show()
                    Me.Hide()
                    Exit While
                Else
                    MsgBox("erreur")
                    conn.Dispose()
                    Exit While
                End If
 
            End if
        End If
    End Sub
End Class

Par exemple