Запрос на количество

[StudentMarat]

В базе данных две таблицы: студенты и комнаты в общежитии.
Таблица Студенты (Код_студента, фамилия, имя, отчество, код_комнаты)
Таблица Комнаты (Код_комнаты, Название, койко-мест).
Связь между таблицами один-ко-многим.
Хочу вывести количество студентов, проживающих в определенной комнате (ну например комната 202). Вот код.

procedure TfrmPoisk.Button1Click(Sender: TObject);
var
a: string;
m: integer;
begin
DataModule4.ADOQueryPoisk.Active:=false;
DataModule4.ADOQueryPoisk.SQL.text:='SELECT Count(Студенты.Фамилия) AS [Count-Фамилия], Комнаты.Комната FROM Комнаты INNER JOIN Студенты ON Комнаты.Код_комнаты = Студенты.Код_комнаты GROUP BY Комнаты.Комната HAVING (((Комнаты.Комната)='+'"'+Edit2.Text+'"'+'))';
DataModule4.ADOQueryPoisk.Active:=true;
DataModule4.ADOQueryPoisk.Open;
DataModule4.ADOQueryPoisk.SQL.text:=IntToStr(m);
label2.Caption:='Количество студентов проживающих в комнате'+edit2.Text+'равно'+IntToStr(m);
end;

Что-то пока не получается. Направьте на "путь истинный"

[Аватар]

SELECT Count(*) AS [Count-Фамилия],Комнаты.Комната 
  FROM Комнаты,Студенты
  WHERE Комнаты.Код_комнаты = Студенты.Код_комнаты AND Комнаты.Комната='112'
  GROUP BY Комнаты.Комната

[StudentMarat]

Так номер комнаты должен вводиться пользователем в edit а результат выводиться в label

[Аватар]

дык подставь в запрос, или это тоже описывать?

[StudentMarat]

Попробовал. Но не получается. Где здесь ошибка??

	
	
procedure TfrmPoisk.Button1Click(Sender: TObject);
var
a: string;
m: integer;
begin
DataModule4.ADOQueryPoisk.Active:=false;
DataModule4.ADOQueryPoisk.SQL.text:='SELECT Count(*) AS [Count-Фамилия],Комнаты.Комната FROM Комнаты,Студенты WHERE Комнаты.Код_комнаты = Студенты.Код_комнаты AND Комнаты.Комната='+'"'+Edit2.Text+'"'+' GROUP BY Комнаты.Комната';
DataModule4.ADOQueryPoisk.Active:=true;
DataModule4.ADOQueryPoisk.Open;
DataModule4.ADOQueryPoisk.SQL.text:=IntToStr(m);
label2.Caption:='Количество студентов проживающих в комнате'+edit2.Text+'равно'+IntToStr(m);
end;

[StudentMarat]

Сообщение от Аватар

дык подставь в запрос, или это тоже описывать?

Опишите please

[Аватар]

DataModule4.ADOQueryPoisk.Active:=false;
DataModule4.ADOQueryPoisk.SQL.text:='SELECT Count(*) AS [Count-Фамилия],Комнаты.Комната FROM Комнаты,Студенты WHERE Комнаты.Код_комнаты = Студенты.Код_комнаты AND Комнаты.Комната='+'"'+Edit2.Text+'"'+' GROUP BY Комнаты.Комната';
DataModule4.ADOQueryPoisk.Active:=true;
label2.Caption:='Количество студентов проживающих в комнате '+edit2.Text+' равно '+DataModule4.ADOQueryPoisk.FieldByName('Count-Фамилия').AsString;

[StudentMarat]

Спасибо за помощь. Тему можно закрыть.