Problème requête insertion new utilisateur

**Crowww** · 27/05/2013, 09h12

Bonjour,

Je suis actuellement en train d'essayer de faire une requete sous VB pour insérer un nouvel utilisateur dans ma base oracle 11g Seulement il me retourne une erreur quand je tente d'utiliser ce code dans mon application:
Erreur sur Objet de connexion : Impossible de trouver la colonne spécifié dans l'ensemble de résultat (ResultSet).

Je ne sais pas d'ou viens cette erreur :s

Voici 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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
Private Sub cmdValider_Click(sender As System.Object, e As System.EventArgs) Handles cmdValider.Click
        Dim strConnex As String
        Dim Rqt As String
        Dim Rqt2 As String
        strConnex = GetConnexionString()
        Try
            Me.objConnexion = New OracleConnection(strConnex)
            Me.objConnexion.Open()
            ' Requête paramétrée    
            Rqt = "SELECT LOGIN, MDP FROM UTILISATEUR WHERE LOGIN = :Pseudo and  MDP = :Mdp"
            Rqt2 = "INSERT INTO UTILISATEUR (LOGIN, MDP, NIVEAU) VALUES (LOGIN = :Pseudo and  MDP = :Mdp and NIVEAU = :Niv)"
 
            ' 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 = txtNewID.Text
                cmd.Parameters.Add(":Mdp", OracleDbType.Varchar2).Value = txtNewMDP.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("LOGIN")
                    Dim mdp = dr.Item("MDP")
                    Dim Niv = dr.Item("NIVEAU")
                    If txtNewID.Text = pseudo Then
                        MessageBox.Show("ERREUR, Login déjà existant!")
                    Else
                        ' On crée une commande Oracle    
                        Using cmd2 = New OracleCommand()
                            cmd.Connection = Me.objConnexion
                            cmd.CommandText = Rqt2
                            cmd.CommandType = CommandType.Text
 
                            ' On définit les valeurs des paramètres de la requête
                            cmd.Parameters.Add(":Pseudo", OracleDbType.Varchar2).Value = txtNewID.Text
                            cmd.Parameters.Add(":Mdp", OracleDbType.Varchar2).Value = txtNewMDP.Text()
                            cmd.Parameters.Add(":Niv", OracleDbType.Varchar2).Value = txtNewNiv.Text()
 
                            ' On exécute la requête    
                            Using dr2 As OracleDataReader = cmd.ExecuteReader()
                                ' On lit le résultat    
                                dr.Read()
 
                                MessageBox.Show("Le compte a été créé avec succès!")
                                Connection.Show()
                                Me.Hide()
                            End Using
                        End Using
                    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

**Crowww** · 27/05/2013, 09h17

Ah, j'ai fais quelques modif, il reconnait désormais si le compte existe déjà, cependant lorsque c'est un nouveau compte (imaginons j'ai deja test1 dans ma base et je veux créer test2) il me dit que l'action est impossible en raison de l'état actuel de l'objet

**Crowww** · 27/05/2013, 09h53

Voila mon code actuel :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
Private Sub cmdValider_Click(sender As System.Object, e As System.EventArgs) Handles cmdValider.Click
        Dim strConnex As String
        Dim Rqt As String
        Dim Rqt2 As String
        strConnex = GetConnexionString()
        Try
            Me.objConnexion = New OracleConnection(strConnex)
            Me.objConnexion.Open()
            ' Requête paramétrée    
            Rqt = "SELECT LOGIN FROM UTILISATEUR WHERE LOGIN = :Pseudo"
 
            ' 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 = txtNewID.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("LOGIN")
                    If txtNewID.Text = pseudo Then
                        MessageBox.Show("ERREUR, Login déjà existant!")
                    Else
                        Rqt2 = "INSERT INTO UTILISATEUR (ID_UTILISATEUR, LOGIN, MDP, NIVEAU) VALUES (ID_UTILISATEUR = :NbCompte and LOGIN = :Pseudo and  MDP = :Mdp and NIVEAU = :Niv)"
 
                        ' On crée une commande Oracle    
                        Using cmd2 = New OracleCommand()
                            cmd.Connection = Me.objConnexion
                            cmd.CommandText = Rqt2
                            cmd.CommandType = CommandType.Text
 
                            ' On définit les valeurs des paramètres de la requête
                            cmd.Parameters.Add(":Pseudo", OracleDbType.Varchar2).Value = txtNewID.Text
                            cmd.Parameters.Add(":Mdp", OracleDbType.Varchar2).Value = txtNewMDP.Text()
                            cmd.Parameters.Add(":Niv", OracleDbType.Varchar2).Value = txtNewNiv.Text()
                            cmd.Parameters.Add(":NbCompte", OracleDbType.Varchar2).Value = NbCompte
 
                            ' On exécute la requête    
                            Using dr2 As OracleDataReader = cmd.ExecuteReader()
                                ' On lit le résultat    
                                dr.Read()
 
                                MessageBox.Show("Le compte a été créé avec succès!")
                                Connection.Show()
                                Me.Hide()
                            End Using
                        End Using
                    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

Je pense que l'erreur doit se situer dans cette partie :

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
 
If txtNewID.Text = pseudo Then
                        MessageBox.Show("ERREUR, Login déjà existant!")
                    Else
                        Rqt2 = "INSERT INTO UTILISATEUR (ID_UTILISATEUR, LOGIN, MDP, NIVEAU) VALUES (ID_UTILISATEUR = :NbCompte and LOGIN = :Pseudo and  MDP = :Mdp and NIVEAU = :Niv)"
 
                        ' On crée une commande Oracle    
                        Using cmd2 = New OracleCommand()
                            cmd.Connection = Me.objConnexion
                            cmd.CommandText = Rqt2
                            cmd.CommandType = CommandType.Text
 
                            ' On définit les valeurs des paramètres de la requête
                            cmd.Parameters.Add(":Pseudo", OracleDbType.Varchar2).Value = txtNewID.Text
                            cmd.Parameters.Add(":Mdp", OracleDbType.Varchar2).Value = txtNewMDP.Text()
                            cmd.Parameters.Add(":Niv", OracleDbType.Varchar2).Value = txtNewNiv.Text()
                            cmd.Parameters.Add(":NbCompte", OracleDbType.Varchar2).Value = NbCompte
 
                            ' On exécute la requête    
                            Using dr2 As OracleDataReader = cmd.ExecuteReader()
                                ' On lit le résultat    
                                dr.Read()
 
                                MessageBox.Show("Le compte a été créé avec succès!")
                                Connection.Show()
                                Me.Hide()
                            End Using
                        End Using
                    End If

Aidez moi svp :s Je suis bloqué!

Problème requête insertion new utilisateur

VB.NET

Vue hybride

Discussions similaires

Partager

Partager