ASP.NET

<br />
Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting<br />
<br />
        Dim index = Integer.Parse(e.RowIndex)<br />
        Dim dk As DataKey<br />
<br />
        dk = GridView1.DataKeys.Item(index)<br />
<br />
        Dim iOpID = dk.Value<br />
<br />
        ' Check if the User Can be deleted if he can enable the delete button.<br />
        Dim connectionString = sqlSubSystem.ConnectionString<br />
        Dim SqlConnection As SqlConnection<br />
        SqlConnection = New SqlConnection(connectionString)<br />
        Dim Command As SqlCommand<br />
<br />
        Dim queryString As String = "SELECT count(subsystemID) FROM dbo.supportcall where [subsystemID] = " & iOpID.ToString()<br />
        Command = New SqlCommand(queryString, SqlConnection)<br />
<br />
        SqlConnection.Open()<br />
        Dim i<br />
        i = Command.ExecuteScalar()<br />
        SqlConnection.Dispose()<br />
        Command.Dispose()<br />
<br />
        If i > 0 Then<br />
            lblError.Text = "Cannot Delete as Subsystem already in use."<br />
            lblError.Visible = True<br />
            e.Cancel = True<br />
        Else<br />
<br />
        End If<br />
<br />
<br />
    End Sub