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