Une requete SQL unpeux difficile !!

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 :)

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

Code:

---

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;

---

Bonjour,

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

Code:

---

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:

---

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

Pourquoi pas faire plus simple ?

Code:

---

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

---

ou

Code:

---

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

---

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))

Ceci devrait marcher

Code:

---

1 2 3

select Max(Champ) from LaTable Where Champ<= LaValeur

---

Bonne chance.