[VB.Net] Comment éditer un DataList ?
Bonjour à tous,
j'au mis en place une requete parametrée ,l'affichage sur fait ds un datalist, avec un bouton pour editer le resultat.
mais en cliquant sur le bouton pour editer rien ne se passe.
ma page ASPX
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
|
<asp:LabelID="Label1"runat="server"Text="Matricule :"></asp:Label>
<asp:TextBoxID="TextBox1"runat="server"></asp:TextBox>
<asp:ButtonID="Button1"runat="server"OnClick="getdata"Text="Button"/>
<asp:DataListID="DataList1"runat="server"BackColor="LightGoldenrodYellow"RepeatColumns="1"BorderColor="Tan"BorderWidth="1px"CellPadding="2"ForeColor="Black">
<ItemTemplate>
<tr><td><asp:LabelID="Label2"runat="server"Text='<%# Container.DataItem("MAT") %>'></asp:Label></div>
<tr><td> <%#Container.DataItem("agent")%>
<tr><td><asp:ButtonCommandName="Edit"Text="Edition"Runat="server"ID="Button2"/></td>
</ItemTemplate>
<EditItemTemplate>
<inputtype="text"id="txtFirst"value='<%#Container.DataItem("agent")%>'runat="server"/>
</EditItemTemplate>
<FooterStyleBackColor="Tan"/>
<SelectedItemStyleBackColor="DarkSlateBlue"ForeColor="GhostWhite"/>
<AlternatingItemStyleBackColor="PaleGoldenrod"/>
<HeaderStyleBackColor="Tan"Font-Bold="True"/>
</asp:DataList>
|
Mon code behind
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
|
Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports system.data
Imports system.data.oledb
Namespace aspx
PublicClass recherche
Inherits Page
ProtectedWithEvents textbox1 As TextBox
ProtectedWithEvents Label1 As Label
ProtectedWithEvents DataList1 As DataList
ProtectedWithEvents button1 As button
ProtectedWithEvents Label2 As Label
ProtectedWithEvents button2 As button
ProtectedWithEvents txtFirst As TextBox
Sub getdata(ByVal obj AsObject, ByVal e As System.EventArgs)
Dim conn AsNew oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\base\eval.mdb")
Dim objcomm As OleDbcommand = New OleDbcommand _
("select * from tblagent_service where mat=@mat", conn)
Dim objreader As oledbdatareader
Dim objparam As oledbparameter
objparam = objcomm.parameters.add("@textbox1", oledbtype.integer)
objparam.direction = ParameterDirection.input
objparam.value = textbox1.text
Try
objcomm.connection.open()
objreader = objcomm.executereader
Catch ex As oledbexception
label1.text = "Ooooopss"
EndTry
DataList1.datasource = objreader
DataList1.databind()
objreader.close()
objcomm.connection.close()
EndSub
Sub DataList1_EditCommand(ByVal source AsObject, ByVal e As DataListCommandEventArgs)
DataList1.EditItemIndex = e.Item.ItemIndex
datalist1.databind()
EndSub
EndClass
EndNamespace
|
a votre avis ou est le pb.
merci