Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 18.08.2015
Сообщений: 2

Вставка строки из одной таблицы в другую

18.08.2015, 09:28. Показов 1156. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый день.Есть 2 таблицы со списком работников. Нужно сделать так, чтобы можно было нажать во второй таблице на строчку работника, которого необходимо добавить в список, потом нажать на кнопку "Добавить" и данные о работнике (ФИО и специальность )переместились бы из второй таблицы в первую. На событие кнопки Click пишу такой код:
Delphi
1
2
3
 DataModule1.ClientDataSet4.Insert;
   DataModule1.ClientDataSet4.FieldByName('worker').AsString :=OKBottomDlg3.ClientDataSet1.FieldByName('fio').AsString;
   DataModule1.ClientDataSet4.Post;
В результате переписываетя фио работника,на котором стоит курсор в первой таблице, а надо чтобы работник был добавлен к числу тех что уже имеются. Что делаю не так,подскажите пжлйста.Заранее спасибо=)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.08.2015, 09:28
Ответы с готовыми решениями:

Вставка ID из одной таблицы в другую!
Здравствуйте, подскажите пожалуйста, как вставить Id из таблицы Клиенты в таблицу договор, при том что вставка данных сразу делается и в...

SQLite вставка из одной таблицы в другую
Добрый день! Есть таблица A. В ней куча записей, мне надо выполнить копирование из этой таблицы в аналогичную B с выборкой. Вот код...

Вставка фиксированных записей одной таблицы в другую
Помогите, пожалуйста! Суть проблемы такова: Есть таблица_1 в которой поля: Фамилия, Имя, Отчество, номер_удостоверения(Primary_key) и...

3
Эксперт Pascal/Delphi
 Аватар для xxbesoxx
1135 / 616 / 129
Регистрация: 13.02.2009
Сообщений: 3,600
18.08.2015, 10:38
Цитата Сообщение от Tane4ka87 Посмотреть сообщение
а надо чтобы работник был добавлен к числу тех что уже имеются.
Боле конкретно .! Вам надо добавить работник , из Tab1 который есть Tab1 и нету на Tab2 ? и на какой СУБД вы работайте ?
0
0 / 0 / 0
Регистрация: 18.08.2015
Сообщений: 2
18.08.2015, 15:50  [ТС]
СУБД Oracle.Две таблицы с одинаковыми списками работников.Мне нужно,если пользователь случайно удалит не того работника из списка таблицы tab1,то по клику правой кнопки мышки и выбрав соответсвующий пункт контекстного меню для него появляется форма,в которой отображена таблица tab2 с точно таким же списоком работников,где ему надо будет выбрать нужного работника и добавить его в список таблицы tab1.
0
Эксперт Pascal/Delphi
 Аватар для xxbesoxx
1135 / 616 / 129
Регистрация: 13.02.2009
Сообщений: 3,600
18.08.2015, 18:54
1) На пример создаю таблицу Tab1
Oracle 11 SQL
1
2
3
4
CREATE TABLE Tab1(empid NUMBER(10),
                  fname VARCHAR(25),
                  lname VARCHAR(25)
                 );
2) Создаю второе таблицу tab1_backup и все данных из Tab1 буду здесь хранить
Oracle 11 SQL
1
2
3
4
CREATE TABLE tab1_backup(empid NUMBER(10),
                         fname VARCHAR(25),
                         lname VARCHAR(25)
                        );

3) На таблицу Tab1 буду вешать триггер AFTER INSERT
Oracle 11 SQL
1
2
3
4
5
6
7
CREATE OR REPLACE TRIGGER Tab1_after_insert AFTER INSERT ON Tab1
  FOR EACH ROW
  DECLARE
BEGIN
  INSERT INTO tab1_backup VALUES (:NEW.empid, :NEW.fname, :NEW.lname);
  DBMS_OUTPUT.PUT_LINE('Record successfully inserted into emp_backup table');
END;
4) Делаю INSERT Tab1
Oracle 11 SQL
1
2
3
4
5
INSERT INTO Tab1 VALUES(1,'Ivane','Ivanov');
COMMIT;
-- еще INSERT
INSERT INTO Tab1 VALUES(2,'Vasia','Pupkin');
COMMIT;
5) Проверяю Tab1 и tab1_backup что бы убедиться на том что мой триггер работает
Oracle 11 SQL
1
2
3
SELECT * FROM tab1
-- И
SELECT * FROM tab1_backup
Здесь уже все нормально работает
6) Давайте удаляем данных из Tab1
Oracle 11 SQL
1
2
DELETE FROM Tab1 WHERE empid=1;
COMMIT;
и восстанавливаю из таблиц tab1_backup
Oracle 11 SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
-- Здесь восстанавливаю  только те запись где  empid=1;
INSERT INTO Tab1 (empid, fname, lname) 
SELECT b.empid, b.fname, b.lname
FROM tab1_backup b
WHERE empid=1;
COMMIT;
--А здесь уже все запись который есть tab1_backup и нету Tab1
INSERT INTO Tab1 (empid, fname, lname) 
            SELECT b.empid, b.fname, b.lname
            FROM tab1_backup b
WHERE NOT EXISTS(SELECT empid, fname, lname FROM  Tab1
                 WHERE Tab1.empid=b.empid
                 AND Tab1.fname=b.fname
                 AND Tab1.lname=b.lname)
Но здесь уже смотрите данных 1,'Ivane','Ivanov' еще попадает таблицу tab1_backup из нашего триггеров за эту буду писать так
Oracle 11 SQL
1
2
3
4
SELECT b.empid, b.fname, b.lname
FROM tab1_backup b
GROUP BY b.empid, b.fname, b.lname
ORDER BY 1 ASC
Код который для восстановление запись можно использовать через AdoQuery или OraQuery не знаю вы работайте через ADO или ODAC все это ваши попитка решение это задачи Я на пример НЕ УДАЛЯЛ запись из таблиц реализовал его по другому
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.08.2015, 18:54
Помогаю со студенческими работами здесь

Сравнение и вставка данных из одной таблицы в другую
Добрый вечер, друзья! Имеются 2 таблицы в БД. У меня такая задача: вставить данные из Таблица2.Столбец3 где...

Вставка данных из одной таблицы в другую через форму
Такая вот проблема.Есть две формы на две таблицы соответственно.В таблицах совпадают столбцы "Модель". На первой форме есть...

Выборка уникальных значений из одной таблицы и вставка в другую
Добрый день .Выбираю уникальные значения из одной таблицы и вставляю в другую INSERT INTO table1(title)VALUES(SELECT DISTINCT...

Вставка всех записей одного столбца из одной таблицы в другую
Есть 2 таблицы Таблица 1. Поле ID. Поле значение. Таблица 2. Поле_1 Поле_2

Функция insert, вставка одной строки в другую
Нужно написать функцию insert, которая принимает строку, индекс символа в этой строке, а также строку с определенной надписью и вставляет...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru