Ordenar un query por parametros

[jzginez]

Hola amigos espero me puedan decir si sí se puede hacer lo siguiente o estoy fumando algo raro.

tengo el query siguiente.

Select Matricula, Nombre, Grupo, Reinscrip
from alumnos
Where Reinscrip = 'S'
Order by Matricula

Con lo cual obtengo un listado general de alumnos inscritos y el grupo al que pertenecen, pero para otro listado necesito exactamente el mismo query pero ordenado por grupo y matricula:

Select Matricula, Nombre, Grupo, Reinscrip
from alumnos
Where Reinscrip = 'S'
Order by Grupo, Matricula

Lo que actualmente hago es que en tiempo de ejecución reescribo la sentencia sql.

viendo el uso de parametros se me ocurio cambiar mis consultas a

Select Matricula, Nombre, Grupo, Reinscrip
from alumnos
Where Reinscrip = 'S'
Order by :Campo1, :Campo2

Y ahora solo mandar el parametro con el nombre del campo por el que quiero ordenar

query1.active:= False;
query1.parameters.parameterbyname('Campo1').value:= 'Grupo';
query1.parameters.parameterbyname('Campo2').value:= 'Matricula';
query1.active:= True;

al ejecutar la aplicación el query el query si se activa pero no esta ordenado, por eso pregunto a todos ustedes expertos , realmente esto no se puede hacer o como podria hacerlo.

gracias

[__cadetill]

Empezado por jzginez

al ejecutar la aplicación el query el query si se activa pero no esta ordenado, por eso pregunto a todos ustedes expertos , realmente esto no se puede hacer o como podria hacerlo.

Yo lo he probado y a mi ni se me activa.

Yo te aconsejaría la creación dinámica de toda la sentencia SQL

Query.SQL.Clear;
Query.SQL.Add('select .....');
...
Query.SQL.Add('Order By ......');
Query.Open;

[jachguate]

No necesariamente tenes que reconstruir toda la sentencia SQL... simplemente podes sustituir la línea del order by... pero no con parámetros...

Hasta luego.

[roman]

Cuando leí este mensaje hubiera jurado que me iba a pasar como a Cadetill y que ni siquiera abriría la consulta. Curiosamente hice la prueba con lo primero que tenía a mano: Zeos y MySql y a menos que ya vea doble, sí funcionó además de activarse.

Ya algún día veré por qué funciona lo que no debería de funcionar

// Saludos

[__cadetill]

Empezado por roman

Curiosamente hice la prueba con lo primero que tenía a mano: Zeos y MySql y a menos que ya vea doble, sí funcionó además de activarse.

Bueno, cierto, no he dicho con qué he hecho la prueba: BDE + Paradox (lo que primero tenía a mano )

[jachguate]

Creo que dependerá del motor de base de datos que se use...

Sorprendente y nada estándar, pero muy funcional característica de MySQL.

[roman]

Empezado por jachguate

Sorprendente y nada estándar, pero muy funcional característica de MySQL.

No estaría tan seguro de que MySql sea el causante de tal bondad. Apostaría más por el lado de Zeos.

Si lo primero que alguien tiene a la mano es Zeos e Interbase podría hacer la prueba e informarnos.

// Saludos

[roman]

Curioseando un poco por el código de Zeos me parece entender que si no se especifica el valor de un parámetro por defecto pone NULL y ya verificado MySql acepta consultas con

ORDER BY campo, NULL

¿Esto último es estandard?

// Saludos

[marcoszorrilla]

Una solución menos elegante pero que funcionaría en cualquier sistema sería utilizar una sentencia If con una variable:

Select Matricula, Nombre, Grupo, Reinscrip
from alumnos
Where Reinscrip = 'S'

if lUnCampo = True then
Order by Matricula
else
Order by Grupo, Matricula;

MiQuery.Open;

Un Saludo.

[jachguate]

Empezado por roman

¿Esto último es estandard?

Si es estándar... dado que NULL es un valor "ordenable".... es como si le dijeras OrderBy 'ConstanteCadena'..

Al final de cuentas, cualquier procesador de SQL simplemente no hará ninguna ordenación por ese criterio...

Hasta luego.

[peccatum]

Empezado por jachguate

No necesariamente tenes que reconstruir toda la sentencia SQL... simplemente podes sustituir la línea del order by... pero no con parámetros...

Hasta luego.

como se hace para sustituir solo la linea que dice order by?

saludos...

[jachguate]

Por ejemplo, suponiendo que la línea que dice "order by" es la séptima del query...

Código Delphi [-]
  if cbPorNombre.Checked then
    query1.sql[6] := ' order by nombre'
  else
    query1.sql[6] := 'order by codigo';

Hasta luego.