Нужная помощь с поиском

[arturqa2015]

При выполнении поиска не находит значение. Значение копировал из БД

procedure TForm1.Button10Click(Sender: TObject);
begin
DataModule2.ADOQuery1.Active:=false;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.append('SELECT Dogovor.ID_dogovor AS [ID Договора], Pomeshenie.Nazvanie AS Помещение , Arendator.Nazvanie AS Арендатор, Dogovor.Data_podpis AS [Дата подписи договора], Dogovor.data_nach AS [Дата начала аренды],'
+' Dogovor.data_kon AS [Дата конца аренды], Dogovor.Data_rastor AS [Дата расторжения договора]FROM Arendator INNER JOIN'
+'(Pomeshenie INNER JOIN Dogovor ON Pomeshenie.ID_Pomeshenie = Dogovor.ID_pomeshenie)ON Arendator.ID_arendator = Dogovor.ID_arendator WHERE :p1 Like :p2;');
DataModule2.ADOQuery1.parameters.parambyname('p1').value:=Integer(Combobox1.Items.Objects[Combobox1.ItemIndex]);
DataModule2.ADOQuery1.parameters.parambyname('p2').value:=Edit1.text;
DataModule2.ADOQuery1.Active:=true;
end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
i: Integer;
begin
ComboBox1.Items.Clear;
DataModule2.ADOQuery1.Open;
for i:=1 to DataModule2.ADOQuery1.FieldCount-1 do
ComboBox1.Items.Add(DataModule2.ADOQuery1.FieldList.Fields[i].FieldName);
end;

[evg_m]

where :p1 like :p2

имена полей НЕ МОГУТ быть параметром!

SQL.text:=''SELECT Dogovor.ID_dogovor AS [ID Договора], Pomeshenie.Nazvanie AS Помещение , Arendator.Nazvanie AS Арендатор, Dogovor.Data_podpis AS [Дата подписи договора], Dogovor.data_nach AS [Дата начала аренды],'
+' Dogovor.data_kon AS [Дата конца аренды], Dogovor.Data_rastor AS [Дата расторжения договора]FROM Arendator INNER JOIN'
+'(Pomeshenie INNER JOIN Dogovor ON Pomeshenie.ID_Pomeshenie = Dogovor.ID_pomeshenie)ON Arendator.ID_arendator = Dogovor.ID_arendator';

SQL.Append(where ' + combobox1.Text ' like :p2');
SQL.Parameters.Parambyname('p2').value:=Edit1.Text +'%';

да к тому же еще и число

('p1').value:=Integer(Combobox1.Items.Objects[Combobox1.ItemIndex]);

у вас что, поля имеют числовые наименования (1,2,3,... ) ?

[arturqa2015]

имена полей НЕ МОГУТ быть параметром!

спасибо

SQL.Append(where ' + combobox1.Text ' like 2');
SQL.Parameters.Parambyname('p2').va lue:=Edit1.Text +'%';

В поле Помещение и Арендатор при таком поиске нужно вводить ID, а не Nazvanie

у вас что, поля имеют числовые наименования (1,2,3,... ) ?

А номер итема не числовой?