Bonjour,

J'ai un petit soucis, j'ai un champs dans ma BDD en format DateTime, sous la forme DD/MM/YYYY HH24:MI:SS
Je dois insérer depuis mon application des données à ce champs. Pour cela j'ai fais 2 DateTimesPicker, un qui affiche la date, l'autre l'heure. Cependant quand je tente d'executer me requete, il me répond que le moi n'existe pas. Je pense que cela est du à une erreur d'écriture de ma requete mais du coup je ne sais pas comment la résoudre

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