Private Sub ButtonSupprimer_fournisseur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSupprimer_fournisseur.Click
Dim maConnection As New MySql.Data.MySqlClient.MySqlConnection("Server=127.0.0.1;Database=gestionstock;Uid=root;Pwd=;")
maConnection.Open()
'declaration du DataSet
Dim MaDataSet As New DataSet()
'declaration du dataAdapter
Dim MysqlDA As New MySqlDataAdapter("SELECT * FROM tbl_mouvementfournisseur", maConnection)
MysqlDA.Fill(MaDataSet, "tbl_mouvementfournisseur")
'recupère la ligne selectionné
Dim LigneEnCours As Integer
LigneEnCours = DataGridViewMouvementFournisseur.CurrentRow.Index
'recupere la clé de l'enregistrement sélectionné
Dim MonIndex As String
MonIndex = DataGridViewMouvementFournisseur.Item(0, LigneEnCours)
'c'est ici qu'est mon problème
'selectionne la ligne
Dim MaDataRow As DataRow()
MaDataRow = MaDataSet.Tables("tbl_mouvementfournisseur").Select("idTbl_MouvementFournisseur = " & MonIndex)
'et la supprime
MaDataRow(0).Delete()
'Mise à jour de la base
MajBase(MysqlDA, "tbl_mouvementfournisseur")
maConnection.Close()
End Sub
Partager