Sql запрос

@niTecep · Регистрация: 08.05.2015

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

Delphi
1
2
3
4
5
6
7
8
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Таблица2 (фамилия, имя) ');
ADOQuery1.SQL.Add('SELECT фамилия, имя ');
ADOQuery1.SQL.Add('FROM Таблица1');
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='SELECT * FROM Таблица2';
ADOQuery1.Active:=true;

этот код что я кинул копирует записи, например занес я в таблицу 1, три записи
1
2
3 и беру нажимаю на кнопку с кодом они копируется
и во второй таблице появляются записи
1
2
3
а если я захочу опять добавить в таблицу 1 запись ещё например одну
4
и нажму копировать то в таблице 2 получится так
1
2
3
1
2
3
4
а как мне сделать чтобы в этот раз оно скопировала только 4 запись?
чтобы было
1
2
3
4

@MaximFegorsk · 14.05.2015, 21:56

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

ввел в поле ид, ид записи но изменений тоже не было

Можно скрин самой таблицы 1 и 2

@xxbesoxx · 14.05.2015, 22:01

Сообщение от Maxim*******

Можно скрин самой таблицы 1 и 2

на #8 сам БД скачайте и смотрите

@MaximFegorsk · 14.05.2015, 22:08

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

SQL
1
2
3
INSERT INTO t2
SELECT * FROM t1
WHERE код NOT IN (SELECT код FROM t2)

id - это и есть код

@xxbesoxx · 14.05.2015, 22:32

Сообщение от Maxim*******

Нужно разжевать

Вы код проверили на то базе и говорите что он работает ?

SQL
1
2
3
INSERT INTO Таблица2
SELECT * FROM  Таблица1
WHERE код NOT IN (SELECT код FROM  Таблица2)

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

Сообщение от Maxim*******

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

Оставите себе ..... плюсую тебя за уважение ( участников форума, за ваши вежливые выражения ) и за ваши неправильное решения Т.З

@MaximFegorsk · 14.05.2015, 22:35

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

Вы код проверили на то базе и говорите что он работает ?

True.

@MaximFegorsk · 14.05.2015, 22:44

Database10.rar
Качайте, смотрите. Там база с запросом и результатом выполнения.

@xxbesoxx · 14.05.2015, 22:55

Сообщение от Maxim*******

Там база с запросом и результатом выполнения.

Это код не работает .

T-SQL
1
2
3
4
INSERT INTO Таблица2
SELECT *
FROM Таблица1
WHERE код NOT IN (SELECT код FROM  Таблица2);

Т.З написано на #1 до сколко я должен смотреть ваши флуд ? и ваши хамски выражения ?

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

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

Не по теме:

Может вам давать что то другой в роту

@MaximFegorsk · 14.05.2015, 23:34

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

Т.З написано на #1 до сколко я должен смотреть ваши флуд ? и ваши хамски выражения ?

По Тз:

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

апример занес я в таблицу 1, три записи
1
2
3 и беру нажимаю на кнопку с кодом они копируется
и во второй таблице появляются записи

Мой запрос это сделает.

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

а если я захочу опять добавить в таблицу 1 запись ещё например одну
4
и нажму копировать то в таблице 2 получится так
1
2
3
1
2
3
4
а как мне сделать чтобы в этот раз оно скопировала только 4 запись?
чтобы было
1
2
3
4

Если в первую таблицу добавить одну запись и вновь выполнить запрос, то в таблицу 2 запишется только новая запись. И что тут не работает? Что не по ТЗ? Решаешь за низ ДЗ, ещё и доказывать свою правоту должен? Что не работает? Руки,наверное. Если что-то не выходит, нужно говорить конкретно ЧТО. А не отправлять в топку помощь.

@xxbesoxx · 15.05.2015, 00:01

Сообщение от Maxim*******

нужно говорить конкретно ЧТО.

Что вы меня раздражайте ваши вежливы выражениями ? задача уже решил на #9 . А сейчас постараюсь тебя доказать что ты флудиш и больше нечего !
------ Человек говорить
этот код что я кинул копирует записи, например занес я в таблицу 1, три записи
1
2
3 и беру нажимаю на кнопку с кодом они копируется
и во второй таблице появляются записи
1
2
3
Что здесь не понятно ?
Продолжаем
---------------------
а если я захочу опять добавить в таблицу 1 запись ещё например одну
4
и нажму копировать то в таблице 2 получится так
1
2
3
1
2
3
4
Он не хочет при нажатие кнопки копировать копировалось все данных который уже есть на таблицу2 что копировалось только то данных который есть на таблиц1 и нету таблицу2 и за просто решается это задача с помощью инструкции MERGE А вы что здесь пишите и каким выражений ?

@Joeymax · 15.05.2015, 01:43

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

Не будет работать примерно так ! причем тут LEFT JOIN t2 ON t1.id = t2.id вы смотрели структуру БД ?

Это же почему не будет работать? вот структура двух таблиц - 1)

2)

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

Вот данные для этих таблиц 1) три записи

2) нет записей

Сам запрос

Диалог при выполнении этого запроса

,
и соответственно результат - вторая таблица после выполнения запроса (три записи)

далее добавил пару записей в первую таблицу - вот таблица 1 с добавленными записями

и повторно выполнил запрос на добавление результат ниже. И что здесь не работает?

@xxbesoxx · 15.05.2015, 03:01

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

Это же почему не будет работать?

Мне не нужно ваши код и ваши скриншоти .... для интереса выложите это БД вашим сохраненим запроса и протестирую как работает .... Очень интересно как это у вас работает правильно

SQL
1
2
3
4
INSERT INTO Таблица2 ( код, фамилия, имя, отчест )
SELECT Таблица1.код, Таблица1.фамилия, Таблица1.имя, Таблица1.отчест
FROM Таблица1 LEFT JOIN Таблица2 ON Таблица1.код = Таблица2.код
WHERE (((Таблица2.код) IS NULL));

Что за диалог у вас ? человек подключается БД через Delphi и зам вложение SQL ......... ладно выложите БД с запросами как вас его работает ,

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

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

запрос на добавление результат ниже. И что здесь не работает?

А вы попробуйте удалить Таблица2 данных и выполните это запрос еще раз

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

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

вот структура двух таблиц - 1

Пардон да через Delphi работает правильно

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
begin
 with ADOQuery1 do
 begin
   Close;
   SQL.Text := 'INSERT INTO Таблица2 ( код, фамилия, имя, отчест ) '+
               ' SELECT Таблица1.код, Таблица1.фамилия, Таблица1.имя, Таблица1.отчест  '+
               ' FROM Таблица1 LEFT JOIN Таблица2 ON Таблица1.код = Таблица2.код  '+
               ' WHERE (((Таблица2.код) is null));';
   ExecSQL;
 end;
end;
 
end.

@niTecep · 15.05.2015, 15:33 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
begin
 with ADOQuery1 do
 begin
   Close;
   SQL.Text := 'INSERT INTO Таблица2 ( код, фамилия, имя, отчест ) '+
               ' SELECT Таблица1.код, Таблица1.фамилия, Таблица1.имя, Таблица1.отчест  '+
               ' FROM Таблица1 LEFT JOIN Таблица2 ON Таблица1.код = Таблица2.код  '+
               ' WHERE (((Таблица2.код) is null));';
   ExecSQL;
 end;
end;
 
end.

если таблица1 на, форме №1 а таблица2 на форме №2 Как запрос тогда написать?

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

@xxbesoxx · 15.05.2015, 17:10

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

Как запрос тогда написать?

Друг можно за просто заменить СУБД вот здесь есть обсуждения Замена СУБД в программе
и пишите в T-SQL то пример который у меня на #9 по инструкции MERGE

@niTecep · 16.05.2015, 01:00 **[ТС]**

@Bit_Man · 18.05.2015, 03:26

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

таблица1 на, форме №1 а таблица2 на форме №2

Причем здесь формы?? запрос выполняется на стороне СУБД.

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

через Delphi работает правильно

Код рабочий. Что еще не так?

@xxbesoxx · 18.05.2015, 09:10

Не по теме:

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

Что еще не так?

Да ладно, забудь ;) все нормально.

@bs2003 · 20.05.2015, 14:39

Bit_Man,

Здравствуйте!
Помогите разобраться что делаю не так. Из Delphi. База Access

1 Выбор всех записей с не пустым полем Объект:
DM.AQKr.Close;
DM.AQKr.SQL.Clear;
DM.AQKr.SQL.Add('SELECT JKross.ATS, JKross.Ramka, JKross.Para, JKross.Npco,') +
('JKross.Telefon, JKross.Object,') +
('Ulicy.Ulica, JKross.Dom, JKross.Korp, JKross.Kv, JKross.Data ') +
(', JKross.Ramka_K, JKross.Para_K, Spi.Spi, Tobj.Tip, Jkross.Code' ) +
(' FROM JKross, Ulicy, Spi, Tobj') +
('WHERE JKross.Ulica = Ulicy.Code ') +
('AND Spi.Code = JKross.Spi') +
('AND Tobj.Code = JKross.Tip') +
('AND JKross.Object <> ""') +
('ORDER BY JKross.ATS, JKross.Ramka, JKross.Para');
DM.AQKr.Open;

2 Выбор всех записей с пустым полем Объект:
DM.AQKr.Close;
DM.AQKr.SQL.Clear;
DM.AQKr.SQL.Add('SELECT JKross.ATS, JKross.Ramka, JKross.Para, JKross.Npco,') +
('JKross.Telefon, JKross.Object,') +
('Ulicy.Ulica, JKross.Dom, JKross.Korp, JKross.Kv, JKross.Data ') +
(', JKross.Ramka_K, JKross.Para_K, Spi.Spi, Tobj.Tip, Jkross.Code' ) +
(' FROM JKross, Ulicy, Spi, Tobj') +
('WHERE JKross.Ulica = Ulicy.Code ') +
('AND Spi.Code = JKross.Spi') +
('AND Tobj.Code = JKross.Tip') +
('AND (JKross.Object IS NULL OR JKross.Object IN (""))') +
('ORDER BY JKross.ATS, JKross.Ramka, JKross.Para');
DM.AQKr.Open;

Проблема в том, что есть как минимум одна запись с пустым полем Объект, но она не попадает в выбор 2
Так же эта запись не попадает в выбор 1 если у него поле Объект не пустое.

Парадокс заключается еще и в том, что эта запись начинает появляться в обоих списках только если
поле Улица не пустое

Спасибо

@Bit_Man · 21.05.2015, 03:22

попробуй так

SQL
1
AND JKross.Object IS NOT NULL AND JKross.Object <> ""

SQL
1
AND (JKross.Object IS NULL OR JKross.Object = ""))

@bs2003 · 21.05.2015, 15:43

Bit_Man, Спасибо за ответ.

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

Код SQL
1
AND JKross.Object IS NOT NULL AND JKross.Object <> ""

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

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

Код SQL
1
AND (JKross.Object IS NULL OR JKross.Object = ""))

Сразу дает ошибку "Оператор IN без скобок ()

Ошибку не дает на тот код, что указан у меня = (""))

Новые блоги и статьи Все статьи Все блоги /
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .

@MaximFegorsk 32 / 53 / 9 Регистрация: 05.12.2013 Сообщений: 261
	14.05.2015, 22:44
	Database10.rar Качайте, смотрите. Там база с запросом и результатом выполнения. 0

@niTecep 0 / 0 / 0 Регистрация: 08.05.2015 Сообщений: 59
	16.05.2015, 01:00 [ТС]
	0

@bs2003 0 / 0 / 0 Регистрация: 20.05.2015 Сообщений: 9
	20.05.2015, 14:39
	Bit_Man, Здравствуйте! Помогите разобраться что делаю не так. Из Delphi. База Access 1 Выбор всех записей с не пустым полем Объект: DM.AQKr.Close; DM.AQKr.SQL.Clear; DM.AQKr.SQL.Add('SELECT JKross.ATS, JKross.Ramka, JKross.Para, JKross.Npco,') + ('JKross.Telefon, JKross.Object,') + ('Ulicy.Ulica, JKross.Dom, JKross.Korp, JKross.Kv, JKross.Data ') + (', JKross.Ramka_K, JKross.Para_K, Spi.Spi, Tobj.Tip, Jkross.Code' ) + (' FROM JKross, Ulicy, Spi, Tobj') + ('WHERE JKross.Ulica = Ulicy.Code ') + ('AND Spi.Code = JKross.Spi') + ('AND Tobj.Code = JKross.Tip') + ('AND JKross.Object <> ""') + ('ORDER BY JKross.ATS, JKross.Ramka, JKross.Para'); DM.AQKr.Open; 2 Выбор всех записей с пустым полем Объект: DM.AQKr.Close; DM.AQKr.SQL.Clear; DM.AQKr.SQL.Add('SELECT JKross.ATS, JKross.Ramka, JKross.Para, JKross.Npco,') + ('JKross.Telefon, JKross.Object,') + ('Ulicy.Ulica, JKross.Dom, JKross.Korp, JKross.Kv, JKross.Data ') + (', JKross.Ramka_K, JKross.Para_K, Spi.Spi, Tobj.Tip, Jkross.Code' ) + (' FROM JKross, Ulicy, Spi, Tobj') + ('WHERE JKross.Ulica = Ulicy.Code ') + ('AND Spi.Code = JKross.Spi') + ('AND Tobj.Code = JKross.Tip') + ('AND (JKross.Object IS NULL OR JKross.Object IN (""))') + ('ORDER BY JKross.ATS, JKross.Ramka, JKross.Para'); DM.AQKr.Open; Проблема в том, что есть как минимум одна запись с пустым полем Объект, но она не попадает в выбор 2 Так же эта запись не попадает в выбор 1 если у него поле Объект не пустое. Парадокс заключается еще и в том, что эта запись начинает появляться в обоих списках только если поле Улица не пустое Спасибо 0