Probléme de mise a jour DataTable en VB 2008

Question

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

Aide moi SVP

cs_tanny · Answer

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'.



            merci

yhaykel · Answer

au lieu de setdatabinding  tu devra mettre setdatasource

haykel

Probléme de mise a jour DataTable en VB 2008

2 réponses

Votre réponse

Discussions similaires