Firebird. Выборка записей. Вопрос про DBGridEh.

[artemavd]

Столкнулся с такой непоняткой. В IBExpert-e создал такой запрос:

select familiy,imy,otchest from classname,spisok where ((classname.id = spisok.kl) and (kl = 1))

То есть "выбрать всех учеников, у которых ID класса равен 1". В SQL Builder-e запрос этот работает безупречно. Но когда я пытаюсь сделать такой запрос программно, вот так:

procedure TForm2.sBitBtn8Click(Sender: TObject);
begin
 Form2.pFIBQuery4.SQL.Clear;
 Form2.pFIBQuery4.SQL.Text:='SELECT FAMILIY,IMY,OTCHEST,KL FROM SPISOK,CLASSNAME WHERE ((CLASSNAME.ID=SPISOK.KL) AND (Kl='+Form2.sWebLabel10.Caption + '))';
 Form2.pFIBQuery4.ExecQuery;
end;

То в DBGridEh не выводится ничего. Почему? Что я делаю не так? DBGridEh настроен на DataSource. DataSource настроен на pFIBDataSet4. pFIBDataSet4 настроен на pFIBDatabase4. pFIBQuery4 настроен на pFIBDatabase4.

P.S. Если написать, чтобы выводился результат в Label, то все выводится правильно.

[vovk]

данные находятся в pFIBQuery4, а грид отображает то что находится в pFIBDataSet4

[artemavd]

А как изменить то? Что нужно перенастроить?

[vovk]

можно этот запрос просто писать в pFIBDataSet4

[artemavd]

В смысле в свойстве SQL?

[vovk]

pFIBDataSet4.SQLs.SelectSQL.Text

[artemavd]

Прописал такой запрос:

select familiy,imy,otchest from spisok

Выдалась ошибка как на скрине по нажатию на кнопку ОК.

[vovk]

выложи код который выполняется по нажатию кнопки ок

[artemavd]

Код выполнения запроса:

procedure TForm1.sBitBtn5Click(Sender: TObject);
begin
 Form1.pFIBQuery3.SQL.Clear;
 Form1.pFIBQuery3.SQL.Text:='SELECT FAMILIY,IMY,OTCHEST,KL FROM SPISOK,CLASSNAME WHERE ((CLASSNAME.ID=SPISOK.KL) AND (Kl='+Form1.sWebLabel10.Caption + '))';
 Form1.pFIBQuery3.ExecQuery;
end;

На скрине код в свойстве pFIBDataSet4.SQLs.SelectSQL.Text

[Yurk@]

1. вместо

Form1.pFIBQuery3.ExecQuery;

должно быть

Form1.pFIBQuery3.Open;

2. у тя в коде pFIBDataSet4.SQLs.SelectSQL.Text нет слова FROM