Sql запрос со связанной таблицей
Есть две связанные таблицы.
rasteniya и rasteniya_name.
Поле Name в таблице rasteniya связано с полем Code в таблице rasteniya_name.
В ComboBox'е выбирается пункт, по которому производится поиск в поле Name.
Текст в ComboBox'е полностью совпадает с текстом значений в поле Name таблицы rasteniya_name.
Проблема в том, что при выдачи ответа на запрос отображаются все значения полей таблицы rasteniya, а поле Name во всех наборах данных равно тексту, который был выбран в ComboBox'е.
Текст запроса:
procedure TResPsyh_Form.Button1Click(Sender: TObject);
var
frm:TForm7;
Str:string;
begin
Str:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
DataModule2.rast_Query.Active:=false;
DataModule2.rast_Query.SQL.Clear;
DataModule2.rast_Query.SQL.Add('SELECT *');
DataModule2.rast_Query.SQL.Add('FROM rasteniya_name');
DataModule2.rast_Query.SQL.Add('WHERE rasteniya_name.Name LIKE '''+Str+'''');
DataModule2.rast_Query.Active:=true;
frm:=TForm7.Create(self);
frm.Show;
end;
Пользователь выбирает в ComboBoxe пункт, нажимает кнопку "найти" и ему открывается форма, в которой присутствует только одна запись, поле Name которой соответствует выбранному в ComboBox'е тексту.
У меня же выдаются все записи, а поле Name у всех становится рабно выбранному тексту.