lovelyhind
Messages postés1Date d'inscriptionsamedi 5 avril 2008StatutMembreDernière intervention 9 avril 2010
-
9 avril 2010 à 12:09
yhaykel
Messages postés1Date d'inscriptionmercredi 6 avril 2011StatutMembreDernière intervention13 mai 2011
-
13 mai 2011 à 03:29
Bonjour
j'ai un probléme sur une application en visual basic 2008,la base de donnée est en Access
'déclaration des variables
Private cnx As OleDbConnection
Private cmd As OleDbCommand
Private dta As OleDbDataAdapter
Private cmdb As OleDbCommandBuilder
Private dts As New DataSet
Private dtt As DataTable
Private dtc As DataColumn
Private dtr As DataRow
Private rownum As Integer
Private conn As String
Private sql As String
Try
'crátion d'une nouvelle ligne avec les données des textbox
dtr = dts.Tables("Table").NewRow
dtr("Titre") = Me.txttitre.Text
dtr("Société") = Me.txtsociété.Text
'ajout de la ligne dans le DataSet
dts.Tables("Table").Rows.Add(dtr)
'création et exécution du commandbuilder
'pour mettre à jour le DataAdapter
cmdb = New OleDbCommandBuilder(dta)
'mise à jour des données du DataAdapter
'à partir du commandbuilder
dts.AcceptChanges()
dta.Update(dts, "Table")
'on vide le dataset pour le recréer avec
'les nouvelles données
dts.Clear()
dta.Fill(dts, "Table")
dtt = dts.Tables("Table")
'mise à jour de la datagrid
DataGrid1.SetDataBinding(dts, "Table")
'aller au début du fichier
rownum = 0
'affichage des données dans les texbox
Me.txtref.Text = dtt.Rows(rownum).Item("Numéro")
Me.txttitre.Text = dtt.Rows(rownum).Item("Titre")
Me.txtsociété.Text = dtt.Rows(rownum).Item("Société")
'activation des boutons
btnp.Enabled = True 'premier
btnprec.Enabled = True 'précédent
btnsui.Enabled = True 'suivant
btnder.Enabled = True 'dernier
btnmod.Enabled = True
btnsup.Enabled = True
btnajou.Enabled = True
btnenr.Enabled = False 'valider
btnajou.Text = "Ajouter"
Catch ex As OleDbException
MsgBox(ex.Message)
End Try
le probléme c'est que la base de donnees n'est pas mise a jours concernant l'ajout,suppression et modification
cs_tanny
Messages postés1Date d'inscriptionlundi 4 mai 2009StatutMembreDernière intervention 9 octobre 2010 9 oct. 2010 à 19:48
salut je ne suis pas arrive a afficher les données dans le datagrid en vb.net la fenêtre des erreur m'affiche: Erreur 'SetDataBinding' n'est pas un membre de 'System.Windows.Forms.DataGridView'.