bonsoir à tous...
Compte tenu de mes difficultés en VB.net j'ai voulu adapter un code par rapport à mon projet histoire de bien assimiler ce dernier ,mais toute fois je me retrouvais avec des messages d'erreurs je me suis dis que c'etais mes valeurs numeriques qui etaient à l'origine de ce problème verification faite avec des modifications je me suis rendu compte que c'est mon
Datatimepicker qui causais ce problème
donc j'aimerai que vous m'aidiez à envoyer mes données de mon Datatimepicker dans la base Access
voici mon code
Private Sub btnenregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenregistrer.Click
'si un champ n'est pas rempli fin de procedure
If Me.txtdate.Text = "" Then
MessageBox.Show("Vous devez obligatoirement remplir vos champs :")
Exit Sub
End If
'creation d'une nouvelle ligne avec les donnees de textbox
dtr = dts.Tables("essai").NewRow
dtr("date") = Me.txtdate.Value
'ajout de la ligne dans le dataset
dts.Tables("essai").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, "essai")
dts.Clear()
dta.Fill(dts, "essai")
dtt = dts.Tables("essai")
matable = dts.Tables("essai")
dtgriddate.DataSource = matable
'aller au debut du fichier
rownum = 0
'afficher les donnes dans les textbox
Me.txtnum.Text = dtt.Rows(rownum).Item("code_equip")
Me.txtdate.Value = dtt.Rows(rownum).Item("date")
btnprmier.Enabled = True
btnprecedent.Enabled = True
btnsuivant.Enabled = True
btndernier.Enabled = True
btnmodif.Enabled = True
btnsupprimer.Enabled = True
btnajout.Enabled = True
btnenregistrer.Enabled = False
btnajout.Text = "Ajouter"
End Sub
tout en sachant que txtnum dans la bd access -----NumeroAuto
----------//---------txtdate dans la bd access------Date/Heure
je vous remercie
Partager