Discussion :

[nil]

Bonjour a tous
j'ai une table avec un champ de type decimal
de tel sorte que les nombre sont une incrementation de 10 ex:
(1120--1130--1140...etc .etc )
je veux une requete de tel sorte quand je rentre un nombre sur un edit.text il va verifier sur la table le nombre le plus proche de celui que j'ai rentré
exp sur ma table j'ai ( 150-160-170-180....)
et edit1.text = 151,6 donc le resultat de ma requete c 150 .
il me donne tjrs le nombre le plus proche de tel sorte qu'il est inferieur a la valeur que je fais rentré
merci les amis

[Teo]

Je te propose de faire le calcul avant de lancer la requette.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Procedure TFiche.PrepareRequette(Var Requette:String);  
Var I:Integer;
Begin
  Requette := '';
  I := Trunc(StrToFloat(Edit1.Text));
  While (I > 0) And ((I Mod 10) <> 0) Do Dec(I);
  If I > 0
  Then Requette := 'Where Chp = '+IntToStr(I);   
End;

[Ricky81]

Bonjour,

voici un élément de solution plus orienté SQL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
select * from (select t.*, ROWNUM from table t where champ<=151.6 order by champ desc) where ROWNUM=1

Petite remarque, la valeur de ROWNUM ne sera pas forcement égale à 1, mais ce sera quand même la bonne ligne (le ROWNUM résultant semble celui calculé avant le "order by").

si tu utilises MySql, tu peux utiliser le mot clé LIMIT :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

select * from table t where champ<=151.6 order by champ desc limit 1

Si jamais il peut arriver dans ta table d'avoir des trous (qu'on ne trouve pas toujours d'enregistrement toutes les 10 valeurs) cette méthode pourra peut être te servir.

Cordialement

Eric

[Barbibulle]

Pourquoi pas faire plus simple ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Select ... from MaTable
where Champ>(:Valeur-10) and Champ<:Valeur

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
select ... from MaTable
where Champ between (:Valeur-10, :Valeur)

[alibey]

du moment que la valeur peut être un reel il faut appliquer la fonction cast

select ... from MaTable
where Champ between (cast(:Valeur as int)-10, cast(:Valeur as int))

[JerryMouse]

Ceci devrait marcher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
select Max(Champ)
from LaTable
Where Champ<= LaValeur

Bonne chance.