Discussion :

[nora2603]

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 :

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

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

[hunteshiva]

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 :

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

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?

[nora2603]

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 :

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

MsgBox(Cmd.CommandText)

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

[hunteshiva]

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

Code :

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

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 :

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

1
2
3
Quest1.hide
'ou
Quest1.Dispose

[nora2603]

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 ?

[nora2603]

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

Code :

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

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