Public MustOverride Function DeleteRole ( _
    roleName As String, _
    throwOnPopulatedRole As Boolean _
) As Boolean

Dim instance As RoleProvider
Dim roleName As String
Dim throwOnPopulatedRole As Boolean
Dim returnValue As Boolean

returnValue = instance.DeleteRole(roleName, throwOnPopulatedRole)

public abstract bool DeleteRole (
    string roleName,
    bool throwOnPopulatedRole
)

public:
virtual bool DeleteRole (
    String^ roleName, 
    bool throwOnPopulatedRole
) abstract

public abstract boolean DeleteRole (
    String roleName, 
    boolean throwOnPopulatedRole
)

public abstract function DeleteRole (
    roleName : String, 
    throwOnPopulatedRole : boolean
) : boolean

Public Overrides Function DeleteRole(rolename As String, throwOnPopulatedRole As Boolean) As Boolean
  If Not RoleExists(rolename) Then            
    Throw New ProviderException("Role does not exist.")
  End If

  If throwOnPopulatedRole AndAlso GetUsersInRole(rolename).Length > 0 Then
    Throw New ProviderException("Cannot delete a populated role.")
  End If

  Dim conn As OdbcConnection = New OdbcConnection(connectionString)
  Dim cmd As OdbcCommand = New OdbcCommand("DELETE FROM [" & rolesTable & "]"  & _
                                           " WHERE Rolename = ? AND ApplicationName = ?", conn)

  cmd.Parameters.Add("@Rolename", OdbcType.VarChar, 255).Value = rolename
  cmd.Parameters.Add("@ApplicationName", OdbcType.VarChar, 255).Value = ApplicationName

  Dim cmd2 As OdbcCommand = New OdbcCommand("DELETE FROM [" & usersInRolesTable & "]"  & _
                                            " WHERE Rolename = ? AND ApplicationName = ?", conn)

  cmd2.Parameters.Add("@Rolename", OdbcType.VarChar, 255).Value = rolename
  cmd2.Parameters.Add("@ApplicationName", OdbcType.VarChar, 255).Value = ApplicationName

  Try
    conn.Open()

    cmd2.ExecuteNonQuery()
    cmd.ExecuteNonQuery()
  Catch e As OdbcException
    ' Handle exception.

    Return False
  Finally
    conn.Close()      
  End Try

  Return True
End Function

public override bool DeleteRole(string rolename, bool throwOnPopulatedRole)
{
  if (!RoleExists(rolename))
  {
    throw new ProviderException("Role does not exist.");
  }

  if (throwOnPopulatedRole && GetUsersInRole(rolename).Length > 0)
  {
    throw new ProviderException("Cannot delete a populated role.");
  }

  OdbcConnection conn = new OdbcConnection(connectionString);
  OdbcCommand cmd = new OdbcCommand("DELETE FROM [" + rolesTable + "]"  +
                                    " WHERE Rolename = ? AND ApplicationName = ?", conn);

  cmd.Parameters.Add("@Rolename", OdbcType.VarChar, 255).Value = rolename;
  cmd.Parameters.Add("@ApplicationName", OdbcType.VarChar, 255).Value = ApplicationName;

  OdbcCommand cmd2 = new OdbcCommand("DELETE FROM [" + usersInRolesTable + "]"  +
                                     " WHERE Rolename = ? AND ApplicationName = ?", conn);

  cmd2.Parameters.Add("@Rolename", OdbcType.VarChar, 255).Value = rolename;
  cmd2.Parameters.Add("@ApplicationName", OdbcType.VarChar, 255).Value = ApplicationName;

  try
  {
    conn.Open();

    cmd2.ExecuteNonQuery();
    cmd.ExecuteNonQuery();
  }
  catch (OdbcException)
  {
    // Handle exception.

    return false;
  }
  finally
  {
    conn.Close();      
  }

  return true;
}