Enregistrer des données dans une base sql server CE
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:
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") |