Как записать данные в таблицу БД Access

[sergeykom]

Здравствуйте! Подскажите код записи данных из ADOQuery в БД Access 2003. Суть проблемы: Есть форма с 5-ю ComboBox'ами. По нажатию на кнопку "Записать" данные из всех ComboBox-ов должны записаться в одну из таблиц БД Access (таблица Equipment). Таблица Equipment является дочерней к 2-м таблицам Brand и Type (содержит вторичные ключи их IDType и IDName). Таблицы Brand и Type имеют по 2 поля каждая - IDBrand и NameBrand, IDType и NameType. Из 5-ти ComboBox 3 заполнены данными непосредственно из этой-же таблицы Equipment. А 2 ComboBox отображают NameBrand и TypeBrand соответственно. В таблицу Equipment нужно записать IDType и IDBrand, соответствующие указанным в ComboBox NameType и NameBrand, а также данные 3-х других ComboBox. Пробовал записывать через ADOTable, однако данные Combobox, содержащие поля непосредственно из этой же таблицы, куда и записываю, вставляются просто, а как "вытянуть" IDType и IDBrand из NameBrand и NameType и вставить их в этом же запросе - не пойму. Аналогично через ADOQuery - данные Combobox, содержащие поля непосредственно из этой же таблицы, куда и записываю, вставляются просто, а для того, чтобы узнать IDType и IDBrand, нужно придумать, наверное, "запрос в запросе". Как?

[Stilet]

Пробовал записывать через ADOTable, однако данные Combobox, содержащие поля непосредственно из этой же таблицы, куда и записываю, вставляются просто, а как "вытянуть" IDType и IDBrand из NameBrand и NameType и вставить их в этом же запросе - не пойму.

В этом случае нужно не Combobox а DBLoockUpComboBox использовать.
Если уж речь идет о ADOTable конечно )

Вообще ответ банален и обиден: Записывай как полагается.
Другое дело что сложно понять что у тебя за структура по такому описанию, и непонятно как ты наполняешь свои КомбоБоксы.
Приведи что-ли скрин базы со связями, и код наполнения комбиков, может тогда станет понятнее.

[sergeykom]

я использовал Combobox и заполнил их без проблем. Теперь нужно на основе заполненных ComboBox внести новые данные в таблицу. Combobox заполнял следующим образом:

  with DM do
  begin
    ADOQSelType.Close;
    ADOQSelType.SQL.Clear;
    ADOQSelType.SQL.Add('SELECT TypeName FROM Type');
    ADOQSelType.Open;
    cbSelType.Items.Clear;
    while not ADOQSelType.Eof do
    begin
      cbSelType.Items.Add(ADOQSelType['TypeName']);
      ADOQSelType.Next;
    end;
  end;

[sergeykom]

Проблема решена! Все просто: сначала через ADOQuery вытягиваем нужный ID, а затем через ADOTable вставляем данные, например, как здесь:
ADOTAddEq['EqType']:=ADOQSelIDType.FieldByName('TypeID ').AsVariant;

[Stilet]

сначала через ADOQuery вытягиваем нужный ID, а затем через ADOTable вставляем данные

А еще лучше:

  with DM do
  begin
    ADOQSelType.Close;
    ADOQSelType.SQL.Clear;
    ADOQSelType.SQL.Add('SELECT ID,TypeName FROM Type');
    ADOQSelType.Open;
    cbSelType.Items.Clear;
    while not ADOQSelType.Eof do
    begin
      cbSelType.AddItem(ADOQSelType['TypeName'],TObject(ADOQSelType.FieldByName('ID').AsInteger));
      ADOQSelType.Next;
    end;
  end;

А в ADOTable подставлять integer(cbSelType.Objects[cbSelType.ItemIndex]); не забывая проверять ItemIndex на -1