SqlParameter est déjà contenu dans un autre SqlParameterCollection

Version imprimable

Bonjour mes amis,

j'ai fait une boucle pour copie les paramètres d'un sqlcommand dans une autre sqlcommand mais j'ai l'erreur suivant : "L'élément SqlParameter est déjà contenu dans un autre SqlParameterCollection "
Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
For Each obj As Object In cmd
                    If TypeOf obj Is SqlClient.SqlCommand Then
 
                        Dim liste_param As SqlClient.SqlCommand = CType(obj, SqlClient.SqlCommand)
 
                        For Each param As SqlClient.SqlParameter In liste_param.Parameters
                            _cmd.Parameters.Add(param)
                        Next
 
                        _cmd.CommandText = liste_param.CommandText
                        _cmd.ExecuteNonQuery()
 
                    Else
                        _cmd.CommandText = obj.ToString
                        _cmd.ExecuteNonQuery()
                    End If
                Next

Hello

Essaie cela :

Code:

1
2
3
4
5
 
For Each param As SqlClient.SqlParameter In liste_param.Parameters
        Dim Param2 as Parameter = param
        _cmd.Parameters.Add(Param2)
Next

Cordialement.

DeWaRs

09/08/2012, 15h27
zaghi

Ça marche pas DeWaRs , le même erreur :calim2:
09/08/2012, 16h56
DotNetMatt
Bonjour,

Peut-être en rajoutant l'instruction suivante à la fin, ou au début de la première boucle For Each :
Code:

1 2 3 4 For Each obj As Object In cmd ... _cmd.Parameters.Clear() Next
09/08/2012, 17h18
Pol63
le message d'erreur est pourtant clair, un sqlparameter ne peut pas être dans 2 collection de parameters en même temps
il faut donc faire des new parameter pour "cloner" ceux d'origine

si tu peux supprimer les parameters de la 1ère collection avant de les mettre dans la 2ème, tu peux les faire transiter dans un list(of sqlparameter)
Code:

1 2 3 dim params = cmd.parameters.tolist cmd.parameters.clear cmd2.parameters.Addrange(params)
le code est peut etre à adapter, je ne sais pas si le .tolist est dispo, ni le addrange ^^
09/08/2012, 18h54
Sankasssss

Complètement d'accord avec Pol63, l'idée est là :)

en regardant les membres de SqlParameterCollection on trouve la méthode SqlParameterCollection.CopyTo qui à deux implémentations dont :

Citation:

SqlParameterCollection.CopyTo (SqlParameter[], Int32)

Copie tous les éléments du SqlParameterCollection en cours dans le SqlParameterCollection spécifié à partir de l'index de destination spécifié.

J'ai modifier mon code pour faire cloner les paramètres dans un tableau de SqlParameter , mais il s’arrête a la méthode CopyTo avec l'erreur : "La valeur ne peut pas être null. Nom du paramètre : dest"
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
For Each obj As Object In cmd
            If TypeOf obj Is SqlClient.SqlCommand Then
 
                Dim commande As SqlClient.SqlCommand = DirectCast(obj, SqlClient.SqlCommand).Clone
                Dim parametres() As SqlClient.SqlParameter
 
                commande.Parameters.CopyTo(parametres, 0)
                commande.Parameters.Clear()
 
                _cmd.Parameters.AddRange(parametres)
                _cmd.CommandText = commande.CommandText
                _cmd.ExecuteNonQuery()
 
            End If
        Next

J'ai trouvé la solution :D le problème c'est que je doit définir la taille du tableau , merci Pol63 et Sankasssss. voici la nouvelle fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
For Each obj As Object In cmd
            If TypeOf obj Is SqlClient.SqlCommand Then
 
                Dim commande As SqlClient.SqlCommand = DirectCast(obj, SqlClient.SqlCommand)
                Dim parametres(commande.Parameters.Count - 1) As SqlClient.SqlParameter
 
                commande.Parameters.CopyTo(parametres, 0)
                commande.Parameters.Clear()
 
                _cmd.Parameters.AddRange(parametres)
                _cmd.CommandText = commande.CommandText
                _cmd.ExecuteNonQuery()
 
            End If
        Next