Discussion :

[kek's]

Bonjour,
J'ai un souci sur l'insertion de données dans ma base CE, enfait le problème est que l'insertion se fait sur mon datagridview(qui affiche les lignes de la table correspondante) mais l'insertion n'est pas faite dans ma base de données CE.
J'ai essayé plusieurs technique mais rien ne marche,de plus il n'y a rien dans les faQs et aucune erreur ne se produit, pouvez-vous m'aider please?

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139

Private Sub RefreshDataSource()

        'Remplissage de l'instance de notre DataTable "Contacts" par l'instance

        'de Notre TableAdapter "ContactTableAdapter".

        'Celui-ci exécute la requête SELECT pour remplir notre table des données

        'que contient notre base physique "MaBaseLoacle.sdf".

        Me.CandidatTableAdapter.Fill(Me.MyDataSet.Candidat)

    End Sub


 Private Sub Ajoutcand_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        'Gestion des erreurs de saisie

        '

        Dim Num_row As Integer = 0
        Dim ctl As Control
        Dim HasError As Boolean = False
        Dim Nom_champ As String

        EP.Clear()

        'For Each ctl1 In Me.Pnltex.Controls
        '    If ctl1.Text.Length = 0 Then

        '        Nom_champ = ctl1.Name
        '        EP.SetError(ctl1, "Le champ " & Nom_champ & " ne peut être vide !")
        '        HasError = True
        '    End If

        'Next

        For Each ctl In Me.Pnltex2.Controls
            If ctl.Text.Length = 0 Then
                Nom_champ = ctl.Name
                If Nom_champ = "txt_complement" And txt_complement.Text = "" Then
                    HasError = False
                Else
                    EP.SetError(ctl, "Le champ " & Nom_champ & " ne peut être vide !")
                    HasError = True
                End If
            End If

        Next

        For Each ctl2 In Me.Pnltex3.Controls
            If ctl2.Text.Length = 0 Then

                Nom_champ = ctl2.Name
                If Nom_champ = "Comb_doc_a_temps" And Comb_doc_a_temps.Text = "" Then
                    HasError = False
                Else
                    EP.SetError(ctl2, "Le champ " & Nom_champ & " ne peut être vide !")
                    HasError = True
                End If
            End If

        Next

        For Each ctl3 In Me.Pnltex4.Controls
            If ctl3.Text.Length = 0 Then

                Nom_champ = ctl3.Name
                EP.SetError(ctl3, "Le champ " & Nom_champ & " ne peut être vide !")
                HasError = True
            End If

        Next



        If HasError Then

            Exit Sub

        End If



                REM: nous pourrions aller plus loin dans cette gestion des erreur avec

                REM: l'ajout d'expressions régilères (RegEx)

                REM: pour contrôler les champs tel que l'email ou le code postal,

                REM: mais ce n'est pas le but de ce tutoriel.

                '

                Try

                    '

                    'Appel de la procédure Insert de notre TableAdapter,

                    'qui transmettra la requête SQL INSERT.

            Dim NbLine As Integer = CandidatTableAdapter.Insert(Txt_Numdossier.Text, cbo_civil.Text, Txt_Nom.Text, Txt_Prenom.Text, Date_Naissance.Value.Date.ToString, Txt_Tel.Text, Txt_email.Text, cbo_statutcand.Text, Txt_Numvoie.Text, cbo_attribvoie.Text, cbo_libellevoie.Text, Txt_Nomvoie.Text, txt_complement.Text, Txt_codepostal.Text, Txt_ville.Text, cbo_Pays.Text, Date_envoicand.Value.Date.ToString, Date_Receptioncand.Value.Date.ToString, cbo_convention.Text, txt_tuteur.Text, cbo_candtardive.Text, cbo_elimination.Text, cbo_Domaine.Text, Date_debutpossible.Value.Date.ToString, Date_debutoblig.Value.Date.ToString, Date_finoblig.Value.Date.ToString, cbo_Prolong.Text, Txt_Dureemin.Text, Txt_Dureemax.Text, txt_flex.Text, cbo_etab.Text, cbo_Numsession.Text, Date_session.Value.Date.ToString, txt_lieusession.Text, txt_com.Text)


                    REM: Cette procédure retourne un entier indiquant le nombre de lignes modifiés.

                    '

            If NbLine > 0 Then

                MessageBox.Show("Le contact a bien été ajouté à la base de données.", "Ajout du contact", MessageBoxButtons.OK, MessageBoxIcon.Information)

                '

                'L'ajout effectué nous actualisons les données de notre source

                'de données en effectuant une requête SELECT de nouveau.

                Call RefreshDataSource()

                '

            End If

                    '

                Catch ex As Exception

                    '

                    MessageBox.Show("Une erreur est survenue durant l'accès à la base de données." & Environment.NewLine & "Détails de l'erreur: " & ex.Message, "Echec de l'accès aux données.", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

                    '

                End Try
    End Sub

Merci a tous !

[Sankasssss]

Bonjour,
ton problème vient de ta méthode insert :

Code :

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

 Dim NbLine As Integer = CandidatTableAdapter.Insert(Txt_Numdossier.Text, cbo_civil.Text, Txt_Nom.Text, Txt_Prenom.Text, Date_Naissance.Value.Date.ToString, Txt_Tel.Text, Txt_email.Text, cbo_statutcand.Text, Txt_Numvoie.Text, cbo_attribvoie.Text, cbo_libellevoie.Text, Txt_Nomvoie.Text, txt_complement.Text, Txt_codepostal.Text, Txt_ville.Text, cbo_Pays.Text, Date_envoicand.Value.Date.ToString, Date_Receptioncand.Value.Date.ToString, cbo_convention.Text, txt_tuteur.Text, cbo_candtardive.Text, cbo_elimination.Text, cbo_Domaine.Text, Date_debutpossible.Value.Date.ToString, Date_debutoblig.Value.Date.ToString, Date_finoblig.Value.Date.ToString, cbo_Prolong.Text, Txt_Dureemin.Text, Txt_Dureemax.Text, txt_flex.Text, cbo_etab.Text, cbo_Numsession.Text, Date_session.Value.Date.ToString, txt_lieusession.Text, txt_com.Text)

C'est surtout le code de cette méthode qu'il nous faudrait...

Mais tout cela m'a vraiment l'aire bizarre car normalement c'est la méthode update qu'il faut appeler de l'adapter...

[sinople]

Une fois n'est pas coutume...

Je vous recommande de lire les cours ADO.NET sur ce site (ou la doc MSDN à choix) et plus particulièrement le concept des bases de données déconnectées.

L'insert n'introduit pas votre ''ligne'' dans le datagridview, ni dans SQL Server mais dans la dataTable local correspondant à l'une des table SQL Server en mode déconnecté.

Il est nécessaire d'appeller une autre procédure, à un moment donnée, afin de mettre à jour SQL Server et la dataTable.

L'ajout d'un binding navigator et l'étude de l'evenement click de son boutton sauvegarder peut vous donner quelques pistes sur le Comment.

[kek's]

S'il y avait une info la-dessus je l'aurai trouvé car je les aies tous regardé mais aucun parle de mon problème.
Juste pour ton information, la base CE est une base locale à VB.net l'application n'interagis pas avec SQL server mais SQL CE.

Si quelqu'un trouve le souci qu'il n'hésite pas !

Et pour sankasssss non, ce n'est pas un update mais un insert, tu peux utiliser les trois methodes Delete, Insert, Update
Je t'invite à aller voir le tuto à l'adresse ci-dessus

Et merci à vous !

[benharperr]