Buscar valores mas cercanos

[Toni]

Hola compañeros,

Tengo la necesidad de buscar en una tabla (firebird) por un campo que es numerico y tengo que buscar en un momento determinado los valores mas 'proximos'. Por proximos quiero decir los valores que se hacercan mas a un valor, tanto por delante como por detras.

Ejemplo:

Si tengo una tabla con el campo1 de tipo integer y con estos datos.

Campo1
-------
1
2
3
4
5
6
7
8
9
10

Como podria buscar o obtener la tabla ordenada por el criterio de proximidad a un valor, por ejemplo del 5:

Campo1
--------
4
6
7
3
8
2
9
1
10

En otros servidores SQL me permite realizar una consulta donde la clausula order by puedo poner una expresion con un calculo y esto permite obtener el resultado deseado:

select Campo1 from Tabla
order by abs(Campo1 - :Valor)

Lo que no se como realizar esto en firebird.


Saludos,

[guillotmarc]

Hola.

¿ Porqué no utilizas esto ? :

select Campo1, abs(Campo1 - :Valor)
from Tabla
order by 2

Naturalmente en tu programa Delphi tendrás que ocultar la segunda columna y solo mostrar la primera.

Saludos.

[Toni]

Hola Guillotmarc,

Pues no habia caido en esa posibilidad de utilizar el order by por numero de columna y poner la expresion en la select.

Lo estoy probando y me da un error que no me permite utilizar la funcion abs(), yo diria que la he utilizado en otras ocasiones. Lo estoy probando con FB1.5 y el EMS IB Manager 3. Me da la impresion que es el gestor EMS que no le gusta la funcion y no el propio FB1.5

[guillotmarc]

Hola.

Lo he mirado y parece que no es una función interna, sino que está en la UDF ib_udf.dll

Prueba declarándola, ejecutando primero (solo hay que hacerlo una vez) :

DECLARE EXTERNAL FUNCTION abs
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_UDF_abs' MODULE_NAME 'ib_udf';

NOTA : Esta declaración es para FB 2.0, espero que no haya cambiado para FB 1.5.

[guillotmarc]

Claro que siempre puedes hacer esta consulta.

select Campo1,
case when (Campo1 - :Valor) > 0 then Campo1 - :Valor else -1 * (Campo1 - :Valor) end
from Tabla
order by 2

Pero la verdad es que es muy feo.

[[mightydragonlor]]

y no es mejor usar un Between?, lo digo por que es lo que uso en MSSQL, en firebird no sé si está.