Discussion :

[Steff1985]

J'ai des procédures stockées dans SQL Server. J'utilise des commandes ADODB pour appeler mes procédures depuis VB.
Le soucis est au niveau de mes parametres.
Exemple :

Code :

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

1
2
3
4
5
6
7
8
cmd2.CommandText = "Insertion"
cmd2.Parameters.Append cmd2.CreateParameter("@nom", adVarChar, adParamInput, 20, Nom.Text)
cmd2.Parameters.Append cmd2.CreateParameter("@sexe", adVarChar, adParamInput, 8, sexe)
cmd2.Parameters.Append cmd2.CreateParameter("@dateN", adDate, adParamInput, 8, Calendar1.Value)
cmd2.Parameters.Append cmd2.CreateParameter("@Race", adVarChar, adParamInput, 20, Race.Text)
cmd2.Parameters.Append cmd2.CreateParameter("@origine", adVarChar, adParamInput, 20, Origine.Text)
cmd2.Parameters.Append cmd2.CreateParameter("@mere", adVarChar, adParamInput, 20, Parent.Text)
rs = cmd2.Execute

ça marche tres bien, le soucis c'est que je sais pas comment effacer ou liberer les parametres. lorsque je relance cette procedure juste apres, j'ai l'erreur suivante : "Trop d'arguments sont spécifiés pour la procédure Insertion" et effectivement dans mon cmd2.CommandText il attend ma procédure avec non pas 6 mais 12 paramètres. Comment réinitialiser une commande? y a t il quelque chose à faire sous mon serveur SQL??? Help, j'dois rendre cette appli dans pas longtemps...

[zazaraignée]

Salut

Je prends une chance... Je n'ai jamais fait, alors...
Considérant que Append sert à mettre au bout... il doit y avoir un Delete ou un Clear... ?

Code :

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

cmd2.Parameters.Delete

ou

Code :

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

cmd2.Parameters.Clear

T'as essayé?

[Edit] À moins que ce ne soit Close (comme pour les fichiers).

[jmfmarques]

The Delete method deletes a Parameter object from the Parameters Collection.

[Steff1985]

ok, ça marche avec cmd2.Parameters.Delete (0). Il faut juste faire attention au fait que l'index est décalé. donc faire :

Code :

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

1
2
3
For i = 1 To 6
      cmd.Parameters.Delete (0)
Next i

Merci.