Discussion :

[ahmed_kh]

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 :

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

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.

[GuruuMeditation]

Tu dois faire un AcceptChanges() sur ton DataSet

[ahmed_kh]

Tu dois faire un AcceptChanges() sur ton DataSet

Ou je met ça SVP?

[Sankasssss]

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 :

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?

[ahmed_kh]

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!

[Sankasssss]

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 :

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

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

par ceci :

Code :

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

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

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

[ahmed_kh]

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.