1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Private Sub Btnsupp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsupp.Click
Dim cnx As New OleDbConnection
Try
If MessageBox.Show("Etes vous sûre de vouloir supprimer cet abonnement? Attention la suppression de cet abonnement entraînera la suppression automatique des factures lui afférents", "Confirmation", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button3, MessageBoxOptions.RtlReading, False) = Windows.Forms.DialogResult.No Then
ElseIf MessageBox.Show("Etes vous sûre de vouloir supprimer cet abonnement? Attention la suppression de cet abonnement entraînera la suppression automatique des factures lui afférents", "Confirmation", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button3, MessageBoxOptions.RtlReading, False) = Windows.Forms.DialogResult.Yes Then
cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb"
cnx.Open()
Dim command As New OleDbCommand("delete * from Abonnement where Num_abonnement='" & Cbxnumab.Text & "'")
Dim cmd As New OleDbCommand("delete * from Factureabonnement where Num_abonnement='" & Cbxnumab.Text & "'")
command.Connection = cnx
cmd.Connection = cnx
command.ExecuteNonQuery()
cmd.ExecuteNonQuery()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
MsgBox("Votre opération a été effectuée avec succès.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
Me.Dispose()
Frmprincipale.Show()
End Sub |
Partager