This is a migrated thread and some comments may be shown as answers.

stop duplicate row operation before implicit rebind

1 Answer 78 Views

Grid

This is a migrated thread and some comments may be shown as answers.

webboy asked on 24 Feb 2009, 11:51 PM

Is there anyway to stop a user from clicking on the same linkbutton 2,3,4 times that executes a very long SQL operation?

Basically, the SQL operation behind the linkbutton is taking some time to complete and users will click this button more than once before the SQL operation completes. It is a DELETE Operation and does an implicit ReBind. But before the ReBind occurs to remove the row from the grid the user may have clicked it serveral times already....causing an error.

The desired behavior would be to not allow the RadGrid.DeleteCommandName to fire if this operation was already in progress.

Private

Sub RadGrid1_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemDataBound

TypeOf e.Item Is GridDataItem Then

Dim dataItem As GridDataItem = CType(e.Item, GridDataItem)

' create custom delete prompt

Dim classnametext As String = dataItem("NAME").Text

Dim button As LinkButton = CType(dataItem("column").Controls(0), LinkButton)

button.Attributes(

"onclick") = "return confirm('Are you sure you want to delete class: " & classnametext & " ?')"

End If

End Sub

Private Sub RadGrid1_ItemCommand(ByVal source As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.ItemCommand

' supress columns in Edit-Mode for the following STATUS' OPEN-CLOSED

If ddlClassStatus.SelectedValue = "Open" Or ddlClassStatus.SelectedValue = "Closed" Then

Dim firstColumn As GridEditCommandColumn = CType(e.Item.OwnerTableView.GetColumnSafe("EditCommandColumn"), GridEditCommandColumn)

If (e.CommandName = RadGrid.EditCommandName) Then

' create custom EditRecord link

Dim dataItem As GridDataItem = CType(e.Item, GridDataItem)

Dim linkButton As LinkButton = New LinkButton

' supress columns in Edit-Mode for the following STATUS' OPEN-CLOSED

If ddlClassStatus.SelectedValue = "Open" Or ddlClassStatus.SelectedValue = "Closed" Then

dataItem(

"EditCommandColumn").Text = "<br>"

End If

' delete class and all associated data

If (e.CommandName = RadGrid.DeleteCommandName) Then

' determine class status

Dim _classid As String = e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("CLASSID").ToString()

Dim connectionString As String = ConfigurationManager.ConnectionStrings("HRregistrationConnectionString").ToString

Dim SqlConnection As New SqlConnection(connectionString)

Dim SqlCommand As New SqlCommand

Dim SqlStatement As New StringBuilder

Dim SqlLookupStatement1 As String

Dim SqlLookupStatement2 As String

Dim SqlLookupStatement3 As String

Dim SqlLookupStatement4 As String

Dim SqlLookupStatement5 As String

Dim SqlLookupStatement6 As String

Dim SqlLookupStatement7 As String

Dim SqlLookupStatement8 As String

Dim SqlLookupStatement9 As String

Dim RecordsAffected As Integer

'Open the SqlConnection

SqlConnection.Open()

' put this in a transaction

Using txn As SqlTransaction = SqlConnection.BeginTransaction

Try

' lookup the CLASSSTATUS.STATUSTYPEID

Dim _statustypeid As String

SqlLookupStatement1 =

"SELECT STATUSTYPEID FROM DBO.CLASSSTATUS WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement1

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_statustypeid = System.Convert.ToString(SqlCommand.ExecuteScalar)

' lookup the CLASSES.NAME

Dim _name As String

SqlLookupStatement2 =

"SELECT NAME FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement2

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_name = System.Convert.ToString(SqlCommand.ExecuteScalar)

' lookup the STATUSTYPE.STATUSCODE

Dim _statuscode As String

SqlLookupStatement3 =

"SELECT STATUSCODE FROM DBO.STATUSTYPE WHERE STATUSTYPEID = '" + _statustypeid + "'"

SqlCommand.CommandText = SqlLookupStatement3

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_statuscode = System.Convert.ToString(SqlCommand.ExecuteScalar)

If _statuscode = "Open" Then ' class [Open] being deleted -- notify enrolled users and Admins of cancellation

'lookup the CLASSES.DATE

Dim _date As String

SqlLookupStatement7 =

"SELECT DATE FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement7

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_date = System.Convert.ToString(SqlCommand.ExecuteScalar)

'lookup the CLASSES.STARTIME

Dim _starttime As String

SqlLookupStatement4 =

"SELECT STARTTIME FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement4

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_starttime = System.Convert.ToString(SqlCommand.ExecuteScalar)

'lookup the CLASSES.ENDTIME

Dim _endtime As String

SqlLookupStatement5 =

"SELECT ENDTIME FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement5

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_endtime = System.Convert.ToString(SqlCommand.ExecuteScalar)

'lookup the CLASSES.LOCATION

Dim _location As String

SqlLookupStatement6 =

"SELECT LOCATION FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement6

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_location = System.Convert.ToString(SqlCommand.ExecuteScalar)

'lookup the CLASSES.DESCRIPTION

Dim _description As String

SqlLookupStatement8 =

"SELECT DESCRIPTION FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement8

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_description = System.Convert.ToString(SqlCommand.ExecuteScalar)

' user list

SqlLookupStatement3 =

"SELECT REGISTEREDUSER.NAME, REGISTEREDUSER.EMAILADDRESS FROM DBO.REGISTEREDUSER INNER JOIN REGISTRATIONSTATUS ON REGISTEREDUSER.REGISTEREDUSERID = REGISTRATIONSTATUS.REGISTEREDUSERID INNER JOIN STATUSTYPE ON REGISTRATIONSTATUS.STATUSTYPEID = STATUSTYPE.STATUSTYPEID WHERE (REGISTRATIONSTATUS.CLASSID ='" + _classid + "' AND STATUSTYPE.STATUSCODE ='Enrolled')"

SqlCommand.CommandText = SqlLookupStatement3

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

' prepare data adapters/rows

Dim da_email_user As New SqlDataAdapter(SqlCommand)

Dim ds_email_user As New DataSet

Dim row_email_user As DataRow

Dim _emailaddress As String

Dim _username As String

Dim _userlist As New StringBuilder

da_email_user.Fill(ds_email_user)

For Each row_email_user In ds_email_user.Tables(0).Rows

_emailaddress = row_email_user(

"EMAILADDRESS")

_username = row_email_user(

"NAME")

' send Cancellation e-mail

SendCancellationEmail(_emailaddress, _name, _username, _date, _starttime, _endtime, _location, _description)

' create affected user list

_userlist.AppendLine(_username)

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

' wait list

SqlLookupStatement9 =

SqlCommand.CommandText = SqlLookupStatement9

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

' prepare data adapters/rows

Dim da_wait_user As New SqlDataAdapter(SqlCommand)

Dim ds_wait_user As New DataSet

Dim row_wait_user As DataRow

Dim _waitusername As String

Dim _waituserlist As New StringBuilder

da_wait_user.Fill(ds_wait_user)

For Each row_wait_user In ds_wait_user.Tables(0).Rows

_waitusername = row_wait_user(

"NAME")

' create wait list

_waituserlist.AppendLine(_waitusername)

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.APPLICATIONLINKS WHERE CLASSID = '" + _classid + "'")

Dim deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.REMINDERS WHERE CLASSID = '" + _classid + "'")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.DISCLAIMER WHERE CLASSID = '" + _classid + "'")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.REGISTRATIONSTATUS WHERE CLASSID = '" + _classid + "'")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.CLASSSTATUS WHERE CLASSID = '" + _classid + "'")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' determine if the user has no other classes associated; then delete their profile

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.REGISTEREDUSER WHERE REGISTEREDUSERID NOT IN(SELECT REGISTEREDUSERID FROM DBO.REGISTRATIONSTATUS WHERE REGISTEREDUSERID = REGISTEREDUSER.REGISTEREDUSERID)")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' commit transaction

txn.Commit()

SqlLookupStatement1 =

"SELECT AD_EMAILADDRESS FROM DBO.APPUSER"

SqlCommand.CommandText = SqlLookupStatement1

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

' prepare data adapters/rows

Dim da_email_admin As New SqlDataAdapter(SqlCommand)

Dim ds_email_admin As New DataSet

Dim row_email_admin As DataRow

da_email_admin.Fill(ds_email_admin)

For Each row_email_admin In ds_email_admin.Tables(0).Rows

_emailaddress = row_email_admin(

"AD_EMAILADDRESS")

' send Administrative e-mail

SendAdminEmail(_emailaddress, _userlist, _waituserlist, _name, _date, _starttime, _endtime, _location, _description, _statuscode)

Else ' class [Pending/Closed] being deleted -- no notifications needed

'lookup the CLASSES.DATE

Dim _date As String

SqlLookupStatement7 =

"SELECT DATE FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement7

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_date = System.Convert.ToString(SqlCommand.ExecuteScalar)

'lookup the CLASSES.STARTIME

Dim _starttime As String

SqlLookupStatement4 =

"SELECT STARTTIME FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement4

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_starttime = System.Convert.ToString(SqlCommand.ExecuteScalar)

'lookup the CLASSES.ENDTIME

Dim _endtime As String

SqlLookupStatement5 =

"SELECT ENDTIME FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement5

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_endtime = System.Convert.ToString(SqlCommand.ExecuteScalar)

'lookup the CLASSES.LOCATION

Dim _location As String

SqlLookupStatement6 =

"SELECT LOCATION FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement6

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_location = System.Convert.ToString(SqlCommand.ExecuteScalar)

'lookup the CLASSES.DESCRIPTION

Dim _description As String

SqlLookupStatement8 =

"SELECT DESCRIPTION FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'"

SqlCommand.CommandText = SqlLookupStatement8

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

_description = System.Convert.ToString(SqlCommand.ExecuteScalar)

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

' user list

SqlLookupStatement3 =

SqlCommand.CommandText = SqlLookupStatement3

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

' prepare data adapters/rows

Dim da_email_user As New SqlDataAdapter(SqlCommand)

Dim ds_email_user As New DataSet

Dim row_email_user As DataRow

Dim _emailaddress As String

Dim _username As String

Dim _userlist As New StringBuilder

da_email_user.Fill(ds_email_user)

For Each row_email_user In ds_email_user.Tables(0).Rows

_username = row_email_user(

"NAME")

' create affected user list

_userlist.AppendLine(_username)

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

' wait list

SqlLookupStatement9 =

SqlCommand.CommandText = SqlLookupStatement9

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

' prepare data adapters/rows

Dim da_wait_user As New SqlDataAdapter(SqlCommand)

Dim ds_wait_user As New DataSet

Dim row_wait_user As DataRow

Dim _waitusername As String

Dim _waituserlist As New StringBuilder

da_wait_user.Fill(ds_wait_user)

For Each row_wait_user In ds_wait_user.Tables(0).Rows

_waitusername = row_wait_user(

"NAME")

' create wait list

_waituserlist.AppendLine(_waitusername)

SqlLookupStatement1 =

"SELECT AD_EMAILADDRESS FROM DBO.APPUSER"

SqlCommand.CommandText = SqlLookupStatement1

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

' prepare data adapters/rows

Dim da_email_admin As New SqlDataAdapter(SqlCommand)

Dim ds_email_admin As New DataSet

Dim row_email_admin As DataRow

da_email_admin.Fill(ds_email_admin)

For Each row_email_admin In ds_email_admin.Tables(0).Rows

_emailaddress = row_email_admin(

"AD_EMAILADDRESS")

' send Administrative e-mail

SendAdminEmail(_emailaddress, _userlist, _waituserlist, _name, _date, _starttime, _endtime, _location, _description, _statuscode)

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.APPLICATIONLINKS WHERE CLASSID = '" + _classid + "'")

Dim deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.REMINDERS WHERE CLASSID = '" + _classid + "'")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.DISCLAIMER WHERE CLASSID = '" + _classid + "'")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.REGISTRATIONSTATUS WHERE CLASSID = '" + _classid + "'")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.CLASSSTATUS WHERE CLASSID = '" + _classid + "'")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.CLASSES WHERE CLASSID = '" + _classid + "'")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' determine if the user has no other classes associated; then delete their profile

' reset sql statement

SqlStatement.Remove(0, SqlStatement.Length)

RecordsAffected = 0

SqlStatement.Append(

"DELETE FROM DBO.REGISTEREDUSER WHERE REGISTEREDUSERID NOT IN(SELECT REGISTEREDUSERID FROM DBO.REGISTRATIONSTATUS WHERE REGISTEREDUSERID = REGISTEREDUSER.REGISTEREDUSERID)")

deleteQuery = SqlStatement.ToString

SqlCommand.CommandText = deleteQuery

SqlCommand.Connection = SqlConnection

SqlCommand.Transaction = txn

RecordsAffected = SqlCommand.ExecuteNonQuery()

' commit transaction

txn.Commit()

End If

Catch ex As Exception

' rollback transaction

txn.Rollback()

RadGrid1.Controls.Add(

New LiteralControl("Unable to Delete. Reason: " + ex.Message))

e.Canceled =

True

End Try

End Using

' end transaction

' close the SqlConnection

SqlConnection.Close()

End If

End Sub

1 Answer, 1 is accepted

answered on 26 Feb 2009, 08:08 AM

Hi,

A suggestion would be to use the OnAjaxRequest event of the RadAjaxManager (that you can use to ajaxify the grid) to temporarily disable the Delete button that triggers the ajax request as shown below:

    
            <script type="text/javascript"> 
        
            function requestStart(sender, eventArgs) 
        
            { 
        
              eventArgs._eventTargetElement.disabled=true; 
        
            } 
        
            </script>

Thanks,
Princy