Указать критерии поиска?

[фЁдОр]

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

Похоже скобок маловато.. FieldByName(( , и в конце еще одну.

form1.ADOQuery1.FieldByName(('cena')>=StrToFloat(edit1.Text)) and form1.ADOQuery1.FieldByName(('cena')<StrToFloat(edit2.Text));

Нет, все равно ругается, а по другому поставления скобок я пока не вижу, но я пробую разные еще варианты.

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

Почему не делать по аналогии, предложенной nataly_ukr?

Я не имею ничего против этого кода, а наоброт - благодарен за него, я просто посчитал, что этот код будет проще и объем меньше, но если мне все же не удаться реализовать этот код, то конечно же попробую тот.

[nataly_ukr]

Напиши полностью строку form1.ADOQuery1.FieldByName(('cena' )>=StrToFloat(edit1.Text)) and form1.ADOQuery1.FieldByName(('cena' )<StrToFloat(edit2.Text));
Что впереди IF или Filtеr А то не понятен смысл того , что ты делаешь И код ошибки внизу написан при компиляции , можешь его изобразить А то лечим как в анекдоте по фотографии, Скобки вторые здесь явно не нужны

[mihali4]

Вы просто перемудрили.
Если программно, то так:
ADOQuery.Filtered:=True;
ADOQuery.Filter:='cena>='+''''+StrT oFloat(edit1.Text)+''''+' and cena<='+ ''''+StrToFloat(edit2.Text)+'''';
З.Ы. Четыре кавычки - это устоявшаяся привычка. Некоторые из вас обычно пишут:
ADOQuery.Filter:='cena>='''+StrToFl oat(edit1.Text)+''' and cena<='''+StrToFloat(edit2.Text)+'' ';

[фЁдОр]

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

Напиши полностью строку form1.ADOQuery1.FieldByName(('cena' )>=StrToFloat(edit1.Text)) and form1.ADOQuery1.FieldByName(('cena' )<StrToFloat(edit2.Text));
Что впереди IF или Filtеr А то не понятен смысл того , что ты делаешь И код ошибки внизу написан при компиляции , можешь его изобразить А то лечим как в анекдоте по фотографии, Скобки вторые здесь явно не нужны

Я пытался откомпилировать вот этот код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.Sort:=('cena');
 ADOQuery1.FieldByName(('cena')>StrToFloat(edit4.Text) and ADOQuery1.FieldByName('cena')<StrToFloat(edit5.Text));
 ADOQuery1.Open;
end;

Но теперь я понимаю, что это грубая ошибка!
nataly_ukr, объясните, пожалуйста, в Вашем первом рарианте я не смог понять, что означают переменные D1 и D2, как их использовать?

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

Вы просто перемудрили.
Если программно, то так:
ADOQuery.Filtered:=True;
ADOQuery.Filter:='cena>='+''''+StrT oFloat(edit1.Te xt)+''''+' and cena<='+ ''''+StrToFloat(edit2.Text)+'''';
З.Ы. Четыре кавычки - это устоявшаяся привычка. Некоторые из вас обычно пишут:
ADOQuery.Filter:='cena>='''+StrToFl oat(edit1.Text) +''' and cena<='''+StrToFloat(edit2.Text)+'' ';

mihali4, я что-то совсем с этими ковычками запутася. Попробовал написать по вашему примеру, но всеравнo ругается

ADOQuery1.Filtered:=True;
ADOQuery1.Filter:='cena>='+''''+StrToFloat(edit4.Text)+''''+' and cena<='+ ''''+StrToFloat(edit5.Text)+'''';

В принципе, направление я понял. Всем большое спасибо!

[nataly_ukr]

DateStart := Edit1.Text; // заношу в переменные значения из Edit1
DateEnd := Edit2.Text; // edit2

Пусть имя твоего файла например ZAKAZ
Query1.SQL.Add('Select * From ZAKAZ where CENA BETWEEN :D1 and :D2');

// BETWEEN параметр говорит запросу , что будет ограничение данных между D1 и D2

Query1.ParamByName('d1').AsStr := DateStart; // передача данных в парамаетры
Query1.ParamByName('d2').AsStr := DateEnd;

Ты только приведи все или к String или к Float

[фЁдОр]

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

DateStart := Edit1.Text; // заношу в переменные значения из Edit1
DateEnd := Edit2.Text; // edit2

Пусть имя твоего файла например ZAKAZ
Query1.SQL.Add('Select * From ZAKAZ where CENA BETWEEN :D1 and :D2');

// BETWEEN параметр говорит запросу , что будет ограничение данных между D1 и D2

Query1.ParamByName('d1').AsStr := DateStart; // передача данных в парамаетры
Query1.ParamByName('d2').AsStr := DateEnd;

Ты только приведи все или к String или к Float

Я пробовал как Вы написали, но он ругается, что поле 'D1' not fount. И поидие он правильно пишет, т.к. поля у меня такого нет, но ведь D1 - это же переменная!
Вот код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 Start, Finish, D1, D2: string;
begin
 Start:=edit4.Text;
 Finish:=edit5.Text;
 form1.ADOQueFirmRatissDisk.Close;
 form1.ADOQueFirmRatissDisk.SQL.Clear;
 form1.ADOQueFirmRatissDisk.SQL.Add('select * Price where cena between :D1 and :D2');
 form1.ADOQueFirmRatissDisk.FieldByName('D1').AsString:=Start;
 form1.ADOQueFirmRatissDisk.FieldByName('D2').AsString:=Finish;
 form1.ADOQueFirmRatissDisk.Open;
end;

Не судите, что переменные строкового типа, с вещественными тоже самое. Тут я не могу понять переменную D1 и D2.

[Alex21]

Почитай, пригодится.

[nataly_ukr]

d1,d2: Double;

[dron-s]

d1,d2: Double;

TDate должно они быть

[mihali4]

mihali4, я что-то совсем с этими ковычками запутася. Попробовал написать по вашему примеру, но всеравнo ругается

Это уже я там намудрил - StrToFloat там совершенно не нужны, просто Edit4.Text и Edit5.Text.
То есть:

ADOQuery1.Filtered:=True;
ADOQuery1.Filter:='cena>='+''''+edit4.Text+''''+' and cena<='+ ''''+edit5.Text+'''';