непонятки с Combobox

[MaXoN66613]

Доброго времени суток вам.
у меня такая проблема. Есть база(mssql2008r2), есть интерфейс(пишу на эмбракадеро ХЕ)
конекчусь к базе через TAdoconnection и TAdoquery
суть проблемы в чем, как добавлять данные, в принцепе понятно, это просто если используется только Edit но вот как Combobox работать я не понимаю, облазил кучу форумов по перепробовал много всего и все ровно что то упускаю, не получается сделать чтобы в комбобокс отображались нужные данные

код комбобокса

procedure TForm2.Box1Change(Sender: TObject);
begin
try
with Query do
begin
Query.SQL.clear;
Query.SQL.text:='select * from types' +IntToStr(box1.Text);

Query.Close;
box1.ItemIndex := -1;
box1.Text := '';
end;

end;
end;

это код самой процедуры добавления данных, но не знаю на сколько работоспособен.

procedure TForm2.Button2Click(Sender: TObject);
begin
Query.Sql.Clear;
Query.Sql.Add('insert into Device (ID, name, type, predel)values ('''+Edit1.Text+''','''+Edit2.Text+ ''','''+Edit3.Text+''', ''' + IntToStr(Box1.ItemIndex) + ''')');
Query.ExecSQL;
query.Close;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Box1.ItemIndex:= 0;
UpdateSG5
end;

В Общем Буду очень благодарен за помощь, до меня трудно это доходит но если показать на примере я пойму как это будет работать.
Заранее спасибо за помощ

[MaXoN66613]

Сообщение от MaXoN66613

Доброго времени суток вам.
у меня такая проблема. Есть база(mssql2008r2), есть интерфейс(пишу на эмбракадеро ХЕ)
конекчусь к базе через TAdoconnection и TAdoquery
суть проблемы в чем, как добавлять данные, в принцепе понятно, это просто если используется только Edit но вот как Combobox работать я не понимаю, облазил кучу форумов по перепробовал много всего и все ровно что то упускаю, не получается сделать чтобы в комбобокс отображались нужные данные

код комбобокса



это код самой процедуры добавления данных, но не знаю на сколько работоспособен.


В Общем Буду очень благодарен за помощь, до меня трудно это доходит но если показать на примере я пойму как это будет работать.
Заранее спасибо за помощ

procedure TForm2.Box1Change(Sender: TObject);
begin
try
with Query do
begin
Query.SQL.clear;
Query.SQL.text:='select Типы_Приборов from Types' +IntToStr(Box1.ItemIndex);
     Open;
      if Fields[0].Value = 0 then
Query.Close;
Box1.ItemIndex := -1;
Box1.Text := '';
end;
except
end;
end;

если так, то не выдает ошибок но все ровно, строки в комбобокс не отображаются