OVH Cloud OVH Cloud

Winform, Datagrid : suppression d'enregistrement?

1 réponse
Avatar
DP
Bonjour,



Je voudrais supprimer un enregistrement à partir d'un bouton de commande
(Winform, Datagrid, base Access). Le bouton supprimer supprime correctement
la ligne du Datagrid mais la base Access sous-jacente n'est pas mise à jour.



Où est le problème ?



Merci de votre aide ;



Dp



Mon code :





Private Sub cmdSupprimer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdSupprimer.Click



odaListeActes.SelectCommand = New OleDbCommand(strSql, MaConn)

objCB = New OleDbCommandBuilder(odaListeActes)



Dim nomTable As DataTable

nomTable = dtsListeActes.Tables(strTable)



Dim num As String

Dim LigneChoisie As Integer



LigneChoisie = (DataGridListeActes.CurrentRowIndex)

Dim myRow As DataRow =
dtsListeActes.Tables(strTable).Rows(LigneChoisie)



Me.dtsListeActes.Tables(strTable).Rows.Remove(myRow)



Me.odaListeActes.Update(dtsListeActes, strTable)





End Sub

1 réponse

Avatar
pulpfrissons
Bonjour,
Il existe de nombreux tutoriaux sur le sujet, y compris ici...
Le principe est que la modification ne se fait pas au niveau du datagrid
mais au niveau du dataset...
jetez un oeil sur le site codesource qui contient pas mal de tutoriaux...
mon bouquin sur Visual Basic de chez Micro Application explique cela très
bien... vous trouverez votre bonheur !

"DP" wrote:

Bonjour,



Je voudrais supprimer un enregistrement à partir d'un bouton de commande
(Winform, Datagrid, base Access). Le bouton supprimer supprime correctement
la ligne du Datagrid mais la base Access sous-jacente n'est pas mise à jour.



Où est le problème ?



Merci de votre aide ;



Dp



Mon code :





Private Sub cmdSupprimer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdSupprimer.Click



odaListeActes.SelectCommand = New OleDbCommand(strSql, MaConn)

objCB = New OleDbCommandBuilder(odaListeActes)



Dim nomTable As DataTable

nomTable = dtsListeActes.Tables(strTable)



Dim num As String

Dim LigneChoisie As Integer



LigneChoisie = (DataGridListeActes.CurrentRowIndex)

Dim myRow As DataRow > dtsListeActes.Tables(strTable).Rows(LigneChoisie)



Me.dtsListeActes.Tables(strTable).Rows.Remove(myRow)



Me.odaListeActes.Update(dtsListeActes, strTable)





End Sub