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
|
Private Sub cmdValider_Click(sender As System.Object, e As System.EventArgs) Handles cmdValider.Click
Dim strConnex As String
Dim Rqt As String
strConnex = GetConnexionString()
Try
Me.objConnexion = New OracleConnection(strConnex)
Me.objConnexion.Open()
' Requête paramétrée
Rqt = "INSERT INTO EVENEMENT (LIBELLE, TO_CHAR(DTE_EVENT, 'DD/MM/YYYY'), TO_CHAR(DTE_EVENT, 'HH24:MI:SS'), ID_EVENT, ID_DECISION, ID_TYPE_EVENT) VALUES (:LibEvent, :Date, :Heure, :NbEvent, :NbDeci, 1)"
' 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(":LibEvent", OracleDbType.Varchar2).Value = txtNatureEvenement.Text()
cmd.Parameters.Add(":Date", OracleDbType.Date).Value = DateTimePicker1.Text()
cmd.Parameters.Add(":Heure", OracleDbType.Date).Value = DateTimePicker2.Text()
cmd.Parameters.Add(":NbEvent", OracleDbType.Int32).Value = NbEvent
cmd.Parameters.Add(":NbDeci", OracleDbType.Int32).Value = NbDeci
' On exécute la requête
Using dr As New OracleDataAdapter
cmd.ExecuteNonQuery()
MessageBox.Show("L'évènement à été ajouté avec succès!")
Connection.Show()
Me.Hide()
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.ToString)
End Try
End Sub |
Partager