1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Private Sub btnsup_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnsup.Click
MessageBox.Show(" Suppression effectuée,Cliquez sur OK !", "Ok Pourssuivez", MessageBoxButtons.OK, MessageBoxIcon.Information)
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()
If Me.TextBox1.Text = "Feuille de match équipe Première Seniors" Then
Mycommand.CommandText = "DELETE * FROM Archive_FeuilleMatch WHERE Id_Feuille =" & (strtoto1)
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
cmdb = New OleDbCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Update(ObjetDataSet, "Archive_FeuilleMatch")
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "Archive_FeuilleMatch")
ObjetDataTable = ObjetDataSet.Tables("Archive_FeuilleMatch")
End If |
Partager