Problème d'ajout de données à une base de données

Salut tout le monde
je suis entrain d'essayer de remplir ma base de données SQL server a partir d'un formulaire VB.net. J'ai cru que tout va bien avec mon code mais qu'on je consulte ma base je ne trouve aucun changement .
Voila le code que j'utilise, qu'est ce qui cloche ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim strsql As String = "Select * from demandeur" Dim strConnexion As String = "Data Source=localhost; Integrated Security=SSPI;" + "Initial Catalog=Northwind" Dim x As Exception Try Dim oConnection As New SqlConnection(strConnexion) oConnection.Open() Dim ObjetDA As New SqlDataAdapter(strsql, oConnection) ObjetDA.Fill(Parc_municipalDataSet1, "demandeur") Dim DR As DataRow DR = Parc_municipalDataSet1.Tables("demandeur").NewRow DR("titre") = TextBox3.Text DR("nom_prenom_dem") = TextBox1.Text Parc_municipalDataSet1.Tables("demandeur").Rows.Add(DR) ObjetDA.Update(Parc_municipalDataSet1, "demandeur") Parc_municipalDataSet1.Clear() ObjetDA.Fill(Parc_municipalDataSet1, "demandeur") oConnection.Close()     Catch x Console.WriteLine(("L'erreur suivante a été rencontrée :" + x.Message)) End Try

---

Merci bien cordialement. :) :) :)

Tu dois faire un AcceptChanges() sur ton DataSet

Citation:

---

Envoyé par GuruuMeditation

Tu dois faire un AcceptChanges() sur ton DataSet

---

Ou je met ça SVP?

Citation:

---

Envoyé par GuruuMeditation

Tu dois faire un AcceptChanges() sur ton DataSet

---

Pas du tout, cela enlève justement l'information sur les lignes ajoutées / modifiées / supprimées, voir MSDN :

Citation:

---

Lorsque vous appelez AcceptChanges sur DataSet, tout objet DataRow qui est toujours en mode édition achève correctement ses modifications.
La propriété RowState de chaque DataRow est également modifiée ;
les lignes Added et Modified deviennent Unchanged, et les lignes Deleted sont supprimées.

---

Moi je pense qu'il y a une erreur mais que vous (ahmed_kh) ne la voyez pas.
Rien ne s'affiche dans votre console? en mode pas à pas, il passe dans le catch?

nn je parle de la base de données avec ce code là il n'y a aucun changement.
J'ai pas pu trouvé ma faute!

Citation:

---

Envoyé par ahmed_kh

avec ce code là il n'y a aucun changement.

---

J'ai bien compris, mais pour moi il doit y avoir une erreur mais vous ne la voyez pas.

Changez cette ligne :

Code:

---

Console.WriteLine(("L'erreur suivante a été rencontrée :" + x.Message))

---

par ceci :

Code:

---

MsgBox("L'erreur suivante a été rencontrée :" & x.Message)

---

Exécutez le code et dite moi si un message s'affiche...

voila le message affiché.
je vais noté que j'ai ajouté le dataset correspondant à ma base de données par l'outil 'add new data source' et non pas par code.

C'est bien ce que je pensais, ne mettez jamais un Try / Catch sans traitement de l'erreur (du moins un message) car en exécution vous ne verrez jamais l'erreur avec un Consol.WriteLine(...).

Donc comme le message le dit, les commandes insert, update et delete n'existe pas. pour les faire, vous avez deux solutions, soit vous les faites vous même, soit vous les faite automatiquement par le code.
Cette dernière méthode étant la plus simple c'est celle que je vais vous montrer, il vous faut donc ajouter cette ligne dans votre code :

Code:

---

Dim custCB As SqlCommandBuilder = New SqlCommandBuilder(custDA)

---

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim strsql As String = "Select * from demandeur" Dim strConnexion As String = "Data Source=localhost; Integrated Security=SSPI;" + "Initial Catalog=Northwind" Dim x As Exception Try Dim oConnection As New SqlConnection(strConnexion) oConnection.Open() Dim ObjetDA As New SqlDataAdapter(strsql, oConnection) Dim custCB As New SqlCommandBuilder(ObjetDA) ' Ligne ajoutée ObjetDA.Fill(Parc_municipalDataSet1, "demandeur") Dim DR As DataRow DR = Parc_municipalDataSet1.Tables("demandeur").NewRow DR("titre") = TextBox3.Text DR("nom_prenom_dem") = TextBox1.Text Parc_municipalDataSet1.Tables("demandeur").Rows.Add(DR) ObjetDA.Update(Parc_municipalDataSet1, "demandeur") Parc_municipalDataSet1.Clear() ObjetDA.Fill(Parc_municipalDataSet1, "demandeur") oConnection.Close()     Catch x MsgBox("L'erreur suivante a été rencontrée :" + x.Message) End Try

---

Voici une ressource à lire : MSDN - Automatically Generated Commands

Merci bien monsieur c'est résolu.
merci énormément.

Avec plaisir, n'oubliez pas de mettre résolu en cliquant sur le bouton :resolu: en bas.
Bonne nuit.