troubleshooting Question
Display Popup / MessageBox / Alert AFTER GridView Add / Edit / Delete in VB.Net
pbissegger
asked on
asked on
I would like to display a pop-up / alert / confirmation box AFTER a user performs an add / edit / delete on a GridView in VB.Net, such as:
1. Your new event has been added successfully
2. Your event has been modified successfully
3. Your event has been deleted successfully
I already have a "Are you sure you want to Delete this Item" which is displayed before a deletion takes place, but I need to have something AFTER the code is processed.
So I need the server to trigger something on the client side, when a Subroutine completes.
How can I do this ?
My code is below.
Thanks, Peter
1. Your new event has been added successfully
2. Your event has been modified successfully
3. Your event has been deleted successfully
I already have a "Are you sure you want to Delete this Item" which is displayed before a deletion takes place, but I need to have something AFTER the code is processed.
So I need the server to trigger something on the client side, when a Subroutine completes.
How can I do this ?
My code is below.
Thanks, Peter
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
If Not Page.IsPostBack Then
MultiView1.ActiveViewIndex = 0
End If
' Bind the datagrid
BindData
End Sub
Sub BindData()
' Prepare the datagrid
Editgrid.Columns(0).Visible = "false"
EditGrid.Columns(1).Visible = "false"
EditGrid.Columns(2).HeaderText = Ttext(26)
EditGrid.Columns(3).HeaderText = Ttext(27)
EditGrid.Columns(4).HeaderText = Ttext(28)
EditGrid.Columns(5).HeaderText = Ttext(29)
EditGrid.Columns(6).HeaderText = Ttext(30)
EditGrid.Columns(7).HeaderText = Ttext(13)
' Get data to fill datagrid
Dim MySQL5 As String = "SELECT g.gamenum, l.shortname as Gamelocation, g.gamedatetime as Gamedates, g.gametype, lgh.groupname + ' : Practice', ct.lastname + ', ' + ct.firstname as Snackresp, ct1.lastname + ', ' + ct1.firstname as Refresp FROM games g, contacts ct, contacts ct1, locations l, leagues lgh, leagues lga, leaguesetup ls WHERE g.gamelocnum = l.locnum and g.snacknum = ct.usernum and g.refereenum = ct1.usernum and lgh.groupnum = g.hometeamnum and lga.groupnum = g.awayteamnum and g.leaguenum = " & Session("leaguenum") & " order by g.gamedatetime desc"
Dim objCmd5 As New SqlDataAdapter(MySQL5, MyConn)
objCmd5.Fill(ds, "gametable")
EditGrid.DataSource = ds.Tables("gametable").DefaultView
EditGrid.DataBind()
End Sub
Protected Sub AddItem(ByVal sender As Object, ByVal e As System.EventArgs)
Gamedates = picker2.Text
Gametimes = Gametime.Text
cmd.Connection = MyConn
cmd.Connection.Open()
' Insert the new item
cmd.CommandText = "Insert into games (Leaguenum, Gametype, Gamelocnum, Gamedatetime, Hometeamnum, Awayteamnum, needref, refereenum, needsnack, snacknum, Gamestatus) values (" & Session("Leaguenum") & ", '" & Inputtype & "', " & Rinklocation.SelectedItem.Value & ",Convert(datetime,'" & gamedates & " " & Gametimes & "'), " & Hometeam.SelectedItem.Value & ", " & Awayteam.SelectedItem.Value & ", '" & needrefs.SelectedItem.Text & "', " & Refentry & ", '" & needsnacks.SelectedItem.Text & "'," & Snackentry & ", 'Not played')"
cmd.ExecuteNonQuery()
cmd.Connection.Close()
BindData
End Sub
Protected Sub EditItem(ByVal sender As Object, ByVal e As System.EventArgs)
cmd.Connection = MyConn
cmd.Connection.Open()
Gamenum = Request.QueryString("gnum")
gamedates = picker2.Text
Gametimes = Gametime.text
cmd.CommandText = "Update games set Gametype = '" & Gametype.SelectedItem.Text & "', Gamelocnum = " & Rinklocation.SelectedItem.Value & ", Gamedatetime = Convert(datetime,'" & gamedates & " " & Gametimes & "'), Gamestatus = 'Not played', Eventtitle = '', Eventdesc = '', Hometeamnum = " & Hometeam.SelectedItem.Value & ", Awayteamnum = " & Awayteam.SelectedItem.Value & ", needref = '" & needrefs.SelectedItem.Text & "', refereenum = " & Refentry & ", needsnack = '" & needsnacks.SelectedItem.Text & "', snacknum = " & Snackentry & " where Gamenum = " & Session("myitemnum")
cmd.ExecuteNonQuery()
cmd.Connection.Close()
BindData
End Sub
Protected Sub DeleteItem(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs)
' Get the gamenum
Dim selectedRecord As DataKey = EditGrid.DataKeys(EditGrid.SelectedIndex)
Gamenum = selectedRecord.Value
cmd.Connection = MyConn
cmd.Connection.Open()
' Delete game
cmd.CommandText = "Update games set gamestatus = 'disabled' WHERE gamenum = " & Gamenum
cmd.ExecuteNonQuery()
cmd.Connection.Close()
BindData
End Sub
Protected Sub LoadItem(ByVal sender As Object, ByVal e As EventArgs)
Dim selectedRecord As DataKey = EditGrid.DataKeys(EditGrid.SelectedIndex)
MyItemnum = selectedRecord.Value
Session("myitemnum") = MyItemnum
cmd.Connection = MyConn
cmd.Connection.Open()
cmd.CommandText = "Select Gametype, Gamelocnum, right(Convert(varchar,gamedatetime,0),7) as MyTime, Convert(varchar,gamedatetime,101)as DTT, Hometeamnum, Awayteamnum, needref, Refereenum, needsnack, snacknum from games where Gamenum = " & Session("myitemnum")
MyReader = cmd.ExecuteReader()
While MyReader.Read()
Agametype = MyReader("Gametype").ToString()
TGamelocnum = MyReader.GetInt32(1)
Gametime.Text = MyReader("MyTime").ToString()
picker2.Text = MyReader("DTT").ToString()
THometeamnum = MyReader("Hometeamnum")
TAwayteamnum = MyReader("Awayteamnum")
Tneedref = MyReader("needref")
Tneedsnack = MyReader("needsnack")
Tsnacknum = MyReader("snacknum")
End While
MyReader.Close()
cmd.Connection.Close()
' Fill the datagrid
BindData
End Sub
</script>
<asp:Content ID="Content3" ContentPlaceHolderID="Mycontent" runat="Server">
<table>
<tr>
<td class="WizardTitle">
<asp:Label ID="Pagetitle" runat="server"></asp:Label>
</td>
</tr>
<tr>
<td class="WizardInstructions">
<asp:Label ID="Helporerror" runat="server"></asp:Label></td>
</tr>
<tr>
<td class="WizardContent">
<div align="center">
<table>
<tr>
<td style="padding: 5 0 20 0">
<asp:MultiView ID="MultiView1" runat="server" ActiveViewIndex="0">
<asp:View ID="Instructions" runat="server">
<h5>
<asp:Label ID="GeneralInstructions" runat="server" />
</h5>
</asp:View>
<asp:View ID="Managepages" runat="server">
<asp:Panel ID="ShowForm" runat="server">
<table class="InsideBox">
<tr>
<td colspan="3" class="InsideboxSubTitle">
<asp:Label ID="eventTitle" runat="server" />
</td>
</tr>
<tr>
<td class="aptfont2" style="padding-top: 12px; width:200px">
<asp:Label ID="eventtypeLabel" runat="server" /><br />
<asp:DropDownList ID="Gametype" OnSelectedIndexChanged="CheckEvent" AutoPostBack="true" Width="110" runat="server" />
</td>
<td class="aptfont2" style="padding-top: 12px; width:250px">
<asp:Label ID="gamedateLabel" runat="server" /><br />
<asp:TextBox ID="picker2" runat="server" Width="150" /> <asp:Image ID="Image1" runat="server"
ImageUrl="~/images/calendar1.gif" ImageAlign="Middle" />
<ajaxToolkit:CalendarExtender runat="server" TargetControlID="picker2"
PopupButtonID="Image1" />
<asp:RequiredFieldValidator ID="CompareValidator4" runat="server" ControlToValidate="picker2"
Display="None" ErrorMessage="You must enter a date" />
<ajaxToolkit:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" TargetControlID="CompareValidator4" />
</td>
<td class="aptfont2" style="padding-top: 12px; width:250px">
<asp:Label ID="gametimeLabel" runat="server" Text="Game time"/><br />
<asp:TextBox ID="Gametime" runat="server" Width="150" />
<ajaxToolkit:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="Gametime"
Mask="99:99" MessageValidatorTip="true" OnFocusCssClass="MaskedEditFocus" OnInvalidCssClass="MaskedEditError"
MaskType="Time" AcceptAMPM="true" ErrorTooltipEnabled="False" />
</td>
</tr>
<tr>
<td class="aptfont2">
<asp:Label ID="locationLabel" runat="server" /><br />
<asp:DropDownList ID="Rinklocation" Width="150" runat="server" DataTextField="Shortname"
DataValueField="Locnum">
</asp:DropDownList>
</td>
<td class="aptfont2">
<asp:Label ID="hometeamLabel" runat="server" /><br />
<asp:DropDownList ID="Hometeam" Width="200" runat="server" DataTextField="Hometeamname"
DataValueField="Hometeamnum" OnSelectedIndexChanged="DisplaySnacks" AutoPostBack="true">
</asp:DropDownList>
</td>
<td class="aptfont2">
<asp:Label ID="awayteamLabel" runat="server" /><br />
<asp:DropDownList ID="Awayteam" Width="200" runat="server" DataTextField="Awayteamname"
DataValueField="Awayteamnum" OnSelectedIndexChanged="DisplaySnacks" AutoPostBack="true">
</asp:DropDownList>
</td>
</tr>
<tr>
<td colspan="3" class="InsideboxSubTitle">
<asp:Label ID="refTitle" runat="server" />
</td>
</tr>
<tr>
<td class="aptfont2" style="padding-top: 12px">
<asp:Label ID="refreqdLabel" runat="server" /><br />
<asp:DropDownList ID="needrefs" Width="110" runat="server" OnSelectedIndexChanged="DisplayRef" AutoPostBack="true" >
</asp:DropDownList>
</td>
<td class="aptfont2" style="padding-top: 12px">
<asp:Label ID="gamerefLabel" runat="server" /><br />
<asp:DropDownList ID="Gameref" Width="200" runat="server" DataTextField="Fullname"
DataValueField="Usernum">
</asp:DropDownList>
</td>
<td>
</td>
</tr>
<tr>
<td colspan="3" class="InsideboxSubTitle">
<asp:Label ID="snacksTitle" runat="server" />
</td>
</tr>
<tr>
<td colspan="3" style="text-align:left; font-size: 10pt">
<asp:Label ID="informLabel" runat="server" />
</td>
</tr>
<tr>
<td class="aptfont2" style="padding-top: 12px" >
<asp:Label ID="snacksreqdLabel" runat="server" /><br />
<asp:DropDownList ID="needSnacks" Width="110" runat="server" OnSelectedIndexChanged="DisplaySnacks" AutoPostBack="true" />
</td>
<td class="aptfont2" style="padding-top: 12px">
<asp:Label ID="snackLabel" runat="server" /><br />
<asp:DropDownList ID="Snacks" Width="200" runat="server" DataTextField="Players"
DataValueField="Usernum">
</asp:DropDownList>
</td>
<td>
</td>
</tr>
<tr>
<td colspan="4" align="right">
<asp:Button ID="insertButton" OnClick="AddItem" runat="server" />
<asp:Button ID="updateButton" OnClick="EditItem" runat="server" />
<asp:Button ID="canceladdButton" CausesValidation="False" OnClick="CancelAdd" runat="server" />
<asp:Button ID="canceleditButton" OnClick="CancelEdit" runat="server" />
</td>
</tr>
</table>
</asp:Panel>
<table>
<tr>
<td class="AdminTitle">
<asp:Label ID="schedulegridLabel" runat="server" /></td>
</tr>
<tr>
<td>
<div style="width: 725; height: 300; overflow: auto" align="center">
<asp:GridView ID="EditGrid" runat="server" Width="700" CellPadding="3"
DataKeyNames="gamenum" RowStyle-Font-Size="10pt" HeaderStyle-Font-Size="10pt"
HeaderStyle-ForeColor="white" HeaderStyle-BackColor="SteelBlue" AutoGenerateColumns="false"
OnSelectedIndexChanged="LoadItem" allowPaging="true" PageSize="30" OnRowDeleting="DeleteItem">
<Columns>
<asp:CommandField ItemStyle-Width="70" ShowSelectButton="true" ButtonType="Button"
ItemStyle-HorizontalAlign="Center" ControlStyle-Font-Size="9pt" ControlStyle-BackColor="steelblue"
ControlStyle-ForeColor="white" />
<asp:TemplateField ShowHeader="False" ItemStyle-Width="60" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="False"
OnClientClick='return confirm("Are you sure you want to delete this entry?");'
Text="Delete" Commandname="Delete" CommandArgument='<%# Eval("gamenum") %>' />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Gametype" ItemStyle-Font-Size="11px" ItemStyle-Width="75" ItemStyle-HorizontalAlign="Center" />
<asp:TemplateField ItemStyle-Font-Size="11px" ItemStyle-Width="150" ItemStyle-HorizontalAlign="Center" >
<ItemTemplate>
<asp:Label ID="myDates" runat="server" Text='<%# MyTools.Makedate(Eval("Gamedates"),"shorttime") %>' />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Gamelocation" ItemStyle-Font-Size="11px" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="Teams" ItemStyle-Font-Size="11px" ItemStyle-Width="150" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="Snackresp" ItemStyle-Font-Size="11px" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="Refresp" ItemStyle-Font-Size="11px" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Center" />
</Columns>
</asp:GridView>
</div>
</td>
</tr>
</table>
</asp:View>
</asp:MultiView>
</td>
</tr>
</table>
</div>
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 3 Answers and 8 Comments.
Learn from the best
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 3 Answers and 8 Comments.
Try for 7 days”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.