Вывести в DBGrid значения из DBLookupComboBox

[фЁдОр]

[QUOTE=D-mon;49746]Ну так так и сделано...
QUOTE] Все правильно! Но почему, когда я запускаю приложение, компилятор чинает сразу в Uses ругаться на SQLServer?

[D-mon]

Удаляй всё на что ругается. У меня просто много сторонних компонентов, вот и подтягиваются ненужные штуки в Uses...

[фЁдОр]

я в Uses поудалял все на что ругается компилятор, но потом начинает ругаться на эту строку:

ADOQuery2.SQL.Add('select Towars.id_group, Towars.towar, GR.group from Towars left join (select id_group as id_g, group from Groups)GR on GR.id_g=Towars.id_group where Towars.id_group='+VarToStr(DBLookupCombobox1.KeyValue));

[D-mon]

ADOQuery2.SQL.Add('select Towars.id_group, Towars.towar, GR.group from Towars left join (select id_group as id_g, group from Groups)GR on GR.id_g=Towars.id_group where Towars.id_group='+VarToStr(DBLookup Combobox1.KeyValue));
замени на
ADOQuery2.SQL.Add('select Towars.id_group, Towars.towar, GR.group from Towars left join (select id_group as id_g, group from Groups)GR on GR.id_g=Towars.id_group where Towars.id_group='+IntToStr(DBLookup Combobox1.KeyValue));

[фЁдОр]

Я заменил, он ругнулся на эту процедуру:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'111.mdb;Persist Security Info=False';
  ADOQuery1.Active:=true;
end;

Я ее тупо закоментировал:

procedure TForm1.FormCreate(Sender: TObject);
begin
// ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'111.mdb;Persist Security Info=False';
 // ADOQuery1.Active:=true;
end;

И все получилось!
D-mon, спасибо Вам большое!

[D-mon]

текст Баттона помести в событие CloseUp компонента DBLookupComboBox1

[фЁдОр]

Сообщение от D-mon

текст Баттона помести в событие CloseUp компонента DBLookupComboBox1

Да я понял, только я этот текст поместил на событие onClick компонента DBLookupComboBox1.