<%@ Import
Namespace="System.Data" %>
<%@ Import
Namespace="System.Data.SqlClient" %>
<%@ Page Debug=True
%>
<html>
<script
language="VB" runat="server">
Dim strConn as String =
"server=localhost;database=aspalliance;uid=sa;pwd=;"
Sub Page_Load(Src As Object, E As
EventArgs)
If Not (IsPostBack)
BindGrid()
End If
End Sub
Sub BindGrid()
Dim myConnection as New SqlConnection
(strConn)
Dim DS As DataSet
Dim MyCommand As SqlDataAdapter
MyCommand = new
SqlDataAdapter("select * from yourtable", MyConnection)
DS = new DataSet()
MyCommand.Fill(DS, "table1")
MyDataGrid.DataSource=DS.Tables("table1").DefaultView
MyDataGrid.DataBind()
End Sub
Public Sub MyDataGrid_Cancel(sender As
Object, e As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = -1
BindGrid()
End Sub
Sub MyDataGrid_Edit(Sender As Object, E As
DataGridCommandEventArgs)
MyDataGrid.EditItemIndex =
CInt(E.Item.ItemIndex)
BindGrid()
End Sub
Public Sub MyDataGrid_Update(sender As
Object, e As DataGridCommandEventArgs)
Dim oldDestination As String =
CType(e.Item.FindControl("hdndestination"), TextBox).Text
Dim oldSource As String =
CType(e.Item.FindControl("hdnsource"), TextBox).Text
Dim strDestination As String =
CType(e.Item.FindControl("txtdestination"), TextBox).Text
Dim strSource As String =
CType(e.Item.FindControl("txtsource"), TextBox).Text
Dim mySqlConnection as New SqlConnection
(strConn)
Dim mySqlCommand as SqlCommand
Dim strSql as String
strSql = "Exec s_update_forward '"
& oldDestination & "', "
strSql = strSql & "'" &
oldSource & "', "
strSql = strSql & "'" &
strDestination & "', "
strSql = strSql & "'" &
strSource & "'"
mySqlCommand = new SqlCommand(strSql,
mySqlConnection)
Try
Message.text
= "Update failed:"
mySqlConnection.Open()
mySqlCommand.ExecuteReader(CommandBehavior.CloseConnection)
Message.text
= "UPDATED Successfully!"
Catch exc as exception
if Instr(1, exc.tostring,
"duplicate key") > 0 then
Message.text
= Message.text + "Cannot insert duplicate values."
else
Message.text
= Message.text + exc.tostring()
end if
Catch SQLexc as
sqlexception
Message.text
= Message.text + sqlexc.tostring()
Finally
mySqlConnection.Close()
End Try
MyDataGrid.EditItemIndex
= -1
BindGrid()
End Sub
Public Sub MyDataGrid_Delete(sender As
Object, e As DataGridCommandEventArgs)
Message.Text = "TBD"
MyDataGrid.EditItemIndex = -1
BindGrid()
End Sub
</script>
<body
style="font: 10pt arial">
<form
runat="server" ID="editDataGrid">
<ASP:DataGrid id="MyDataGrid"
runat="server"
Width="640"
BackColor="#ffffff"
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
HeaderStyle-BackColor=#ff0000
HeaderStyle-Font-Name="arial"
HeaderStyle-Font-Bold=True
HeaderStyle-Font-Size="11"
HeaderStyle-ForeColor=#ffffff
AlternatingItemStyle-BackColor=#ffffcc
ItemStyle-Font-Name="arial"
ItemStyle-Font-Size="10"
OnCancelCommand="MyDataGrid_Cancel"
OnUpdateCommand="MyDataGrid_Update"
OnDeleteCommand="MyDataGrid_Delete"
OnEditCommand="MyDataGrid_Edit"
AutoGenerateColumns="false">
<Columns>
<asp:editcommandcolumn
edittext="Edit" canceltext="Cancel"
updatetext="Update" itemstyle-wrap="false"
ItemStyle-Width="100px" />
<asp:buttoncolumn
text="Delete" commandname="Delete"
ItemStyle-Width="50px" />
<asp:TemplateColumn
SortExpression="destination" HeaderText="Destination">
<ItemTemplate>
<asp:Label
ID="lblDestination" runat="server" Text='<%#
DataBinder.Eval(Container.DataItem, "destination") %>' />
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox
runat="server" id="hdndestination" Visible=False Text='<%#
DataBinder.Eval(Container.DataItem, "destination") %>'/>
<asp:TextBox
runat="server" id="txtdestination" Text='<%#
DataBinder.Eval(Container.DataItem, "destination") %>'/>
<asp:RequiredFieldValidator
id="reqval_destination"
ControlToValidate="txtdestination"
Display="Dynamic"
Font-Name="arial"
Font-Size="12"
runat=server>
*
</asp:RequiredFieldValidator>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn
SortExpression="source" HeaderText="Source">
<ItemTemplate>
<asp:Label
ID="lblSource" runat="server" Text='<%#
DataBinder.Eval(Container.DataItem, "source") %>' />
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox runat="server"
id="hdnsource" Visible=False Text='<%#
DataBinder.Eval(Container.DataItem, "source") %>'/>
<asp:TextBox runat="server"
id="txtsource" Text='<%# DataBinder.Eval(Container.DataItem,
"source") %>'/>
<asp:RequiredFieldValidator
id="reqval_source"
ControlToValidate="txtsource"
Display="Dynamic"
Font-Name="arial"
Font-Size="12"
runat=server>
*
</asp:RequiredFieldValidator>
</EditItemTemplate>
</asp:TemplateColumn>
</Columns>
</ASP:DataGrid>
</form>
</body>
</html>
Send your comments to das@aspalliance.com
Back to Article list