Добавление в связанные таблицы.

@CfgHack · Регистрация: 07.02.2015

Студворк — интернет-сервис помощи студентам

Всем привет. Пытаюсь добавить записи в связанные таблицы, но выходит ошибка "Feild ID cant be modifed".
Связь 1 ко 1 через ID (счётчик). В accesse в схеме всё связал. Если заполнить данные через Access, то все отображается нормально
Добавляю так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
with Form_MainMenu.adoquery2 do begin form_MainMenu.ADOConnection2:=form_MainMenu.ADOConnection2;
Form2.adoquery2.Insert;
Form2.ADOQuery2.FieldByName('Tachka').AsString:=Edit_result.Text;
form2.adoquery2.FieldByName('Nomer').AsString:=Edit_Tachka.Text;
Form2.adoquery2.post;
end;
with  Form_MainMenu.adoquery1 do begin  Form_MainMenu.adoconnection1:= Form_MainMenu.adoconnection1 ;
Form_MainMenu.adoquery1.insert;
Form_MainMenu.adoquery1.fieldbyname('FIO').AsString:=Edit1.text;
Form_MainMenu.adoquery1.fieldbyname('Mobile').AsString:=Edit2.text;
Form_MainMenu.adoquery1.post
end;

Тачка дочерняя должна быть, а человек главная. Но при связке получилось походу наоборот. У тачки, есть человек. Но не важно наверно, главное чтобы добавляло нормально, а оно не добавляет. Если сначало добавлять данные про человека, а потом про тачку, то ошибок нет, но добавлявляет ТОЛЬКО человека, а тачку не добавялет

@qwertehok · 15.05.2017, 19:14

это что за фигня?

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

Form_MainMenu.adoconnection1:= Form_MainMenu.adoconnection1

проблемы со связями это не к делфи вопрос, а к аксессу
ЗЫ зачем вообще в аксессе связывать? почему бы не самому?

@YuryK · 15.05.2017, 23:18

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

Связь 1 ко 1 через ID (счётчик)

ID (счётчик) - это только в главной таблице. В подчиненной должен быть iD - ЦЕЛОЕ

ПОСЛЕ Form2.adoquery2.post; В form2.adoquery2.FieldByName('Id').asInte ger должен быть id вставленой записи, вот его и надо присвоить в качестве Id-а подчиненной записи

Delphi
1
Form_MainMenu.adoquery1.fieldbyname('id').AsInteger:= form2.adoquery2.FieldByName('Id').asInteger

@CfgHack · 16.05.2017, 14:15 **[ТС]**

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

зачем вообще в аксессе связывать? почему бы не самому?

А можно пример? Как это можно сделать

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

ID (счётчик) - это только в главной таблице. В подчиненной должен быть iD - ЦЕЛОЕ
ПОСЛЕ Form2.adoquery2.post; В form2.adoquery2.FieldByName('Id').asInte ger должен быть id вставленой записи, вот его и надо присвоить в качестве Id-а подчиненной записи
Delphi

Поменял убрал счетчик, поставил числовой, сделал ID_rent. Связал. Но ничего не выходит опять, либо какую-то гиганскую ошибку выводит, либо добавляет данные только в таблицу человек . скорее всего я что-то не так делаю

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
with Form_MainMenu.adoquery2 do begin form_MainMenu.ADOConnection2:=form_MainMenu.ADOConnection2;
Form2.adoquery2.Insert;
Form2.ADOQuery2.FieldByName('Tachka').AsString:=Edit_result.Text;
form2.adoquery2.FieldByName('Nomer').AsString:=Edit_Tachka.Text;
Form2.adoquery2.post; end;
with  Form_MainMenu.adoquery1 do begin  Form_MainMenu.adoconnection1:= Form_MainMenu.adoconnection1 ;
Form2.adoquery1.insert;
Form2.ADOQuery1.FieldByName('ID_rent').AsString:=Form2.adoquery1.fieldbyname('ID').AsString;
Form2.adoquery1.fieldbyname('FIO').AsString:=Edit1.text;
Form2.adoquery1.fieldbyname('Mobile').AsString:=Edit2.text;
Form2.adoquery1.post
end;

Добавлено через 5 минут
точнее вот так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
with  Form_MainMenu.adoquery1 do begin  Form_MainMenu.adoconnection1:= Form_MainMenu.adoconnection1 ;
Form2.adoquery1.insert;
Form2.adoquery1.fieldbyname('FIO').AsString:=Edit1.text;
Form2.adoquery1.fieldbyname('Mobile').AsString:=Edit2.text;
Form2.adoquery1.post
end;
with Form_MainMenu.adoquery2 do begin form_MainMenu.ADOConnection2:=form_MainMenu.ADOConnection2;
Form2.adoquery2.Insert;
Form2.ADOQuery2.FieldByName('ID_rent').AsString:=Form2.adoquery1.fieldbyname('ID').AsString;
Form2.ADOQuery2.FieldByName('Tachka').AsString:=Edit_result.Text;
form2.adoquery2.FieldByName('Nomer').AsString:=Edit_Tachka.Text;
Form2.adoquery2.post; end;

@YuryK · 16.05.2017, 14:39

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

либо какую-то гиганскую ошибку выводит

ждем экстрасенсов, может они скажут, что за ошибка

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

Form_MainMenu.adoconnection1:= Form_MainMenu.adoconnection1 ;

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

form_MainMenu.ADOConnection2:=form_MainM enu.ADOConnection2;

у вас уже спрашивали, зачем это?
уточню, зачем ДВА РАЗНЫХ ADOConnection?
в отладчике посмотрите после Form2.adoquery1.post значение Form2.adoquery1.fieldbyname('ID').AsStri ng определено?

@CfgHack · 16.05.2017, 14:59 **[ТС]**

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

у вас уже спрашивали, зачем это?

Тут косяк с end; возник, не там поставил его. Теперь все добавило, однако с ошибкой "Индекс или ключ не может содержать пустое значение null"
и данные не сохраняет
Сделал сейчас вот так вот:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
with  Form_MainMenu.adoquery1 do begin 
Form2.adoquery1.insert;
Form2.adoquery1.fieldbyname('FIO').AsString:=Edit1.text;
Form2.adoquery1.fieldbyname('Mobile').AsString:=Edit2.text;
Form2.adoquery1.post
end;
with Form_MainMenu.adoquery2 do begin 
Form2.adoquery2.Insert;
Form2.ADOQuery2.FieldByName('ID_rent').AsString:=Form2.adoquery1.fieldbyname('ID').AsString;
Form2.ADOQuery2.FieldByName('Tachka').AsString:=Edit_result.Text;
form2.adoquery2.FieldByName('Nomer').AsString:=Edit_Tachka.Text;
Form2.adoquery2.post; end;

Добавлено через 8 минут
В отладчике самый последник end; помечается в процедуре кнопки. воозможго не так провел его

@YuryK · 16.05.2017, 15:01

значит после post fieldbyname('ID') в набор не возвращается. Тогда найдите эту запись, основные критерии поиска то у вас есть

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
with  Form_MainMenu.adoquery1 do begin 
  Form2.adoquery1.insert;
  Form2.adoquery1.fieldbyname('FIO').AsString:=Edit1.text;
  Form2.adoquery1.fieldbyname('Mobile').AsString:=Edit2.text;
  Form2.adoquery1.post;
  Form2.adoquery3.Close;
  Form2.adoquery3.fieldbyname('FIO').AsString:=Edit1.text;
  Form2.adoquery3.fieldbyname('Mobile').AsString:=Edit2.text;
  Form2.adoquery3.Open;
end;
...
  Form2.ADOQuery2.FieldByName('ID_rent').AsString:=Form2.adoquery3.fieldbyname('ID').AsString;

где в Form2.adoquery3 (или другом компоненте, если adoquery3 уже есть) параметрический запрос на поиск последней добавленной записи

SQL
1
SELECT MAX(IS) AS ID FROM <куда там человеков пишите> WHERE FIO = :FIO AND Mobile = :Mobile

@CfgHack · 16.05.2017, 15:55 **[ТС]**

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

значит после post fieldbyname('ID') в набор не возвращается. Тогда найдите эту запись, основные критерии поиска то у вас есть

Странно, пишет поле ID не найдено. Кстате, там где было ID_rent, я сделал просто ID.
Сделал так, добавил новый adoquery, связал его с adoconnction и с datasource (Из таблицы человеки) сделал такой код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
with  Form_MainMenu.adoquery1 do begin 
  Form2.adoquery1.insert;
  Form2.adoquery1.fieldbyname('FIO').AsString:=Edit1.text;
  Form2.adoquery1.fieldbyname('Mobile').AsString:=Edit2.text;
  Form2.adoquery1.post;
  Form2.adoquery3.Close;
  Form2.adoquery3.fieldbyname('FIO').AsString:=Edit1.text;
  Form2.adoquery3.fieldbyname('Mobile').AsString:=Edit2.text;
  Form2.adoquery3.Open;
end;
with Form_MainMenu.adoquery2 do begin 
Form2.adoquery2.Insert;
Form2.ADOQuery2.FieldByName('ID').AsString:=Form2.adoquery3.fieldbyname('ID').AsString;
Form2.ADOQuery2.FieldByName('Tachka').AsString:=Edit_result.Text;
form2.adoquery2.FieldByName('Nomer').AsString:=Edit_Tachka.Text;
Form2.adoquery2.post; end;

В новый adoquery3 в свойствах, в SQL написал вот:

SQL
1
SELECT MAX(IS) AS ID FROM Piples WHERE FIO = :FIO AND Mobile = :Mobile

У меня больше полей в таблицах, в SQL прописал почти все, там дальше.
Не понятно, почему пишет ошибку при добавлении "Adoquery3:поле ID не найдено"

Добавлено через 6 минут
В отладке эта строка:

Delphi
1
Form2.ADOQuery2.FieldByName('ID').AsString:=Form2.adoquery3.fieldbyname('ID').AsString;

@YuryK · 16.05.2017, 16:05

MAX(IS)
опечатка
MAX(ID)

Добавлено через 1 минуту

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

У меня больше полей в таблицах, в SQL прописал почти все, там дальше.

больше то зачем, если при добавлении определяем только два?

@CfgHack · 16.05.2017, 16:14 **[ТС]**

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

больше то зачем, если при добавлении определяем только два?

Тоже об этом подумал.
Он серавно ругается на поле ID. В отладке на эту строчку

Delphi
1
Form2.ADOQuery2.FieldByName('ID').AsString:=Form2.adoquery3.fieldbyname('ID').AsString;

перепровряю сижу, вроде же всё правильно и в таблце есть это поле все указал

@YuryK · 16.05.2017, 16:20

connection у нового компонента adoquery3 проставили?

@CfgHack · 16.05.2017, 16:24 **[ТС]**

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

connection у нового компонента adoquery3 проставили?

Да, всё выставил. Привязал connection к adoconnection1 и datasource к datasource1

@YuryK · 16.05.2017, 16:36

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

и datasource к datasource1

зачем?

Добавлено через 3 минуты
пора уже проект заливать, если все попытки исправить самостоятельно проваливаются

а то у меня через полчаса полночь и

@CfgHack · 16.05.2017, 16:36 **[ТС]**

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

зачем?

По разному пробовать уже начал. Сейчас оставил только к adoconnection1 связку. Случайно кроме adpquery3 ничего больше добавлять не надо?

@CfgHack · 16.05.2017, 17:18 **[ТС]**

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

пора уже проект заливать

вот накидал. даже так, серавно ошибка эта, эх
версия Xe

@YuryK · 16.05.2017, 23:34

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

вот накидал. даже так

базу данных кинуть забыл. А та что есть не соответствует коду программы.

@CfgHack · 17.05.2017, 13:11 **[ТС]**

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

базу данных кинуть забыл. А та что есть не соответствует коду программы

База данных лежит рядом с exe. В папке win32/Debug/
А почему коду не соответствует? Также пытаюсь добавить, та-же самая ошибка. Правда тут она почему-то сохраняет данные в первую таблицу

@YuryK · 17.05.2017, 15:26

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

База данных лежит рядом с exe. В папке win32/Debug/

а у меня ехе в папке проекта был, потому базу и не находил, точнеее там старый вариант остался. Сорри.

Кстати, у меня все нормально с adoquery1.fieldbyname('Id').AsInteger после Post.

Поэтому такой код (без третьего query) вполне рабочий.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
begin
with  adoquery1 do begin
  adoquery1.insert;
  adoquery1.fieldbyname('FIO').AsString:=Edit1.text;
  adoquery1.fieldbyname('Mobile').AsString:=Edit2.text;
  adoquery1.fieldbyname('Fax').AsString:=Edit3.text;
  adoquery1.post;
end;
with adoquery2 do begin
adoquery2.Insert;
ADOQuery2.FieldByName('ID').AsInteger:=adoquery1.fieldbyname('Id').AsInteger;
ADOQuery2.FieldByName('Tachka').AsString:=Edit1.Text;
adoquery2.FieldByName('NomerTachki').AsString:=Edit2.Text;
adoquery2.post; end;
end;

А с третьим query я там перемудрил

с полями и параметрами

@CfgHack · 17.05.2017, 16:15 **[ТС]**

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

Поэтому такой код (без третьего query) вполне рабочий

Действительно работает.
Но в основном проекте пишет "Индекс или ключ не моджет содержать пустое значпение null".
У меня еще условия есть, там есть поле пол, пол выбирается через radiobutt. И условие вставки картинки. Условия задаются в основной таблице, ну туда данные добавляет из условий этих

Delphi
1
2
3
if radiobutt1.checked=true then form2.adoquery1.fieldbyname('Пол').asstring:='Мужской';
if radiobutt2.checked=true then form2.adoquery1.fieldbyname('Пол').asstring:='Женский';
if edit_locate<>'' then begin <код вставления картинки в базу> end;

Где edit_locate - это путь, указывается через диалоговое окно. Поставил сверку т.к. если не указать картинку, то крашило прогу, типо защита.
Возможно из-за этого ошибки? А может быть из-за того. что form2. Тоесть обращение с окна добавления к основному окну?
Фактически код такой же, отличие в только в этих условиях

@YuryK · 17.05.2017, 16:28

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

Действительно работает.
Но в основном проекте пишет "Индекс или ключ не может содержать пустое значение null".

Успехов в поисках ошибки по-аналогии, если код основного проекта настолько засекречен

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	16.05.2017, 16:20
	connection у нового компонента adoquery3 проставили? 0