Update sur un GridView qui update pas !

Bonjour

J'ai fait un Grid View (voir code complet en fin de topic)

Comme vous pouvez le voir, j'ai activer le bouton edit pour modifier l'enregistrement. Alors, je dois avois oublier un truc parce que ça enregistre pas les modifications que je fais.
Je relu encore une fois la MSDN et j'ai bien l'impression de faire la même chose que ce qu'ils disent, mais ça marche pas.

Est ce qu'une âme charitable aurait la bonté de me mettre le nez sur ma bourde ?

Merci

Côté HTML

Code:

1
2
3
4
5
 
<asp:SqlDataSource ID="sdsListePAge" runat="server" ConnectionString="<%$ ConnectionStrings:DataDev %>"></asp:SqlDataSource>
<asp:Label ID="lblTitrePage" runat="server" Text="Zone de gestion des pages"></asp:Label><br />
<asp:Label ID="lblTitreGV" runat="server" Text="Liste des pages"></asp:Label><br />
<asp:GridView ID="gvListePage" runat="server" DataSourceID="sdsListePage"></asp:GridView><br /><br />

et côté CodeBehind

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
 
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
		With sdsListePAge
			.DataSourceMode = SqlDataSourceMode.DataSet
			.SelectCommand = "SELECT Id_Pages, ApplicationId, Page_Titre, Page_Lien, Page_Nom, Page_Default, Page_Actif, Page_Restriction, Page_Date_MEL, Page_Date_RET FROM GLOBAL_Pages WHERE ApplicationId = '" & GetApplicationGUID().ToString & "'"
			.UpdateCommand = "UPDATE GLOBAL_Pages SET Page_Titre = @Page_Titre, Page_Lien = @Page_Lien, Page_Nom = @Page_Nom,  Page_Default = @Page_Default, Page_Actif = @Page_Actif, Page_Restriction = @Page_Restriction, Page_Date_MEL = @Page_Date_MEL, Page_Date_RET = @Page_Date_RET WHERE Id_Pages = @Id_Pages"
			.DeleteCommand = "DELETE FROM GLOBAL_Pages WHERE Id_Pages = @Id_Pages"
			.InsertCommand = "INSERT INTO GLOBAL_Pages (ApplicationId, Page_Titre, Page_Lien, Page_Nom, Page_Default, Page_Actif, Page_Restriction, Page_Date_MEL, Page_Date_RET) VALUES (@ApplicationId, @Page_Titre, @Page_Lien, @Page_Nom, @Page_Default, @Page_Actif, @Page_Restriction, @Page_Date_MEL, @Page_Date_RET)"
			.UpdateCommandType = SqlDataSourceCommandType.Text
		End With
 
		With gvListePage
			Dim IdPage, Page_Titre, Page_Lien, Page_Nom, Page_Actif, Page_Restriction, Page_Date_MEL, Page_Date_RET As New BoundField
			With IdPage
				.HeaderText = "Ref"
				.DataField = "Id_Pages"
				.ControlStyle.Width = Unit.Pixel(25)
				.HeaderStyle.Width = Unit.Pixel(25)
			End With
			With Page_Titre
				.HeaderText = "Titre de la Page"
				.DataField = "Page_Titre"
				'.ControlStyle.Width = Unit.Pixel(25)
				'.HeaderStyle.Width = Unit.Pixel(25)
			End With
			With Page_Lien
				.HeaderText = "Lien"
				.DataField = "Page_Lien"
				'.ControlStyle.Width = Unit.Pixel(25)
				'.HeaderStyle.Width = Unit.Pixel(25)
			End With
			With Page_Nom
				.HeaderText = "Nom"
				.DataField = "Page_Nom"
				'.ControlStyle.Width = Unit.Pixel(25)
				'.HeaderStyle.Width = Unit.Pixel(25)
			End With
 
			With Page_Actif
				.HeaderText = "Actif"
				.DataField = "Page_Actif"
				'.ControlStyle.Width = Unit.Pixel(25)
				'.HeaderStyle.Width = Unit.Pixel(25)
			End With
 
			With Page_Restriction
				.HeaderText = "Restri"
				.DataField = "Page_Restriction"
				'.ControlStyle.Width = Unit.Pixel(25)
				'.HeaderStyle.Width = Unit.Pixel(25)
			End With
 
			With Page_Date_MEL
				.HeaderText = "Date MEL"
				.DataField = "Page_Date_MEL"
				'.ControlStyle.Width = Unit.Pixel(25)
				'.HeaderStyle.Width = Unit.Pixel(25)
			End With
 
			With Page_Date_RET
				.HeaderText = "DAte RET"
				.DataField = "Page_Date_RET"
				'.ControlStyle.Width = Unit.Pixel(25)
				'.HeaderStyle.Width = Unit.Pixel(25)
			End With
 
			Dim Defaut As New ImageField
			With Defaut
				.DataImageUrlField = "Page_Default"
				.DataImageUrlFormatString = "~/App_Themes/" & GetParamSite("Theme") & "/{0}.png"
			End With
 
			Dim defaultCMD As New ButtonField
			With defaultCMD
				.HeaderText = "Defaut"
				.Text = "Rendre"
				.ButtonType = ButtonType.Button
				.CommandName = "RendreDefault"
			End With
 
			Dim detailCMD As New ButtonField
			With detailCMD
				.HeaderText = "Détail"
				.Text = "Détail"
				.ButtonType = ButtonType.Button
				.CommandName = "Detail"
			End With
 
			With .Columns
				.Add(IdPage)
				.Add(Page_Titre)
				.Add(Page_Lien)
				.Add(Page_Nom)
				.Add(Page_Actif)
				.Add(Page_Restriction)
				.Add(Page_Date_MEL)
				.Add(Page_Date_RET)
				.Add(Defaut)
				.Add(defaultCMD)
				.Add(detailCMD)
			End With
 
			.AutoGenerateColumns = False
			.AutoGenerateEditButton = True
			.AllowPaging = True
			.PageSize = 20
			.DataBind()
		End With
	End Sub