Проблема с SQL запросом

[x_X-x3]

Здравствуйте.Помогите решить проблему.Задача программа такова:
Имеется база и нужна фильтрация.Допустим есть столбец 'Расстояние действия' и 'Масса' в таблице 'Видеокамеры'.И при вводе в компонент Edit допустим значение по 'Расстоянию' и 'Массе' 15,он все что ниже 15 убирает из DBGrid.
Но есть проблема.Вылезает ошибка "неопределенная функция IntToStr в выражении"

А вот сам код

procedure TForm3.FormCreate(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add( 'SELECT * FROM [Видеокамеры] WHERE [Расстояние действия] > + StrToInt(Edit1.Text)');
Showmessage(ADOQuery1.SQL.Text);
ADOQuery1.Active:=True;
end;

[Аватар]

Еще бы. Нет функции StrToInt в sql. И Edit1.Text тоже нет. Посмотри внимательно на кавычки и на то, что в запрос попадает

[Dvoishnik]

чувствую себя гениальным программистом)

'SELECT * FROM [Видеокамеры] WHERE [Расстояние действия] > ' + Edit1.Text

[x_X-x3]

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

чувствую себя гениальным программистом)

'SELECT * FROM [Видеокамеры] WHERE [Расстояние действия] > ' + Edit1.Text

смею огорчить,но так вылезает ошибка "Ошибка синтаксиса(пропущен оператор) в выражении запроса Расстояние действия > +Edit1.Text' "

[NEymexa:c]

Возможно так:

ADOQuery1.SQL.Add( 'SELECT * FROM [Видеокамеры] WHERE [Расстояние действия] > values(:M)');
ADOQuery1.Parameters.ParamByName('M').Value:=StrToInt(Edit1.Text);

[x_X-x3]

Сообщение от NEymexa:c

Возможно так:

ADOQuery1.SQL.Add( 'SELECT * FROM [Видеокамеры] WHERE [Расстояние действия] > values(:M)');
ADOQuery1.Parameters.ParamByName('M').Value:=StrToInt(Edit1.Text);

Спасибо,но теперь вылезает ошибка "is not integer value"

[Dvoishnik]

Сообщение от x_X-x3

смею огорчить,но так вылезает ошибка "Ошибка синтаксиса(пропущен оператор) в выражении запроса Расстояние действия > +Edit1.Text' "

смею вас расстроить вы не умеете копировать.

[x_X-x3]

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

смею вас расстроить вы не умеете копировать.

Вот код программы,то что вы предложили,уже давно испробовано

ADOQuery1.SQL.Add( 'SELECT * FROM Видеокамеры  WHERE Расстояние действия > ' + Edit1.Text);

И вылезает все таже самая "Ошибка синтаксиса(пропущен оператор) в выражении запроса Расстояние действия > "

[xxbesoxx]

Сообщение от x_X-x3

Вот код программы,то что вы предложили,уже давно испробовано

ADOQuery1.SQL.Add( 'SELECT * FROM Видеокамеры  WHERE Расстояние действия > ' + Edit1.Text);

И вылезает все таже самая "Ошибка синтаксиса(пропущен оператор) в выражении запроса Расстояние действия > "

Главное спакоино.! смотрите пример и тренируйте

procedure TForm1.Edit1Change(Sender: TObject);
begin
 if Trim(Edit1.Text)<>'' then
 begin
  with ADOQuery1 do
  begin
    SQL.Clear;
    SQL.Add('SELECT * FROM [Видеокамеры] '+
            'WHERE [Расстояние действия] > :MyCh ');
    Parameters.ParamByName('MyCh').Value := Trim(Edit1.Text);
    Open;
  end;
 end;
end;

end.

Можно скачать проект и смотрет когда вам будеть удобно https://yadi.sk/d/tuECMOeVr3Zjf

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

чувствую себя гениальным программистом)

'SELECT * FROM [Видеокамеры] WHERE [Расстояние действия] > ' + Edit1.Text

Сожалению не добрались до вашего уровня . Вы здесь один "единственный и гениальный"

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

смею вас расстроить вы не умеете копировать.

Смеяться можно да .! Но я боюсь что вы так не остались на всю жизнь

[x_X-x3]

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

Главное спакоино.! смотрите пример и тренируйте

procedure TForm1.Edit1Change(Sender: TObject);
begin
 if Trim(Edit1.Text)<>'' then
 begin
  with ADOQuery1 do
  begin
    SQL.Clear;
    SQL.Add('SELECT * FROM [Видеокамеры] '+
            'WHERE [Расстояние действия] > :MyCh ');
    Parameters.ParamByName('MyCh').Value := Trim(Edit1.Text);
    Open;
  end;
 end;
end;

end.

Можно скачать проект и смотрет когда вам будеть удобно https://yadi.sk/d/tuECMOeVr3Zjf


Сожалению не добрались до вашего уровня . Вы здесь один "единственный и гениальный"


Смеяться можно да .! Но я боюсь что вы так не остаются на всю жизнь

Большое спасибо вам за проделанную работу)
Все работает как часы!
Еще раз спасибо