Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
Course Of The Month
8 days, 5 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Display Popup / MessageBox / Alert AFTER GridView Add / Edit / Delete in VB.Net
Posted on 2012-12-29
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>
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
3
2
2- +1
8 Comments
Hi,
You can use PageStartupScript
You can use PageStartupScript
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
<script type="text/javascript"> // initialize dialog box
function CallCondition() {
alert("Hi");
}
</script>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" Text="Button" onclick="Button1_Click" />
</div>
</form>
</body>
</html>
protected void Button1_Click(object sender, EventArgs e)
{
if (TextBox1.Text == "")
Page.ClientScript.RegisterClientScriptBlock(Page.GetType(), "scriptKey", "CallCondition();",true);
}
and If you are using AJAX then use ScriptManage function instead of Page
ScriptManager.RegisterStar
Thanks
ScriptManager.RegisterStar
Thanks
An easy way is to push the javascript to generate the alert into the head area dynamically, so it disappears on each subsequent postback when its no longer needed, like this:
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
page.header.controls.add(new literalcontrol("<script type=""text/javascript"">window.alert('Your record was deleted!');</script>"))
End Sub
Active 5 days ago
At the end of your AddItem, EditItem, DeleteItem functions, add following code
Page.ClientScript.Register
Change the 3rd argument depending on function your put this line in.
Page.ClientScript.Register
Change the 3rd argument depending on function your put this line in.
Guys,
I tried a couple of the solutions, and here are the results:
1. IJZ's solution did not produce an error, but did not produce the popup after the Datagrid item was deleted.
I am using Masterpages, perhaps this is causing the problem and I will investigate further.
2. Both Rouchie and Codecruiser's solutions resulted in the page not being displayed, and the following error message:
"Server Error in '/' Application.
Parser Error
Description: An error occurred during the parsing of a resource required to service this request. Please review the following specific parse error details and modify your source file appropriately.
Parser Error Message: Only Content controls are allowed directly in a content page that contains Content controls.
Source Error:
[No relevant source lines]"
It looks like this is also a Masterpage problem.
Any suggestions ?
Thanks, Peter
I tried a couple of the solutions, and here are the results:
1. IJZ's solution did not produce an error, but did not produce the popup after the Datagrid item was deleted.
I am using Masterpages, perhaps this is causing the problem and I will investigate further.
2. Both Rouchie and Codecruiser's solutions resulted in the page not being displayed, and the following error message:
"Server Error in '/' Application.
Parser Error
Description: An error occurred during the parsing of a resource required to service this request. Please review the following specific parse error details and modify your source file appropriately.
Parser Error Message: Only Content controls are allowed directly in a content page that contains Content controls.
Source Error:
[No relevant source lines]"
It looks like this is also a Masterpage problem.
Any suggestions ?
Thanks, Peter
Active 5 days ago
And does this work?
Page.ClientScript.Register
Page.ClientScript.Register
Wait,
Hold on a second - the new code does not cause the parser error.
I had commented out the code from Rouchie ... and the commented out code cause the error because he had the word "</script>" in his code preceeded by a single apostrophe. When I commented it out, the page thought the "</script>" was the end of the code....
Sorry ....
Am testing the solutions again
Hold on a second - the new code does not cause the parser error.
I had commented out the code from Rouchie ... and the commented out code cause the error because he had the word "</script>" in his code preceeded by a single apostrophe. When I commented it out, the page thought the "</script>" was the end of the code....
Sorry ....
Am testing the solutions again
Featured Post
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Today is the age of broadband. More and more people are going this route determined to experience the web and it’s multitude of services as quickly and painlessly as possible. Coupled with the move to broadband, people are experiencing the web via …
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…
There's a multitude of different network monitoring solutions out there, and you're probably wondering what makes NetCrunch so special.
It's completely agentless, but does let you create an agent, if you desire.
It offers powerful scalability …
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month8 days, 5 hours left to enroll
617 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.