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
Mon code behind
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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>
a votre avis ou est le pb.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
merci
Partager