Показать сообщение отдельно
  #9  
Старый 13.10.2013, 22:25
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию

Я налажал (болею):
Код:
Select Distinct(Колнка_по_которой_идёт_выбрка) AD DistVar From ваша_база.вааш_таблица

Далее в коде на кнопку:
ADOQuery1.Open;
while not ADOQuery1.EOF do
begin
ComboBox1.Items.Add(ADOQyery1.FieldByName('DistVar ').AsString);
ADOQuery1.Next;
end;

Далее выбираем параметр и шлём запрос:

Код:
procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
 
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
 
sql:= 'SELECT * FROM power WHERE [Модель] = ' + QutedStr(ComboBox1.Text);
 
ADOQuery2.SQL.Add(sql);
ADOQuery2.Open;
end;

Вроде всё. Я бы реализовывал не так. Но с учётом недостатка знаний, не стал менять ваш код.