找出数据库中的某个域最接近给定值的上、下值

最新推荐文章于 2024-05-06 18:06:12 发布

看那山瞧那水

最新推荐文章于 2024-05-06 18:06:12 发布

阅读量614

点赞数

分类专栏： SQL语言 Delphi 文章标签：数据库 function string

本文链接：https://blog.csdn.net/jankercsdn/article/details/6624757

版权

Delphi 同时被 2 个专栏收录

41 篇文章 3 订阅

订阅专栏

SQL语言

1 篇文章 0 订阅

订阅专栏

//摘自网上
function GetNearValue(tblName,fldName,confldName,confldValue:string; GivenValue:Double;

var LowValue, HighValue:Double):Boolean;

var
s:string;

begin
Result:=False;
s:='SELECT Max_V,Min_V FROM '+
'(SELECT MAX('+fldName+') AS Max_V FROM '+tblName+
' WHERE ('+fldName+'<='+ FloatToStr(GivenValue)+') AND ('+confldName+'= '''+confldValue+''')) AS Max_Tbl,'+
'(SELECT MIN('+fldName+') AS Min_V FROM '+tblName+
' WHERE ('+fldName+'>='+ FloatToStr(GivenValue)+') AND ('+confldName+'= '''+confldValue+''')) AS Min_Tbl';
with frmDM.adoqryTmp do
begin
Close;
SQL.Clear;
SQL.Add(s);
try
Open;
if RecordCount > 0 then
begin
LowValue:=VarToFloat(FieldValues['Min_V']);
HighValue:=VarToFloat(FieldValues['Max_V']);
Close;
Result:=True;
end;
except
Close;
end;
end;
end;