SQL поиск по нескольким столбцам в Delphi

[vladtiko]

Необходимо найти все данные с таблицы, которые подходят под указанные в эдитах величины с учетом допусков. С SQL не очень дружу. Помогите пожалуйста правильно написать выделенную строку.

case ComboBoxLBH.ItemIndex of
0: d:=0;
1: d:=50;
2: d:=100;
end;
if d=0 then begin
lms:=edit1.text;
bms:=edit2.text;
hms:=edit3.text;
lxs:=edit1.text;
bxs:=edit2.text;
hxs:=edit3.text;
end
else begin
l:=strtoint(edit1.text);
lm:=l-d;
lx:=l+d;
lms:=inttostr(lm);
lxs:=inttostr(lx);
b:=strtoint(edit2.text);
bm:=b-d;
bx:=b+d;
bms:=inttostr(bm);
bxs:=inttostr(bx);
h:=strtoint(edit3.text);
hm:=h-d;
hx:=h+d;
hms:=inttostr(hm);
hxs:=inttostr(hx);
end;

DataModule1.FindQuery.Active:=false;
DataModule1.FindQuery.SQL.Clear;
DataModule1.FindQuery.SQL.Add('SELECT * ') ;
DataModule1.FindQuery.SQL.Add('FROM Øòàíöôîðìû');
DataModule1.FindQuery.SQL.Add('WHERE L between (lms) and (lxs) and B between (bms) and (bxs) and H between (hms) and (hxs);
DataModule1.FindQuery.Active:=true;
FindResultForm.ShowModal;
end;

________
Чтобы отформатировать исходный текст не надо писать слово Код:
нужно просто использовать специальные теги
Это тег [CODE]..[/СODE] (при редактировании это кнопочка с решёточкой #)
Выделяете исходный код, нажимаете кнопочку, скрипт форума вставляет нужные теги...
Либо можно руками взять и написать нужные теги..

Модератор.

[Serge_Bliznykov]

Кстати, а где закрывающая кавычка при задании условия?!!!

Ну а по сути проблемы, СУБД (сервер, которому Вы поручаете выполнить Ваш запрос, разумеется не знает, что за такие слова вы понаписали: lms, lxs, bms и т.п.

поэтому Вам надо не имена, А ЗНАЧЕНИЯ передать в запрос.

это можно сделать двумя разными способами.

1) вставить значения прямо в текст запроса..
например,

.SQL.Add('WHERE L between '+IntToStr(lms)+' and '+IntToStr(lxs)+' and B between '+IntToStr(bms)+' and '.....

либо использовать параметрические запросы:

DataModule1.FindQuery.SQL.Add('WHERE L between (:lms) and (:lxs) and B between (:bms) and (:bxs) and H between (:hms) and (:hxs)');
DataModule1.FindQuery.Parameters.ParamByName('lms').Value := lms;
DataModule1.FindQuery.Parameters.ParamByName('lxs').Value :=lxs;
DataModule1.FindQuery.Parameters.ParamByName('bms').Value :=bms;
ну и т.д....

[vladtiko]

Сообщение от Serge_Bliznykov

Кстати, а где закрывающая кавычка при задании условия?!!!

Ну а по сути проблемы, СУБД (сервер, которому Вы поручаете выполнить Ваш запрос, разумеется не знает, что за такие слова вы понаписали: lms, lxs, bms и т.п.

поэтому Вам надо не имена, А ЗНАЧЕНИЯ передать в запрос.

это можно сделать двумя разными способами.

1) вставить значения прямо в текст запроса..
например,

.SQL.Add('WHERE L between '+IntToStr(lms)+' and '+IntToStr(lxs)+' and B between '+IntToStr(bms)+' and '.....

Спасибо большое. Помогло