Discussion :

[papy75]

Bonjour le Forum,

Bon j'ai un ptit soucis dans une boucle For:

Voila j'ai un formulaire qui m'affiche des textBox en fonction d'un nombre "num" donnés par l'utilisateur.

Et je voudrais insérer toutes ces valeurs dans une table. Le probleme c'est que ca marche qd num = 1 mais pas pour num = 2 ou plus.

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
17
18
19
20
21
 
        'Query Insert in Personnel Table
        CsV.StrSQL2 = "INSERT INTO Personnel (Login, Department, Post, Project_Code) VALUES (@MyName, @MyDepart, @MyPost, @MyProject)"
        Dim CommandAccess2 As New OleDb.OleDbCommand(CsV.StrSQL2, connAccess)
        Dim Name As New OleDb.OleDbParameter, Department As New OleDb.OleDbParameter, Post As New OleDb.OleDbParameter, Project As New OleDb.OleDbParameter
 
        For j = 1 To num
            Name.ParameterName = "@MyName"
            Name.Value = FlowLayoutPanel1.Controls("TextBox" + CStr(j)).Text
            Department.ParameterName = "@MyDepart"
            Department.Value = Depart
            Post.ParameterName = "@MyPost"
            Post.Value = "Team_Project"
            Project.ParameterName = "@MyProject"
            Project.Value = cboProjTeam.Text
            CommandAccess2.Parameters.Add(Name) 
            CommandAccess2.Parameters.Add(Department)
            CommandAccess2.Parameters.Add(Post)
            CommandAccess2.Parameters.Add(Project)
            CommandAccess2.ExecuteNonQuery()
        Next

A l'execution si num est > a 1 j'ai un message d'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

The OleDbParameter is already contained by another OleDbParameterCollection.

C'est normale car il a été utilisé au premier passage dans la boucle. Mais comment y remédier .... je n'en ai aucune idée!!!!

Voila si quelqu'un avait une idée...

Merci d'avance

Cordialement,
Vincent

[papy75]

Re,

Bon bah j'ai trouvé c'était tout simple mais bon....
Il fallait vider ma CommandAccess2.Parameters

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CommandAccess2.Parameters.Clear()

Tout simplement....

[SaumonAgile]

Non en fait il ne faut pas vider les parametres, il faut simplement affecter la nouvelle valeur dans la boucle et relancer la requete (2 lignes en tout et pour tout).

Exemple :

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
'Query Insert in Personnel Table
        CsV.StrSQL2 = "INSERT INTO Personnel (Login, Department, Post, Project_Code) VALUES (@MyName, @MyDepart, @MyPost, @MyProject)"
        Dim CommandAccess2 As New OleDb.OleDbCommand(CsV.StrSQL2, connAccess)
        Dim Name As New OleDb.OleDbParameter, Department As New OleDb.OleDbParameter, Post As New OleDb.OleDbParameter, Project As New OleDb.OleDbParameter
Name.ParameterName = "@MyName"
        Department.ParameterName = "@MyDepart"
        Post.ParameterName = "@MyPost"
        Project.ParameterName = "@MyProject"
        CommandAccess2.Parameters.Add(Name) 
        CommandAccess2.Parameters.Add(Department)
        CommandAccess2.Parameters.Add(Post)
        CommandAccess2.Parameters.Add(Project)
 
        For j = 1 To num
            Name.Value = FlowLayoutPanel1.Controls("TextBox" + CStr(j)).Text
            Department.Value = Depart
            Post.Value = "Team_Project"
            Project.Value = cboProjTeam.Text
            CommandAccess2.ExecuteNonQuery()
        Next

[papy75]

Salut SaumonAgile,

Merci pour ta réponse...

Quelle est la différence entre vider les paramètres et affecter la nouvelle valeur dans la boucle et relancer la requête?

Vincent

[SaumonAgile]

Ben c'est juste que ça ne sert à rien de supprimer et de recréer les paramètres, alors que tu vas re-créer les mêmes et simplement changer leur valeur.
Autant optimiser le traitement.

[papy75]

Oki Merci Bonne journée