Добавление данных в таблицу Access

@Amilman · Регистрация: 10.03.2011

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

Добрый день всем. У меня вопрос как можно с одной формы занести данные в разные таблицы нажатием одной кнопки?
Использую код такого вида:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
procedure TForm4.Button5Click(Sender: TObject);
begin
  try
    if (Trim(Edit_fio.Text) = '') or (Trim(Edit_name.Text) = '') or
      (Trim(Edit_otch.Text) = '') then
    begin
      exit;
    end;
    DataModule1.ADOQuery2.Insert;
    DataModule1.ADOQuery2.FieldByName('Фамилия').AsString := Edit_fio.Text;
    DataModule1.ADOQuery2.FieldByName('Имя').AsString := Edit_name.Text;
    DataModule1.ADOQuery2.FieldByName('Отчество').AsString := Edit_otch.Text;
    DataModule1.ADOQuery6.FieldByName('Серия').AsInteger :=
      StrToInt(Edit8.Text);
    DataModule1.ADOQuery6.FieldByName('Номер').AsInteger :=
      StrToInt(Edit9.Text);
    DataModule1.ADOQuery6.FieldByName('дата_рождения').AsInteger :=
      StrToInt(MaskEdit1.Text);
    DataModule1.ADOQuery6.FieldByName('Место_рождения').AsString := Edit10.Text;
    DataModule1.ADOQuery6.FieldByName('Тип_документа').AsString := Edit11.Text;
    DataModule1.ADOQuery6.FieldByName('Дата_выдачи').AsInteger :=
      StrToInt(MaskEdit1.Text);
    DataModule1.ADOQuery6.FieldByName('Кем_выдан').AsString := Edit12.Text;
    DataModule1.ADOQuery6.FieldByName('Индекс_1').AsInteger :=
      StrToInt(Edit13.Text);
    DataModule1.ADOQuery6.FieldByName('Населённый_пункт_1').AsString :=
      Edit14.Text;
    DataModule1.ADOQuery6.FieldByName('Улица_1').AsString := Edit15.Text;
    DataModule1.ADOQuery6.FieldByName('Дом_1').AsString := Edit16.Text;
    DataModule1.ADOQuery6.FieldByName('Корпус_1').AsInteger :=
      StrToInt(Edit17.Text);
    DataModule1.ADOQuery6.FieldByName('Квартира_1').AsInteger :=
      StrToInt(Edit18.Text);
    DataModule1.ADOQuery6.FieldByName('Индекс_2').AsInteger :=
      StrToInt(Edit19.Text);
    DataModule1.ADOQuery6.FieldByName('Населённый_пункт_2').AsString :=
      Edit20.Text;
    DataModule1.ADOQuery6.FieldByName('Улица_2').AsString := Edit21.Text;
    DataModule1.ADOQuery6.FieldByName('Дом_2').AsString := Edit22.Text;
    DataModule1.ADOQuery6.FieldByName('Корпус_2').AsInteger :=
      StrToInt(Edit23.Text);
    DataModule1.ADOQuery6.FieldByName('Квартира_2').AsInteger :=
      StrToInt(Edit24.Text);
    DataModule1.ADOQuery6.FieldByName('id_info').AsInteger :=
      (seInfo.Value);
    Edit_fio.Clear;
    Edit_name.Clear;
    Edit_otch.Clear;
    DataModule1.ADOQuery2.Refresh;
    DataModule1.ADOQuery6.Refresh;
  except
    on e: Exception do
  end;
end;

@Gashenev_Sergei · 02.01.2017, 18:04

Тема добавления записей в таблицу Базы Данных избитая...
Но вопросы всё ж остаются...
Подскажите, что делаю неправильно?

Lesnichestvo - переменная типа sting. Имеет значение 'Варгашинское'

@qwertehok · 02.01.2017, 18:13

вы бы хоть примеры смотрели
на сайте Delphi все написано

Delphi
1
2
3
query.active:=False; // это на всякий случай если где-то забыли
query.sql.text:='insert ' // тут запрос, sql.text что бы не надо было очищать
query.execSQL; // выполняем

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

@Gashenev_Sergei 0 / 0 / 0 Регистрация: 05.11.2014 Сообщений: 42
	02.01.2017, 18:04
	Тема добавления записей в таблицу Базы Данных избитая... Но вопросы всё ж остаются... Подскажите, что делаю неправильно? Lesnichestvo - переменная типа sting. Имеет значение 'Варгашинское' Миниатюры 0