Bonjour,

Je débute en VB.NET et je rencontre un soucis en construisant une requête paramétrée, avec OleDb.
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
For Each row As DataRow In MyDataTableServer.Rows()
                Try
                    sql = "INSERT INTO schedule(tstart, press, part) VALUES (@v1, @v2, @v3)"
                    MyCommandLocal.CommandText = sql
                    MyCommandLocal.Parameters.Add(New OleDbParameter("@v1", row("tstart")))
                    MyCommandLocal.Parameters.Add(New OleDbParameter("@v2", row("press")))
                    MyCommandLocal.Parameters.Add(New OleDbParameter("@v3", row("part")))
                    MyCommandLocal.ExecuteNonQuery()
                Catch ex As Exception
                    If ex.HResult = -2146232060 Then
                        Console.WriteLine("Doublons, ligne non insérée.")
                    Else
                        Console.WriteLine(ex)
                    End If
                End Try
            Next
La première itération marche bien, l'insertion se fait. Mais les suivantes ne fonctionnent pas, l'exception doublons est levée.
Suis-je passé à coté d'un détail ?

Merci d'avance pour votre aide !