Перенос данных из одной БД в другую

@Eliceyka · Код Имя Фамилия Город Пол

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

Добрый день имеем две таблицы

Код	Имя	Фамилия	Город	Пол
1	Настя	Пупкина	Хабаровск	Женский
2	Антон	Филиппов	Москва	Паркет

Код	Имя	Фамилия	Город
1	Лидия	Мышь	Самара
2	Аркадий	Петренко	Москва

Обе таблицы находятся в одной БД ACCESS и Коннектятся и управляются с помощью ADOConnection, ADOTable, DataSource.

Как же мне сделать так, чтобы по нажатию на кнопку все данные из таблицы 2 перекочевали в таблицу 1?
Еще момент, что во второй таблице ПОЛ не указывается, т.е. нужно чтобы Имя ушло в Имя, Фамилия в Фамилию, а Город в Город, при том, Код должен быть уникальным, а пол вовсе не затрагиваться (Он будет перемещаться из другого места)

Итог должен получится такое:

Код	Имя	Фамилия	Город	Пол
1	Настя	Пупкина	Хабаровск	Женский
2	Антон	Филиппов	Москва	Паркет
3	Лидия	Мышь	Самара
4	Аркадий	Петренко	Москва

Господа ГУРУ, выручайте!

@D1973 · 17.03.2020, 17:28

Не по теме:

В Москве есть у людей пол "Паркет"??? Отстал я от жизни, однако...

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

Как же мне сделать так

Да, в общем-то, никак... Эти 2 таблицы никак не связаны... Почему что-то там должно, по Вашему, перенумеровываться и куда-то что-то переноситься? Либо выдывайте более полную информацию, либо пересматривайте структуру своей БД (что скорее всего и требуется)... Ну и, собственно, это вопрос не в том разделе. Сообразите, как работать с Вашей БД вот тут, а уж потом переносите запрос в Delphi...

@Eliceyka · 17.03.2020, 17:34 **[ТС]**

Пытался сделать следующим образом:

C++
1
2
3
4
5
Form1->ADOTable3->Fields->Fields[0]->Value=Form1->ADOTable3->RecordCount+1; //Добавляем строку в таблице куда переносим данные
Form1->ADOTable3->Fields->Fields[7]->Value=Form1->ADOTable4->Fields->Fields[1]->Value; //Переносим данные из ячейки №7 в Ячейку №1
Form1->ADOTable3->Fields->Fields[8]->Value=Form1->ADOTable4->Fields->Fields[2]->Value; //Переносим данные из ячейки №8 в Ячейку №2
Form1->ADOTable3->Fields->Fields[11]->Value=Form1->ADOTable4->Fields->Fields[3]->Value; //Переносим данные из ячейки №11 в Ячейку №3
Form1->ADOTable3->Fields->Fields[12]->Value=Form1->ADOTable4->Fields->Fields[4]->Value; //Переносим данные из ячейки №12 в Ячейку №4

Но всё безуспешно

Добавлено через 1 минуту
По нажатию на кнопку у меня создается новая строка и присваивается следующий порядковый номер, это я сделал, а далее нужно из конкретной ячейки перенестись в конкретную, я думаю Билдер владеет такой техникой)

Добавлено через 2 минуты
Кому интересно получилось сделать именно так

C++
1
2
3
4
5
Form1->ADOTable3->Fields->Fields[0]->Value=Form1->ADOTable3->RecordCount+1; //Добавляем строку в таблице куда переносим данные
Form1->ADOTable3->Fields->Fields[7]->Value=Form1->ADOTable4->Fields->Fields[1]->Value; //Переносим данные из ячейки №7 в Ячейку №1
Form1->ADOTable3->Fields->Fields[8]->Value=Form1->ADOTable4->Fields->Fields[2]->Value; //Переносим данные из ячейки №8 в Ячейку №2
Form1->ADOTable3->Fields->Fields[11]->Value=Form1->ADOTable4->Fields->Fields[3]->Value; //Переносим данные из ячейки №11 в Ячейку №3
Form1->ADOTable3->Fields->Fields[12]->Value=Form1->ADOTable4->Fields->Fields[4]->Value; //Переносим данные из ячейки №12 в Ячейку №4

Просто я забыл перед этим прописать

C++
1
Form1->ADOTable3->Insert();

@D1973 · 17.03.2020, 17:52

Не по теме:

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

Кому интересно получилось сделать именно так

Ну ничего-ничего... Если это не школьная задачка из категории "сдать и забыть" - то через годик-другой Вы, таки, поймете, что правильное проектирование БД и использование SQL запросов при работе - это наше все и пользоваться вот этими DB* компонентами - просто ...

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip