salut je souhaite mettre en place une application constituée d'une base de données sql server CE avec interface utilisateur en vb.net.Je veux enregistrer des données entrées par l'utilisateur dans la base de données mais j'ai un message d'erreur me disant " les données ont été tronquées impossible de convertir des types de données en un autre type.Voici le code utilisé .Merci d'avance.
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
 Private Sub cmd_enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_enregistrer.Click
        'si un champ n'est pas rempli fin de procédure
        If Me.Nom.Text = "" Or _
           Me.Prenom.Text = "" Then
 
 
            MessageBox.Show("Vous devez remplir tous les champs !", "Erreur...", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            Dat_adhtxt.Focus()
 
            Exit Sub
 
        End If
 
        'crátion d'une nouvelle ligne avec les données des textbox
        dtr = dts.Tables("Membre").NewRow
 
        dtr("date_adh") = Me.Dat_adhtxt.Text
        dtr("nom") = Me.Nom.Text
        dtr("prenoms") = Me.Prenom.Text
        dtr("date_naiss") = Me.Dat_naisstxt.Text
        dtr("habitation") = Me.habit_txt.Text
        dtr("sexe") = Me.Sexe.Text
        dtr("pays") = Me.pays_txt.Text
        dtr("ville") = Me.ville_txt.Text
        dtr("lang_parlée") = Me.lang_parltxt.Text
        dtr("tel") = Me.tel_txt.Text
        dtr("formation") = Me.formtxt.Text
        dtr("cel") = Me.cel_txt.Text
        dtr("permis") = Me.permitxt.Text
        dtr("nbre_enf") = Me.nbr_enftxt.Text
        dtr("type_memb") = Me.typ_txt.Text
        dtr("profession") = Me.profess_txt.Text
        dtr("stat_marital") = Me.statmar_txt.Text
        dtr("departem") = Me.depart_txt.Text
        dtr("respo") = Me.respo_txt.Text
        dtr("autre_departem") = Me.autrde_txt.Text
          'ajout de la ligne dans le DataSet
        dts.Tables("Membre").Rows.Add(dtr)
 
        'création et exécution du commandbuilder
        'pour mettre à jour le DataAdapter
        cmdb = New SqlCeCommandBuilder(dta)
 
        'mise à jour des données du DataAdapter
        'à partir du commandbuilder
        dta.Update(dts, "Membre")