bonsoir à tous
Comme vous pouvez le constater je suis bien dans mes débuts avec le VB.net, j'ai crée un petit programme qui gère une équipe la connexion avec ma base de donnéeAccess marche parfaitement hors le but de mon bouton enregistrer je saisi mes données sur les textbox une fois je clique sur le bouton enregistrer il renvoie tout dans la base de donnée par contre le constat que j'ai fais quand j'ai des variables text ça marche mais quand j'ai des variables numeriques ça plante
j'ai même convertit mais rien du tout
voici le code
Private Sub btnenregis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenregis.Click
'si un champ n'est pas rempli fin de procedure
If Me.txtnationalite.Text = "" Or _
Me.cmbdate.Text = "" Or _
Me.txtnbrjoueur.Text = "" Then
MessageBox.Show("Vous devez obligatoirement remplir vos champs :")
Me.txtnationalite.Focus()
Exit Sub
End If
'creation d'une nouvelle ligne avec les donnees de textbox
dtr = dts.Tables("equipe").NewRow
dtr("natio") = Me.txtnationalite.Text
dtr("date") = Me.cmbdate.Text
dtr("nbre_joueur") = Me.txtnbrjoueur.Text
'ajout de la ligne dans le dataset
dts.Tables("equipe").Rows.Add(dtr)
'creation et execution de commanBuilder pour mettre à jour le dataadapter
cmdb = New OleDb.OleDbCommandBuilder(dta)
'mise à jour du dataadapter à partir des donnees de commandBuilder
dta.Update(dts, "equipe") //ça plante à ce niveau le msg erreur de synthaxe dans l'instruction insert into
dts.Clear()
dta.Fill(dts, "equipe")
dtt = dts.Tables("equipe")
matable = dts.Tables("equipe")
dtgridequipe.DataSource = matable
'aller au debut du fichier
rownum = 0
'afficher les donnes dans les textbox
Me.txtcode.Text = dtt.Rows(rownum).Item("code_equip")
Me.txtnationalite.Text = dtt.Rows(rownum).Item("natio")
Me.cmbdate.Value = dtt.Rows(rownum).Item("date")
Me.txtnbrjoueur.Text = dtt.Rows(rownum).Item("nbre_joueur")
btnpremier.Enabled = True
btnprecedent.Enabled = True
btnsuivant.Enabled = True
btndernier.Enabled = True
btnmodifier.Enabled = True
btnsupprimer.Enabled = True
btnajouter.Enabled = True
btnenregis.Enabled = False
btnajouter.Text = "Ajouter"
End Sub
veuillez m'aider et si vous avez un code simple et tres comprehensible qui effectue la même tâche l'ajout bien sûr ça ne serais que les bienvenus.
merci