faire un INSERT INTO depuis plusieurs form

Bonjour à tous,

Je suis actuellement en train de développer une application en VB.Net permettant d'enregistrer les données saisies par l'utilisateur vers une base de données SQL Server.

Jusqu'ici, j'ai réussi à enregistrer mes données mais un problème se pose.

Mon questionnaire se compose de 3 formulaires et j'aimerais stocker les données saisies dans ces trois formulaires dans une seule table et en un enregistrement.

J'ai tenté de faire ma requête dans chaque form mais ça me créer 3 enregistrement.

Et lorsque je fais une seule requête dans la dernière form, seuls les données de la form en question s'enregistre.

Voici mon dernier code :

Code:

---

1 2 3 4 5

Dim Cmd As SqlCommand = Cnn.CreateCommand() Cmd.Connection = Cnn Cmd.CommandType = CommandType.Text Cmd.CommandText = "INSERT INTO WorkPp values ('" & Quest1.TextBox1.Text & "','" & Quest1.TextBox2.Text & "', '" & Quest1.TextBox3.Text & "', '" & Quest1.TextBox4.Text & "', '" & Quest1.POA.Text & "','" & Quest1.Product.Text & "', '" & Quest2.ProgramImpacttype.Text & "','" & Quest2.TypeSite.Text & "', '" & Quest2.TypeDivision.Text & "', '" & Quest2.Duration.Text & "', '" & Quest2.SourceType.Text & "','" & Quest2.ProgramType.Text & "', '" & CostType.Text & "', '" & TechnologyType.Text & "')" Cmd.ExecuteNonQuery()

---

Merci d'avance de l'aide que vous pourrez m'apporter.

Nora

Bonjour,

avant de commencer, tes formulaires, je suppose que c'est :

• "Quest1"
• "Quest2"
• "Quest3" *qu'on ne voit pas la*

L"idée est bonne, tu a essayé de faire

Code:

---

MsgBox(Cmd.CommandText)

---

pour voir si la requête est correcte?

Peux tu nous la copier pour qu'on voit la requête envoyée.
Aucun messages d'erreurs ne t'es retourné?

PS: il ne maque pas un ";" a la fin de la requete?

Bonjour,

En effet ceux sont bien les noms de mes forms,
et non je n'ai aucun message d'erreur...

Voilà ce qu j'ai quand je met

Code:

---

MsgBox(Cmd.CommandText)

---

Et le ";" n'a pas d'impact sur la requête, avec ou sans ça fonctionne ;)

humm c'est bizare...
surtout le fait qu'il ne reconnaisse pas

Code:

---

1 2	CostType.Text TechnologyType.Text

---

:?

pourtant tu est sur le même formulaire ou il a ces deux champs...
Ils sont vides?

Aprespour les deux autres, je me demande si ça ne viens pas de la fermeture des Formulaires.
tu fait comment pour passer d'un formulaire a l'autre?

Code:

---

1 2 3

Quest1.hide 'ou Quest1.Dispose

---

Enfaite seules les données cost et technology sont enregistrées ...
j'utilise Quest1.Hide() mais ça marche pas non plus avec Quest1.Dispose()

Je sais plus trop comment m'y prendre.

Des solutions ? :?

Lorsque que j'essaye de mettre ma requête dans chaque form :

Code:

---

1 2 3 4 5 6 7 8 9

Dim Cmd As SqlCommand = Cnn.CreateCommand()   Cmd.Connection = Cnn Cmd.CommandType = CommandType.Text Cmd.CommandText = "INSERT INTO WorkPp (nomWork, valWork, StarDate, endDate, POAImpact, ProductImpact) values ('" & TextBox1.Text & "','" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & POA.Text & "','" & Product.Text & "')"   Cmd.ExecuteNonQuery()   'etc ...

---

Et bien l'enregistrement se fait mais en 3 fois, Ce qui veut dire que dans ma table j'ai enregistrement 1 avec les données de ma première form, puis enregistrement 2 avec les données de ma deuxième form, puis enregistrement 3 avec les données de ma troisième form. Les autres champs sont donc en "NULL".

Vos propositions et questions sont le bienvenues !
Aidez moi :arf:

Bon je continue à parler toute seule :mrgreen:

C'est bon j'ai résolu mon problème !

Il suffisait de ne pas fermer les forms et jai mis ma requête dans ma dernière form puis ensuite fermés mes forms.

Voili voilou merci pour ton aide hunteshiva !