[VB.net] Mise à jour d'un datagrid

**WriteLN** · 14/11/2005, 14h26

Bonjour à tous,

Sur une form, j'ai un datagrid que je remplis au travers de oleDB:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private ds As New DataSet
    Private con As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LireINI("Files", "path_access") & "\dep.mdb")
    Private da As OleDb.OleDbDataAdapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 'Remplissage du datagrid avec les données de la table access
        da = New OleDb.OleDbDataAdapter("select * from services", con)
        Dim dc As New OleDb.OleDbCommand
        dc.CommandText = "select * from services"
        da.UpdateCommand = dc
        da.Fill(ds)
        DataGrid1.DataSource = ds.Tables(0)
        'Blocage des fonctions ajout et édition du datagrid
        Dim cm As CurrencyManager = Me.BindingContext(DataGrid1.DataSource, DataGrid1.DataMember)
        Dim dv As DataView = CType(cm.List, DataView)
        dv.AllowNew = False
        dv.AllowEdit = False

Une des colonnes affichées est un compteur (champ number ds la base)
En sélectionnant une ligne et en appuyant sur un bouton, je voudrais remettre à zéro ce champs:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Remettre le compteur à zéro
        Dim i As Integer
        For i = 0 To ds.Tables(0).Rows.Count - 1
            If DataGrid1.IsSelected(i) Then
                Dim strRequest = "UPDATE services SET cpt = 0 WHERE service = '" & DataGrid1.Item(i, 0) & "'"
                oRecordSet = oConnection.Execute(strRequest)
            End If
        Next i
         da.update()
         DataGrid1.Refresh() 
    End Sub

Malheureusement mon affiche n'est pas actualisé. Je ne vois pas trop ce qu'il manque pour que ma mise à jour soit visible. Si je ferme et réouvre l'écran, le changement est bien affiché.

Merci d'avance pour vos réponses.

**elbj** · 14/11/2005, 15h13

Bonjour

Il me semble que ton problème vient de ton UpdateCommand. En effet tu mets ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dc.CommandText = "select * from services"
da.UpdateCommand = dc

... cela signifie que ta commande update de ton dataadapter exécute une requête select...

Lorsque tu utilises un DataAdapter tu dois user de "Fill" pour remplir tes DataTables. Or, si effectivement tu le fais bien lors de l'initialisation, ce n'est pas le cas dans ta méthode Button2_Click. Tu lances un da.update() sans signifier la table à updater...

Je te conseille plutôt un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
da.Fill(ds) 
DataGrid1.Refresh()

comme précédemment.

Cordialement

Christophe

**WriteLN** · 14/11/2005, 15h16

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
        'Remettre le compteur à zéro
        Dim i As Integer
        For i = 0 To ds.Tables(0).Rows.Count - 1
            If DataGrid1.IsSelected(i) Then
                Dim strRequest = "UPDATE services SET cpt = 0 WHERE service = '" & DataGrid1.Item(i, 0) & "'"
                oRecordSet = oConnection.Execute(strRequest)
            End If
        Next i
        'Remplissage du datagrid avec les données de la table access
        da.Fill(ds)
        DataGrid1.Refresh()

En fait, si je fais ca, il ajoute exactement les même données à mon datagrid, à la suite des précédentes.
Je dois a mon avis d'abord vider le DG (comment faire?) et ensuite réafficher les données. Par contre il ne met pas à jour ce fameux champs.

**neguib** · 14/11/2005, 15h46

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.DataGrid1.SetDataBinding(Me.ds, Me.ds.Tables(0).TableName)

**WriteLN** · 14/11/2005, 15h49

Je viens d'essayer le databinding mais ca ne semble pas vouloir s'améliorer.
Le datagrid n'est pas mis à jour.

**WriteLN** · 15/11/2005, 08h58

Personne n'a d'idée? J'ai beau retourner le problème dans tous les sens, je n'obtient jamais le résultat escompté...

J'aurais imaginé que l'update d'une datasource réexécute la command SQL qui lui est liée. Et donc ensuite, un refresh du datagrid met à jour les données selon mon DS.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 'Remettre le compteur à zéro
        Dim i As Integer
        For i = 0 To ds.Tables(0).Rows.Count - 1
            If DataGrid1.IsSelected(i) Then
                Dim strRequest = "UPDATE services SET cpt = 0 WHERE service = '" & DataGrid1.Item(i, 0) & "'"
                oRecordSet = oConnection.Execute(strRequest)
            End If
        Next i
        da.Update(ds)
        Me.DataGrid1.SetDataBinding(ds, ds.Tables(0).TableName)
        DataGrid1.Refresh()

Dans mon code, je fait l'update au travers d'un recordset connecté. Le fait de ne pas fermer la connection et / ou le recordset entre mes refresh oleDB peut-il être la cause de mon problème?

**WriteLN** · 15/11/2005, 11h36

J'ai utilisé oleDB pour toutes mes requêtes mais ca ne change rien finalement.
Je n'arrive toujours pas à mettre à jour dynamiquement le contenu du datagrid.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim i As Integer
            For i = 0 To ds.Tables(0).Rows.Count - 1
                If DataGrid1.IsSelected(i) Then
                    Dim strRequest = "UPDATE services SET cpt = 0 WHERE service = '" & DataGrid1.Item(i, 0) & "'"
                    Dim oledbCommand As New OleDb.OleDbCommand(strRequest, con)
                    oledbCommand.ExecuteNonQuery()
                End If
            Next i
            da.Update(ds.Tables("services"))
            DataGrid1.DataSource = ds.Tables("services")
            DataGrid1.Refresh()

**WriteLN** · 16/11/2005, 09h27

UP

Pas d'idée?
Voici le code complet de ma form, si quelqu'un voit ou ca cloche...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
48
49
Public Class frm_gestion_dep
    Inherits System.Windows.Forms.Form
 
    Private ds As New DataSet
    Private con As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LireINI("Files", "path_access") & "\E_dep.mdb")
    Private da As OleDb.OleDbDataAdapter
 
    Private Sub frm_gestion_dep_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            'MakeTableStyle()
            'Remplissage du datagrid avec les données de la table access
            con.Open()
            da = New OleDb.OleDbDataAdapter("select * from services", con)
            da.Fill(ds, "services")
            DataGrid1.DataSource = ds.Tables("services")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            'Sauvegarder les modifications
            Dim cm As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(da)
            da.Update(ds.Tables("services"))
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            'Remettre le compteur à zéro
            Dim i As Integer
            For i = 0 To ds.Tables(0).Rows.Count - 1
                If DataGrid1.IsSelected(i) Then
                    Dim strRequest = "UPDATE services SET cpt = 0 WHERE service = '" & DataGrid1.Item(i, 0) & "'"
                    Dim oledbCommand As New OleDb.OleDbCommand(strRequest, con)
                    oledbCommand.ExecuteNonQuery()
                End If
            Next i
            da.Update(ds.Tables("services"))
            DataGrid1.DataSource = ds.Tables("services")
            DataGrid1.Refresh()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

Merci.

**WriteLN** · 16/11/2005, 10h55

En attendant mieux,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 DataGrid1.Item(i, 2) = 0

C'est pas le top mais on fera avec....

Merci.

**del-dongo** · 16/11/2005, 15h55

heu...ton problème vient du fait que tu ne met jamais au courant la datasource de la grid des changements...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
da = New OleDb.OleDbDataAdapter("select * from services", con) 
OleDbCommandBuilder cb = new OleDbCommandBuilder(da);
da.InsertCommand = cb.GetInsertCommand();
da.UpdateCommand = cb.GetUpdateCommand();
da.DeleteCommand = cb.GetDeleteCommand();
Datatable dt = new Datatable();
da.Fill(dt);
DataGrid1.datasource = dt;

Tu bind ensuite un textbox à la bonne colonne de ta datatable...
Les modifications faites dans ton texbox seront répercutés dans ta datatable...
reste plus qu'a faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part