un Order by Personalizado

[AL3XZ4ND3R]

Tengo una [Tabla] con lo siguientes campos:

Id | Fecha | Hora | UserName | ...y mas campos.

Necesito ordenar la tabla de acuerdo al UserName que mas se repita, es decir;

puedo contar los registros de la siguiente manera:

Código SQL [-]
Select UserName, Count(*) as Contador from Tabla
group by UserName
Order by Contador DESC

... este es el orden que quiero que tenga la tabla, pero ¿cómo hago una consulta que me devuelva todos los registros de la tabla en este orden?; ya que necesito hacer uso de los demás campos de la tabla.

ejemplo:

Id|Fecha|Hora|UserName|...etc
1 x x jherrera
2 x x jherrera
3 x x jherrera
4 x x hmendez
5 x x hmendez
6 x x srodriguez

Gracias.

[[Chris]]

Que servidor de base de datos está utilizando?

[*Caro*]

Hola AL3XZ4ND3R, tendría que ser algo así:

Código SQL [-]
Select t1.Id, t1.Fecha, t1.Hora, t1.UserName
From Tabla t1 Left Join (Select UserName, Count(*) as Contador
                         From Tabla
                         Group By UserName) t2
     On (t1.UserName=t2.UserName)
Order by Contador Desc

Saluditos

[roman]

Hola Caro,

En la consulta que pones, ¿no habría que añadir la columna contador en la lista del select exterior?

// Saludos

[*Caro*]

Empezado por roman

En la consulta que pones, ¿no habría que añadir la columna contador en la lista del select exterior?

Hola Roman, Contador solo lo utilizaríamos para hacer el ordenamiento, es por eso que no sería necesario colocarlo en el Select exterior, pero si necesita ver el valor de contador, no habría problema de añadirlo.

Saluditos

[[ElDioni]]

Hola Caro,

porque no recorres el select que te da el orden de los usuarios y vas metiendo el user en una variable string.

Código Delphi [-]
while QueryOrden.eof=false do
  begin
    if ordenados='' then ordenados:=queryorden.fieldbyname('user').asstring
      else ordenados:=ordenados+','+queryorden.fieldbyname('user').asstring;
    QueryOrden.Next;
  end;
QueryOtro.Close;
QueryOtro.SQL.Text:='SELECT * FROM tabla ORDER BY '+ordenados;
QueryOtro.Open;

Saludos

[[Al González]]

Creo que se te pasó responder a la pregunta del compañero Chris (mensajes más arriba).

Empezado por Chris

Que servidor de base de datos está utilizando?

[AL3XZ4ND3R]

Empezado por Chris

Que servidor de base de datos está utilizando?

Disculpas, firebird.