Discussion :

[buzz2buzz]

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 !

[buzz2buzz]

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 !

[tomlev]

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

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

[buzz2buzz]

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