Не исполняются поля информации для фильтров

[MarcusAurelius]

Добрый день! Прошу помощи в следующем вопросе:

Есть таблица, выведенная путем TBGrid в Delphi. Необходимо создать фильтр по одному из параметров. В моём случае это столбцы FIRM_NAME и FIRM_ID.
Мною создано два поля: Edit1 и Edit2, а так же кнопка Button1.

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOFirm_Name.SQL.Clear;
ADOFirm_Name.SQL.Add('SELECT NAME as FIRMNAME, FIRM_ID FROM firm f, WHERE NAME=:FIRM_NAME and FIRM_ID=:FIRM_ID');
ADOFirm_Name.Parameters.ParamByName('FIRM_NAME').Value:=Edit1.Text;
ADOFirm_Name.Parameters.ParamByName('FIRM_ID').Value:=Edit2.Text;
ADOFirm_Name.Active:=True;
end;

end.

Прошу указать на допущенную мной ошибку.
Спасибо!

[GreenWizard]

FROM firm f,

запятая не нужна, да и f тоже (даже если это псевдоним таблицы, то далее его не используешь)

[MarcusAurelius]

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

FROM firm f,

запятая не нужна, да и f тоже (даже если это псевдоним таблицы, то далее его не используешь)

Исправлено. Фильтрация по прежнему не выполняется.

[GreenWizard]

и нет сообщений об ошибках?

[MarcusAurelius]

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

и нет сообщений об ошибках?

Запускается без ошибок. При нажатии кнопки Button1 таблица один раз мерцает.

[GreenWizard]

ADOFirm_Name.Active:=False;

в самое начало (с БД давно не работал, чуть торможу тоже )

[MarcusAurelius]

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

ADOFirm_Name.Active:=False;

в самое начало (с БД давно не работал, чуть торможу тоже )

Спасибо!
Каким должен быть запрос в том случае, если фильтрация происходит не в двух, а в одном из полей? На данном моменте вылезает следующая ошибка: "Несоответствие типов данных в выражении условия отбора"

[GreenWizard]

	whereExpr := '';

	if Edit1.Text <> '' then
		whereExpr := '(NAME like :FIRM_NAME)';
		
	if Edit2.Text <> '' then
	begin
		if whereExpr <> '' then
			whereExpr := whereExpr + ' AND ';
		whereExpr := whereExpr + '(FIRM_ID=:FIRM_ID)';
	end;
		
	if whereExpr <> '' then
		whereExpr := ' WHERE ('  + whereExpr + ')';
	
	ADOFirm_Name.SQL.Add('SELECT NAME as FIRMNAME, FIRM_ID FROM firm' + whereExpr);
	
	if Edit1.Text <> '' then
		ADOFirm_Name.Parameters.ParamByName('FIRM_NAME').Value:=Edit1.Text;
		
	if Edit2.Text <> '' then
		ADOFirm_Name.Parameters.ParamByName('FIRM_ID').Value:=Edit2.Text;

такой костыль позволит искать либо по названию, либо по айди, либо одновременно по обеим параметрам, либо выводит список без фильтрации
одно НО: я заменил = на like, чтоб искало по части названия, но я не уверен в корректности такого шаблона поиска.... может понадобиться замена ".Value:=Edit1.Text;" на ".Value:={'*' + если должно искать вхождение части}Edit1.Text + '*';"

[Stilet]

Необходимо создать фильтр по одному из параметров.

Наверное нужно так:

begin

with ADOFirm_Name
 SQL.Text:=('SELECT NAME as FIRMNAME, FIRM_ID FROM firm f WHERE (NAME=:FIRM_NAME or :FIRM_NAME='''') and (FIRM_ID=:FIRM_ID or :FIRM_ID=0)');
 Parameters.ParamByName('FIRM_NAME').Value:=Edit1.Text;
 Parameters.ParamByName('FIRM_ID').Value:=StrToIntDef(Edit2.Text,0);
 Active:=True;
end;
end;

[GreenWizard]

WHERE (NAME=:FIRM_NAME or :FIRM_NAME='''') and (FIRM_ID=:FIRM_ID or :FIRM_ID=0)

кстати да, забыл что оно может подставлять параметры так)) намного проще и понятнее моего костыля)