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 |
Partager