Ещё раз обрисую задачу.
Мне нужно что бы при выборе определенного значения из всплывающего списка DBLookupComboBox1 в DBLookupComboBox2 выводился результат выборки динамического запроса.
Вот что имеется на форме:
БД сделана в Access, имеются 2 таблицы: Speaker и Power:
Как я думаю решать эту задачу:
1) при выборе определенного значения из всплывающего списка DBLookupComboBox1 должен автоматически создаваться динамический запрос SQL по которому происходила бы выборка из связанных таблиц.
2) Далее результат выборки нужно визуально представить с помощью какого ни будь визуального компонента например DBLookupComboBox2
Вот кусок кода:
Код:
procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
Edit5.Text := DBLookupComboBox1.ListSource.DataSet.FieldByName(DBLookupComboBox1.KeyField).Value;
//Присваевает Edit5 значение чувствительности выбранной модели оповещателя
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
sql:= '"SELECT * FROM power WHERE [Модель] =' + Form1.DBLookupComboBox1.Text + '"';
ADOQuery2.SQL.Add(sql);
ADOQuery2.Open;
DBLookupComboBox2.KeyValue := DBLookupComboBox2.ListSource.DataSet.FieldByName(DBLookupComboBox2.KeyField).Value;
DBLookupComboBox2.Refresh;
end;
end.
При компиляции появляется сообщение об ошибке:
В общем нужна помощь уважаемые форумчане ...