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
|
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Application.StartupPath & "\gestionjoueurs.mdb;")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
If MessageBox.Show("Vous êtes sur le point d'enlever le joueur " & strtata10 & " " & strtiti10 & " du groupe arrière, voulez vous continuer???", "Oui pour supprimer", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
' Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Application.StartupPath & "\gestionjoueurs.mdb;")
' Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
MyConnexion.Open()
'Mycommand.CommandText = "DELETE * FROM Archive_FeuilleMatch WHERE Id_Feuille =" & (strtoto1)
ligneencours = DataGrid1.CurrentRowIndex
ObjetDataSet.Tables("T_GestionGroupArrière").Rows(ligneencours).Delete()
' Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
ObjetDataTable = ObjetDataSet.Tables("T_GestionGroupArrière")
ObjetDataAdapter.Update(ObjetDataSet, "T_GestionGroupArrière")
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "T_GestionGroupArrière")
ObjetDataTable = ObjetDataSet.Tables("T_GestionGroupArrière")
'mise à jour du datagrid
DataGrid1.SetDataBinding(ObjetDataSet, "T_GestionGroupArrière")
Me.DataGrid1.Refresh()
' MyConnexion.Open()
' Mycommand.CommandText = "DELETE * FROM T_GestionGroupArrière WHERE IdJoueurArrièreNB =" & (strtoto10)
' Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
' MyConnexion.Close()
End If |
Partager