Confirmation d'une supression

Question

J'ai un bouton supprimer que je cr&#233;er dans mon page_load  et il fonctionnait tres bien avant que je mettre un if not ispostback   mais si j'enleve le ispostback mon bouton editer ne fonctionne plus.......J'ai bien essay&#233; de trouver mais cette fois ci je crois que  c'est hors de mon niveau 


Class ItemTemplateSupprimer



Implements ITemplate



Public 
Sub InstantiateIn(
ByVal container 
As System.Web.UI.Control) 
Implements System.Web.UI.ITemplate.InstantiateIn



Dim btn 
As 
New Button


btn.Text = "Supprimer"


btn.CommandName = "Delete"


btn.Attributes.Add("onclick", "return confirm('Voulez-vous vraiment supprimer cette ligne ?');")


container.Controls.Add(btn)



End 
Sub



End 
Class



Private 
Sub Page_Load(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles 
MyBase.Load



dg.Columns.Add(
New TemplateColumn)



CType(dg.Columns(4), TemplateColumn).ItemTemplate = 
New ItemTemplateSupprimer



If 
Not Page.IsPostBack 
Then


da.Fill(ds)


dg.DataSource = ds


dg.DataBind()



End 
If



End 
Sub


Private Sub RemplitGrille()


da.Fill(ds)


dg.DataSource = ds


dg.DataBind()



End 
Sub


 



Private 
Sub dg_PageIndexChanged(
ByVal source 
As 
Object, 
ByVal e 
As DataGridPageChangedEventArgs) 
Handles dg.PageIndexChanged


dg.CurrentPageIndex = e.NewPageIndex


DataBind()



End 
Sub



Private 
Sub dg_EditCommand(
ByVal source 
As 
Object, 
ByVal e 
As DataGridCommandEventArgs) 
Handles dg.EditCommand


dg.EditItemIndex = e.Item.ItemIndex


RemplitGrille()


 



End 
Sub



Private 
Sub dg_DeleteCommand(
ByVal source 
As 
Object, 
ByVal e 
As DataGridCommandEventArgs) 
Handles dg.DeleteCommand



Dim id 
As 
String = dg.DataKeys(e.Item.ItemIndex)



Dim cmdSupprime 
As 
New Odbc.OdbcCommand


cmdSupprime.CommandText = "delete from personnes where id=" & id


cmdSupprime.Connection = cn


cn.Open()


cmdSupprime.ExecuteNonQuery()


cn.Close()


RemplitGrille()


 



End 
Sub



Private 
Sub dg_CancelCommand(
ByVal source 
As 
Object, 
ByVal e 
As DataGridCommandEventArgs) 
Handles dg.CancelCommand


dg.EditItemIndex = -1


RemplitGrille()



End 
Sub


 


 



Private 
Sub dg_UpdateCommand(
ByVal source 
As 
Object, 
ByVal e 
As DataGridCommandEventArgs) 
Handles dg.UpdateCommand



'recupere les champs



Dim nom 
As 
String = 
CType(e.Item.Cells(0).Controls(0), TextBox).Text



Dim prenom 
As 
String = 
CType(e.Item.Cells(1).Controls(0), TextBox).Text



Dim phone 
As 
String = 
CType(e.Item.Cells(2).Controls(0), TextBox).Text



'recupere la cle primaire



Dim id 
As 
String = dg.DataKeys(e.Item.ItemIndex)



Dim cmdUpdate 
As 
New Odbc.OdbcCommand


cmdUpdate.Connection = cn


cmdUpdate.CommandText = "update personnes set nom='" & nom & "', prenom='" & prenom & "', tel_maison='" & phone & "' where id=" & id


cn.Open()


cmdUpdate.ExecuteNonQuery()


cn.Close()


dg.EditItemIndex = -1


RemplitGrille()


 


 


 



End 
Sub


End Class


Private Sub RemplitGrille()


da.Fill(ds)


dg.DataSource = ds


dg.DataBind()



End 
Sub


 



Private 
Sub dg_PageIndexChanged(
ByVal source 
As 
Object, 
ByVal e 
As DataGridPageChangedEventArgs) 
Handles dg.PageIndexChanged


dg.CurrentPageIndex = e.NewPageIndex


DataBind()



End 
Sub



Private 
Sub dg_EditCommand(
ByVal source 
As 
Object, 
ByVal e 
As DataGridCommandEventArgs) 
Handles dg.EditCommand


dg.EditItemIndex = e.Item.ItemIndex


RemplitGrille()


 



End 
Sub



Private 
Sub dg_DeleteCommand(
ByVal source 
As 
Object, 
ByVal e 
As DataGridCommandEventArgs) 
Handles dg.DeleteCommand



Dim id 
As 
String = dg.DataKeys(e.Item.ItemIndex)



Dim cmdSupprime 
As 
New Odbc.OdbcCommand


cmdSupprime.CommandText = "delete from personnes where id=" & id


cmdSupprime.Connection = cn


cn.Open()


cmdSupprime.ExecuteNonQuery()


cn.Close()


RemplitGrille()


 



End 
Sub



Private 
Sub dg_CancelCommand(
ByVal source 
As 
Object, 
ByVal e 
As DataGridCommandEventArgs) 
Handles dg.CancelCommand


dg.EditItemIndex = -1


RemplitGrille()



End 
Sub


 


 



Private 
Sub dg_UpdateCommand(
ByVal source 
As 
Object, 
ByVal e 
As DataGridCommandEventArgs) 
Handles dg.UpdateCommand



'recupere les champs



Dim nom 
As 
String = 
CType(e.Item.Cells(0).Controls(0), TextBox).Text



Dim prenom 
As 
String = 
CType(e.Item.Cells(1).Controls(0), TextBox).Text



Dim phone 
As 
String = 
CType(e.Item.Cells(2).Controls(0), TextBox).Text



'recupere la cle primaire



Dim id 
As 
String = dg.DataKeys(e.Item.ItemIndex)



Dim cmdUpdate 
As 
New Odbc.OdbcCommand


cmdUpdate.Connection = cn


cmdUpdate.CommandText = "update personnes set nom='" & nom & "', prenom='" & prenom & "', tel_maison='" & phone & "' where id=" & id


cn.Open()


cmdUpdate.ExecuteNonQuery()


cn.Close()


dg.EditItemIndex = -1


RemplitGrille()


 


 


 



End 
Sub

jesusonline · Answer

Pourquoi nous avoir mis tout ton code ? tu croyais vraiment qu'on allait tout lire 



Sinon, ton probl&#232;me est plutot p&#233;nible, le bouton fonctionne plus quand
? apres un postback ? ou la premiere fois c'est encore OK ? et par ne
plus fonctionner t'entend qu'il disparrait ? qu'il n'existe plus ? 

essaye en mettant ton new itemtemplate supprimer dans le remplir grid,
et tu peux aussi mettre un appelle a remplirgrid dans le not
page.ispostback vu que tu fais le meme boulot. 



Je pense pas que ce que je te dit fonctionne, car ce serait illogique, mais esaye 





<hr>
Cyril - MCP ASP.net
Webmaster de : Hoshimi.CodeS-SourceS.fr

hudon77 · Answer

Ouais je trouvais ca exag&#233;r&#233; de mettre tout mon code mais cest parfois utile 

Mon boutton supprimer  disparais une fois que jai cliquer dessus ... pourtant je ne le declare pas dans le if not ispostback... je ny comprend rien.  Non seulement il disparais mias il n'execute meme pas la procedure dg_DeleteCommand.   Si jenleve mon if  dans le page_load et bien la mon boutton fonctionne et ne disparait pas mais cela me fais plusieur probleme dans mes autres proc&#233;dure notamment mon update qui update avec les anciennes valeurs......

Nicolas!

hudon77 · Answer

J'ai test&#233; avec un simple boutton supprimer que j'insere via le property builder et ca fonctionne ... ca supprime et le bouton reste visible....

Confirmation d'une supression

3 réponses

Votre réponse

Discussions similaires