bouton"supprimer"

bouton"supprimer" - VB/VBA/VBS - Programmation

Marsh Posté le 09-04-2010 à 05:47:54    

Bonjour  
Dans ce code,dans une bouton "supprimer",je veux savoir ou mettre un msgbox "etes-vous sure de suuprimer?" avant de confirmer la suppression  
 
Code  
-------  
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
Dim TextCode = DataGridView1.SelectedRows(0).Cells(0).Value.ToString()  
 
MsgBox(TextCode)  
Dim cnx As New SqlConnection  
cnx.ConnectionString = ("Data Source=PC\SQLEXPRESS;Initial Catalog=bd;Integrated Security=True;" )  
Dim cmd As New SqlCommand("DELETE FROM Fournisseur WHERE Code='" & TextCode & "'", cnx)  
If DataGridView1.SelectedRows.Count = 1 Then  
 
Dim row As DataGridViewRow  
row = DataGridView1.SelectedRows(0)  
 
DataGridView1.Rows.Remove(row)  
End If  
cnx.Open()  
 
cmd.ExecuteNonQuery()  
MsgBox("supprimé" )  
cnx.Close()  
 
End Sub
 
merci d'avance

Reply

Marsh Posté le 09-04-2010 à 05:47:54   

Reply

Marsh Posté le 09-04-2010 à 09:43:39    

Mettre cette demande de confirmation, avant la suppression, donc, vers le début de la subroutine, parait être une bonne place.

Reply

Marsh Posté le 09-04-2010 à 13:53:37    

Mais la ligne s'efface quelque soit la résponse (soit confirmer ou ignorer la suppression)

Reply

Marsh Posté le 09-04-2010 à 14:17:48    

Ok, donc la question est "comment" plutôt que "où".
 
Je n'ai pas accès à VB, mais voici un exemple en VBS qui est semblable :

Sub Suppression_lignes
  ConfirmDelete = MsgBox ("Etes-vous sure de suuprimer ?", _
    VbYesNo OR VBDefaultButton2, "Confirmation" )
  If ConfirmDelete = VbNo then
    Wscript.echo "Suppression annulée"
    Exit Sub
  End If
  Wscript.echo "Suppression en cours..."
End Sub
 
Suppression_lignes

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed