Problème requête SQL paramétrée

Version imprimable

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:

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 !

16/07/2014, 08h23
buzz2buzz

Solution bête

Bonjour,

En recherchant un petit peu mieux (ne me tapez pas...) j'ai trouvé la solution !
Il suffisait de faire un parameters.clear() à chaque fin d'itération.
Question bête, réponse bête !

Sinon tu peux ajouter les paramètres avant la boucle, et juste changer leur valeur dans la boucle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sql = "INSERT INTO schedule(tstart, press, part) VALUES (@v1, @v2, @v3)"
MyCommandLocal.CommandText = sql
MyCommandLocal.Parameters.Add(New OleDbParameter("@v1",  OleDbType.Integer)) ' TODO : mettre les vrais types...
MyCommandLocal.Parameters.Add(New OleDbParameter("@v2",  OleDbType.String))
MyCommandLocal.Parameters.Add(New OleDbParameter("@v3",  OleDbType.Double))
 
For Each row As DataRow In MyDataTableServer.Rows()
    Try
        MyCommandLocal.Parameters("v1").Value = row("tstart")
        MyCommandLocal.Parameters("v2").Value = row("press")
        MyCommandLocal.Parameters("v3").Value = 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

16/07/2014, 13h12
buzz2buzz

En effet, c'est un peu plus propre comme ça.
Merci pour ta réponse !