Discussion :

[Crowww]

Bonjour,

Je dois faire un formulaire de connexion pour mon application cependant, il de reconnait pas le login et mdp que j'entre. Je ne sais pas réelment corriger mon erreur.

Voila mon code :

Code VB.Net :

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
Imports Oracle.DataAccess.Client
 
Private Sub cmdValider_Click(sender As System.Object, e As System.EventArgs) Handles cmdValider.Click
        '--Connexion à la Base de données--
        Dim strConnex As String
        Dim Rqt As String
        Try
            strConnex = "Data Source=DEV;User Id=CEDRICV;Password=CEDRICV;"
            Me.objConnexion = New OracleConnection(strConnex)
            Me.objConnexion.Open()
            Rqt = "Select PSEUDO_UTILISATEUR, MDP_UTILISATEUR From UTILISATEUR where PSEUDO_UTILISATEUR = '" & txtIdentifiant.Text & "' and  MDP_UTILISATEUR = '" & txtMdp.Text & "'"
            If Rqt = "" Then
                MessageBox.Show("ERREUR, Login ou Mot de Passe invalide!")
            Else
                ChoixFormulaire.Show()
                Me.Hide()
            End If
        Catch ex As Exception
            MessageBox.Show("ERREUR sur objet de connexion : " & ex.Message)
        End Try
    End Sub

Aidez moi svp!

[DotNetMatt]

Ben là ton code est incomplet, car tu n'exécutes jamais ta requête donc ça ne risque pas de fonctionner

Voici ce qu'il te manque (je te laisse adapter à ton cas) :

Code VB.NET :

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
' Requêete paramétrée    
Rqt = "SELECT pseudo_utilisateur, mdp_utilisateur FROM fonctionnaire WHERE pseudo_utilisateur = @Pseudo and  mdp_utilisateur = @Mdp"    
 
' On crée une commande Oracle    
Using cmd = New OracleCommand()    
    cmd.Connection = Me.objConnexion    
    cmd.CommandText = Rqt    
    cmd.CommandType = CommandType.Text    
 
    ' On définit les valeurs des paramètres de la requête    
    cmd.Parameters.AddWithValue("@Pseudo", txtIdentifiant.Text)    
    cmd.Parameters.AddWithValue("@Mdp", txtMdr.Text)    
 
    ' On exécute la requête    
    Using dr As OracleDataReader = cmd.ExecuteReader()    
        ' On lit le résultat    
        dr.Read()    
 
        ' Récupère les infos et les stocke dans des variables    
        Dim pseudo = dr.Item("pseudo_utilisateur")    
        Dim mdp = dr.Item("mdp_utilisateur")    
    End Using    
End Using

Attention le code lié au DataReader n'est à utiliser que pour un seul enregistrement. La syntaxe sera différente si tu veux en récupérer plusieurs.

[Crowww]

Juste une question bête, mais à quoi corresponde tes @login et @mdp? je ne comprend pas par quoi les remplacer dans mon cas, sinon merci pour ta réponse je vais tester une fois que j'aurais tout compris

Et AddWithValues n'est pas un membre de Oracle, connais-tu sont équivalent Oracle?

[DotNetMatt]

Juste une question bête, mais à quoi corresponde tes @login et @mdp? je ne comprend pas par quoi les remplacer dans mon cas, sinon merci pour ta réponse je vais tester une fois que j'aurais tout compris

Ce sont des paramètres. Voici un bon article qui explique pourquoi il est recommandé d'utiliser des requêtes paramétrées. Ce n'est pas une obligation, mais c'est une best practice et ça te simplifie la tâche.

Lorsque tu utilises la concaténation comme tu l'avais fait, tu t'exposes au risque d'injection SQL, puisque tu ne fais aucun contrôle sur ce qui a été saisi par l'utilisateur. Tu dois aussi te préoccuper du format (par exemple pour les strings, tu dois encadrer ça avec des apostrophes (simple quote)). Avec les paramètres, tout ça est géré automatiquement.

Et AddWithValues n'est pas un membre de Oracle, connais-tu sont équivalent Oracle?

Ahh oui c'est vrai que tu es sous Oracle Il faut donc changer un peu la syntaxe. Voici le code à utiliser au lieu de l'autre (j'ai modifié la syntaxe des paramètres, qui commencent avec ":" pour Oracle, et l'ajout des paramètres) :

Code VB.NET :

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
' Requêete paramétrée    
Rqt = "SELECT pseudo_utilisateur, mdp_utilisateur FROM fonctionnaire WHERE pseudo_utilisateur = :Pseudo and  mdp_utilisateur = :Mdp"    
 
' On crée une commande Oracle    
Using cmd = New OracleCommand()    
    cmd.Connection = Me.objConnexion    
    cmd.CommandText = Rqt    
    cmd.CommandType = CommandType.Text    
 
    ' On définit les valeurs des paramètres de la requête
    cmd.Parameters.Add(":Pseudo", OracleDbType.Varchar2).Value = txtIdentifiant.Text
    cmd.Parameters.Add(":Mdp", OracleDbType.Varchar2).Value = txtMdp.Text
 
    ' On exécute la requête    
    Using dr As OracleDataReader = cmd.ExecuteReader()    
        ' On lit le résultat    
        dr.Read()    
 
        ' Récupère les infos et les stocke dans des variables    
        Dim pseudo = dr.Item("pseudo_utilisateur")    
        Dim mdp = dr.Item("mdp_utilisateur")    
    End Using    
End Using

[Crowww]

Erreur sur objet de connexion : Impossible de trouver la colonne spécifiée dans l'ensemble des résultats (ResultSet)

J'ai vraiment du mal avec ce formulaire de connexion...

[DotNetMatt]

Avant de récupérer les valeurs avec GetItem, il faut vérifier que tu aies bien des données renvoyées. Tu peux utiliser la propriété HasRows du data reader pour le savoir.

[Crowww]

Oui mais si il me renvoie déjà Erreur sur objet de connexion, cela signifie qu'il saute mon try et passe au catch, donc la connexion a la BDD n'est même pas effectuer! Donc il ne risque pas de me retourner de données.

Je me trompe?

[Crowww]

En gros, je viens de remarquer qu'un fois les donées stocké dans des variables, je ne fais plus rien avec, est ce que je dois rajouter un ChoixFormulaire.Show() et Me.Hide() afin de passer à la suite?

[Crowww]

Mon 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
41
42
43
44
 
Private Sub cmdValider_Click(sender As System.Object, e As System.EventArgs) Handles cmdValider.Click
        Dim strConnex As String
        Dim Rqt As String
        Try
            ' --Connexion à la BDD--
            strConnex = "Data Source=DEV;User Id=CEDRICV;Password=CEDRICV;"
            Me.objConnexion = New OracleConnection(strConnex)
            Me.objConnexion.Open()
            ' Requête paramétrée    
            Rqt = "SELECT PSEUDO_UTILISATEUR, MDP_UTILISATEUR FROM UTILISATEUR WHERE PSEUDO_UTILISATEUR = :Pseudo and  MDP_UTILISATEUR = :Mdp"
 
            ' On crée une commande Oracle    
            Using cmd = New OracleCommand()
                cmd.Connection = Me.objConnexion
                cmd.CommandText = Rqt
                cmd.CommandType = CommandType.Text
 
                ' On définit les valeurs des paramètres de la requête
                cmd.Parameters.Add(":Pseudo", OracleDbType.Varchar2).Value = txtIdentifiant.Text
                cmd.Parameters.Add(":Mdp", OracleDbType.Varchar2).Value = txtMdp.Text
 
                ' On exécute la requête    
                Using dr As OracleDataReader = cmd.ExecuteReader()
                    ' On lit le résultat    
                    dr.Read()
 
                    ' Récupère les infos et les stocke dans des variables    
                    Dim pseudo = dr.Item("PSEUDO_UTILISATEURr")
                    Dim mdp = dr.Item("MDP_UTILISATEUR")
                    If txtIdentifiant.Text = pseudo And txtMdp.Text = mdp Then
                        ChoixFormulaire.Show()
                        Me.Hide()
                    Else
                        MessageBox.Show("ERREUR, Login ou Mot de Passe invalide!")
                    End If
                End Using
            End Using
 
        Catch ex As Exception
            ' --Message d'erreur en cas de problême de connexion à la BDD--
            MessageBox.Show("ERREUR sur objet de connexion : " & ex.Message)
        End Try
    End Sub

[DotNetMatt]

Déjà il faudrait que tu postes ton code dans son état actuel et que tu nous indiques quelle est la ligne qui génère l'erreur. Ca permettra d'y voir un peu plus clair et de voir si oui ou non il se connecte.