Public MustOverride Function GetRolesForUser ( _
    username As String _
) As String()

Dim instance As RoleProvider
Dim username As String
Dim returnValue As String()

returnValue = instance.GetRolesForUser(username)

public abstract string[] GetRolesForUser (
    string username
)

public:
virtual array<String^>^ GetRolesForUser (
    String^ username
) abstract

public abstract String[] GetRolesForUser (
    String username
)

public abstract function GetRolesForUser (
    username : String
) : String[]

Public Overrides Function GetRolesForUser(username As String) As String() 
  If username Is Nothing OrElse username = "" Then _
    Throw New ProviderException("User name cannot be empty or null.")

  Dim tmpRoleNames As String = ""

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

  cmd.Parameters.Add("@Username", OdbcType.VarChar, 255).Value = username
  cmd.Parameters.Add("@ApplicationName", OdbcType.VarChar, 255).Value = ApplicationName

  Dim reader As OdbcDataReader = Nothing

  Try
    conn.Open()

    reader = cmd.ExecuteReader()

    Do While reader.Read()
      tmpRoleNames &= reader.GetString(0) & ","
    Loop
  Catch e As OdbcException
    ' Handle exception.
  Finally
    If Not reader Is Nothing Then reader.Close()
    conn.Close()      
  End Try

  If tmpRoleNames.Length > 0 Then
    ' Remove trailing comma.
    tmpRoleNames = tmpRoleNames.Substring(0, tmpRoleNames.Length - 1)
    Return tmpRoleNames.Split(CChar(","))
  End If

  Return New String() {}
End Function

public override string[] GetRolesForUser(string username)
{
  if (username == null || username == "")
    throw new ProviderException("User name cannot be empty or null.");

  string tmpRoleNames = "";

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

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

  OdbcDataReader reader = null;

  try
  {
    conn.Open();

    reader = cmd.ExecuteReader();

    while (reader.Read())
    {
      tmpRoleNames += reader.GetString(0) + ",";
    }
  }
  catch (OdbcException)
  {
    // Handle exception.
  }
  finally
  {
    if (reader != null) { reader.Close(); }
    conn.Close();      
  }

  if (tmpRoleNames.Length > 0)
  {
    // Remove trailing comma.
    tmpRoleNames = tmpRoleNames.Substring(0, tmpRoleNames.Length - 1);
    return tmpRoleNames.Split(',');
  }

  return new string[0];
}