Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=413665&view=findpost&p=3795828 Wed, 17 Apr 2019 05:40:01 +0000 Добавление записей в 2 таблицы, которые находятся на 2 формах https://forum.sources.ru/index.php?showtopic=413665&view=findpost&p=3795828
    Adoquery3.insert;
    Adoquery.FieldByName('Name_field').asString:=dbedit.text;
    Adoquery3.post;

Насчет закрытого датасета, мб забыли открыть query на событии oncreate DataModule?]]> brookhut Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=413665&view=findpost&p=3780754 Mon, 15 Oct 2018 18:28:45 +0000 Добавление записей в 2 таблицы, которые находятся на 2 формах https://forum.sources.ru/index.php?showtopic=413665&view=findpost&p=3780754 Дело так: на форме "Добавление записей" несколько DBEdit для разных таблиц и кнопка "Сохранить". Код в этой кнопке:
    ADOQuery1.Insert;
    if ADOQuery1.Modified then ADOQuery3.Post; //этот код меняет существующие записи во 2-ой таблице в форме №2(то, чего удалось добиться), но не создает новые
    ADOQuery3.Insert;
    modalResult:=mrOk;

Этот код меняет только существующую запись (или добавляет новую в 1 таблицу. Естественно на форме №1 есть кнопка, которая создает новую запись в 1 и 2 таблицах).
При добавлении новой записи в форму №2 меняется 1-ая строка в 2 таблице, а новая почему-то не добавляется. А мне нужно, чтоб создавалась своя строка.

Таблицы у меня подключены через ADOQuery, а данные из Access.

Мои попытки: я создала связи между таблицами в Delphi (т.к. в начале компилятор ругался на отсутствие связей).
    ADOQuery3.Close;
    ADOQuery3.Parameters[0].Value:=ADOQuery1.FieldByName('Kod').Value;
    ADOQuery3.Open;

Код в SQL:
    SELECT * FROM Table1  WHERE Table1.Kod=:Kod

Но данные из Access вообще не выводятся. Кроме этого, когда я нажимаю кнопку "Добавить запись" возникает ошибка: adoquery1: cannot perform this operation on a closed dataset

Я не знаю, что еще можно предпринять, помогите пожалуйста...]]> лолоа Delphi: Базы данных