<%@ Page Language="vb" debug="true" validaterequest="false" %>
<%@ import Namespace="System.Data" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then
' need to load this data only once
BindGrid
End If
End Sub
Sub MyDataGrid_Edit(sender As Object, e As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = e.Item.ItemIndex
BindGrid
End Sub
Sub MyDataGrid_Cancel(sender As Object, e As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = -1
BindGrid
End Sub
Sub MyDataGrid_Update(sender As Object, e As DataGridCommandEventArgs)
' For bound columns the edited value is stored in a textbox,
' and the textbox is the 0th element in the column's cell
Dim Head As TextBox = e.Item.Cells(2).Controls(0)
Dim text As TextBox = e.Item.Cells(3).Controls(0)
Dim txtId As String = e.Item.Cells(1).Text
'Dim txtHead As String = Head.Text
'Dim txtText As String = text.Text
' with a database, we'd use an update command. Since we're using an in-memory
' DataTable, we'll delete the old row and replace it with a new one
' remove old entry
Dim sql As String
sql = "UPDATE Content SET ContentHead = '" & head.text & "', ContentText = '" & text.text & "' WHERE ContentID = " & txtId & ";"
changeData(sql)
MyDataGrid.EditItemIndex = -1
BindGrid
End Sub
Sub BindGrid()
MyDataGrid.DataSource = showData("SELECT * FROM Content")
MyDataGrid.DataBind
End Sub
Function showData(sql As String)
Try
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=" & Server.Mappath("test.mdb.ressources") & ";"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = sql
dbCommand.Connection = dbConnection
Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)
Return dataSet
Catch
End Try
End Function
Sub changeData(sql As String)
Try
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=" & Server.Mappath("test.mdb.ressources") & ";"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = sql
dbCommand.Connection = dbConnection
dbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
dbConnection.Open()
dbCommand = New System.Data.OleDb.OleDbCommand(sql, dbConnection)
dbCommand.ExecuteNonQuery()
dbConnection.Close()
Catch
End Try
End Sub
</script>
<html>
<body style="font: 10pt verdana">
<form runat="server">
<h3><font face="Verdana">Using an Edit Command Column in DataGrid</font></h3>
<asp:DataGrid id="MyDataGrid" runat="server"
BorderColor="black"
BorderWidth="1"
CellPadding="3"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
OnEditCommand="MyDataGrid_Edit"
OnCancelCommand="MyDataGrid_Cancel"
OnUpdateCommand="MyDataGrid_Update"
AutoGenerateColumns="false"
>
<Columns>
<asp:EditCommandColumn
EditText="Edit"
CancelText="Cancel"
UpdateText="Update"
ItemStyle-Wrap="false"
HeaderText="Edit Command Column"
HeaderStyle-Wrap="false"
/>
<asp:BoundColumn HeaderText="Id" ReadOnly="true" DataField="ContentID"/>
<asp:BoundColumn HeaderText="Head" DataField="ContentHead"/>
<asp:TemplateColumn HeaderText="Text">
<ItemTemplate>
<asp:Label id=lblHeader runat="server" Text='<%# Container.DataItem("ContentText") %>'>
</asp:Label>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id=tbSomething runat="server" Text='<%# Container.DataItem("ContentText") %>' TextMode="MultiLine">
</asp:TextBox>
</EditItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>
</form>
</body>
</html>
