I'm experimenting by following instructions at this address:
http://quickstarts.asp.net/QuickStar.../datalist.aspx
on how to use the DataList.
I was trying out the update part and following the coding example almost
line for line, except for changing some names of object to suit my own
naming conventions. When I got to the Sub MyDataList_Update routine,
they left out the update code. Below is the link to their code example.
http://quickstarts.asp.net/QuickStar...lang=VB+Source
And here's the code sample from that page:
================================================== ==
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<html>
<script language="VB" runat="server">
Sub PopulateList()
Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
MyConnection = New
SqlConnection(ConfigurationManager.ConnectionStrin gs("Pubs").ConnectionString)
MyCommand = New SqlDataAdapter("select * from Titles where type
= 'business'", MyConnection)
DS = New DataSet()
MyCommand.Fill(DS, "Titles")
MyDataList.DataSource = DS.Tables("Titles").DefaultView
MyDataList.DataBind()
End Sub
Sub Page_Load(Sender As Object, E As EventArgs)
If Not (Page.IsPostBack)
PopulateList()
End If
End Sub
Sub MyDataList_Edit(Sender As Object, E As DataListCommandEventArgs)
MyDataList.EditItemIndex = CInt(e.Item.ItemIndex)
PopulateList()
End Sub
Sub MyDataList_Update(Sender As Object, E As DataListCommandEventArgs)
' database update left out for simplicity's sake...
Dim EditText As HtmlInputText
EditText = E.Item.FindControl("edit_price")
Message.InnerHtml = "Price Updated: " & EditText.Value
MyDataList.EditItemIndex = -1
PopulateList()
End Sub
Sub MyDataList_Cancel(Sender As Object, E As DataListCommandEventArgs)
MyDataList.EditItemIndex = -1
PopulateList()
End Sub
</script>
<body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
<form runat="server">
<!-- #include virtual="header.inc" -->
<ASP:DataList id="MyDataList" RepeatColumns="2"
OnEditCommand="MyDataList_Edit" OnUpdateCommand="MyDataList_Update"
OnCancelCommand="MyDataList_Cancel" runat="server">
<ItemTemplate>
<table cellpadding=10 style="font: 10pt verdana">
<tr>
<td width=1 bgcolor="BD8672"/>
<td valign="top">
<img alt="book image" align="top" src='<%#
DataBinder.Eval(Container.DataItem, "title_id", "images/{0}.gif") %>' >
</td>
<td valign="top">
<b>Title: </b><%# DataBinder.Eval(Container.DataItem,
"title") %><br>
<b>Category: </b><%# DataBinder.Eval(Container.DataItem,
"type") %><br>
<b>Publisher ID: </b><%#
DataBinder.Eval(Container.DataItem, "pub_id") %><br>
<b>Price: </b><%# DataBinder.Eval(Container.DataItem,
"price", "$ {0}") %>
<p>
<asp:linkbutton CommandName="Edit" runat="server">
<img alt="edit book" border="0"
src="images/edit_book.gif" >
</asp:linkbutton>
</td>
</tr>
</table>
</ItemTemplate>
<EditItemTemplate>
<table cellpadding=10 style="font: 10pt verdana">
<tr>
<td width=1 bgcolor="BD8672"/>
<td valign="top">
<img alt="book image" align="top" src='<%#
DataBinder.Eval(Container.DataItem, "title_id", "images/{0}.gif") %>' >
</td>
<td valign="top">
<b>Title: </b><%# DataBinder.Eval(Container.DataItem,
"title") %><br>
<b>Category: </b><%# DataBinder.Eval(Container.DataItem,
"type") %><br>
<b>Publisher ID: </b><%#
DataBinder.Eval(Container.DataItem, "pub_id") %><br>
<b>Price: </b><input id="edit_price" type="text"
value='<%# DataBinder.Eval(Container.DataItem, "price", "$ {0}") %>'
runat="server"/>
<p>
<asp:linkbutton CommandName="Update" runat="server"><img
alt="update" border="0" src="images/update_book.gif" ></asp:linkbutton>
<asp:linkbutton CommandName="Cancel" runat="server"><img
alt="cancel" border="0" src="images/cancel_book.gif" ></asp:linkbutton>
</td>
</tr>
</table>
</EditItemTemplate>
</ASP:DataList>
<!-- #include virtual="footer.inc" -->
</form>
<div style="font: 10pt verdana;padding:0,15,15,15" id="Message"
runat="server"/>
</body>
</html>
================================================== ==
As you can see, they conveniently commented, "database update left out
for simplicity's sake...". This didn't make it too simple for me as I
now don't know how to update.
Can someone help me out by filling in the update code where they
commented it out? I have no idea.
================================================== ==
Sub MyDataList_Update(Sender As Object, E As DataListCommandEventArgs)
' database update left out for simplicity's sake...
Dim EditText As HtmlInputText
EditText = E.Item.FindControl("edit_price")
Message.InnerHtml = "Price Updated: " & EditText.Value
MyDataList.EditItemIndex = -1
PopulateList()
End Sub
================================================== ==
Thanks,
Jim
