Выборка двойников - дополнительное условие

@alexarj · Регистрация: 19.06.2012

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

Есть таблица с личными данными с полями:
Kod_l - семизначное число, первые три цифры - код участка, далее личный номер
Fam - фамилия
Im - первая буква имени
Ot - первая буква отчества
Pol - 1 - муж., 2 - жен.
Data_r - дата рождения
...
Этап 1. Выбрать двойников. Решается запросом:

SQL
1
2
3
4
SELECT DISTINCTROW PASPORT.Kod_l, PASPORT.Fam, PASPORT.Im, PASPORT.Ot, PASPORT.Pol, PASPORT.Data_r, PASPORT.Street, PASPORT.Dom, PASPORT.Korp, PASPORT.Kvart
FROM PASPORT
WHERE (((PASPORT.Fam) IN (SELECT [Fam] FROM [Pasport] AS Tmp GROUP BY [Fam],[Im],[Ot],[Pol],YEAR([Data_r]) HAVING COUNT(*)>1  AND [Im] = [Pasport].[Im] AND [Ot] = [Pasport].[Ot] AND [Pol] = [Pasport].[Pol] AND YEAR([Data_r]) = YEAR([Pasport].[Data_r]))))
ORDER BY PASPORT.Fam, PASPORT.Im, PASPORT.Ot, PASPORT.Data_r;

Этап 2. Из списка двойников убрать пары, где один код - 614****, второй - в диапазоне 601****-604****.
Как это можно сделать?

@alvk · 28.06.2012, 02:46

Этап 1 упростил.
Этап 2 см. --->

T-SQL
1
2
3
4
5
SELECT двойники.Kod_l, IIf(Left([двойники].[Kod_l],3) In (614,601,602,603,604),1,0) AS marka,
 двойники.Klient, двойники.Pol, двойники.Data_r, двойники.Street, двойники.Dom, двойники.Korp,
 двойники.Kvart
FROM двойники
WHERE (((IIf(Left([двойники].[Kod_l],3) In (614,601,602,603,604),1,0))=0));

@alexarj · 30.06.2012, 10:08 **[ТС]**

Сожалею, но это не то.
Ваш запрос убирает все записи с кодом, начинающимся на 601-604, 614. Мне нужно убрать пары записей, где в одной записи код начинается на 614, второй - на 601...604. В приложении в таблице "нужный результат" я показал, чего надо добиться с помощью запроса.

@minob · 30.06.2012, 12:47

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

нужно убрать пары записей, где в одной записи код начинается на 614, второй - на 601...604. В приложении в таблице "нужный результат" я показал, чего надо добиться с помощью запроса.

Непонятно. Вот результат работы вашего запроса "двойники"

Kod_l	Fam	Im	Ot	Pol	Data_r	Street	Dom	Korp	Kvart
6041524	Имсчя	О	А	2	01.01.1979	Шевченко	109		2
6990074	Имсчя	О	А	2	15.10.1979	Рокоссовског	37	а	41
6070244	Йцукен	Л	В	2	04.04.1973	Седневская	3
6020499	Йцукен	Л	В	2	04.04.1973	Седневская	3
6061670	Фывап	В	И	1	01.01.1948	1 Мая	167	А	96
6141005	Фывап	В	И	1	23.09.1948	1 Мая	167	а	96
6060001	Ячсми	Т	Н	2	17.05.1976	1 Мая	169	1	1
6022304	Ячсми	Т	Н	2	17.09.1976	1 Мая	169	1	1

Судя по таблице "Нужный результат"

Kod_l	Fam	Im	Ot	Pol	Data_r	Street	Dom	Korp	Kvart
6990074	Имсчя	О	А	2	15.10.1979	Рокоссовског	37	а	41
6041524	Имсчя	О	А	2	01.01.1979	Шевченко	109		2
6070244	Йцукен	Л	В	2	04.04.1973	Седневская	3
6020499	Йцукен	Л	В	2	04.04.1973	Седневская	3
6060001	Ячсми	Т	Н	2	17.05.1976	1 Мая	169	1	1
6022304	Ячсми	Т	Н	2	17.09.1976	1 Мая	169	1	1

у вас убрана пара записей с Fam равными Фывап. Kod_l одной из убранных записей действительно, как вы и хочете, начинается с 614, но Kod_l второй то начинается с 606, которое никак не входит в промежуток 601-604. Предполагаю, что правый конец интервала ошибочен, нужно 606.
Исходя из этого предположения и из того, что "Kod_l - семизначное число, первые три цифры - код участка" (Cod_uch), требуемый запрос

SQL
1
2
3
4
5
6
7
8
9
SELECT Pasport.*
FROM Pasport
WHERE EXISTS (SELECT 1 FROM Pasport AS Tmp 
              WHERE Fam=Pasport.Fam AND Im = Pasport.Im AND Ot = Pasport.Ot AND 
                    Pol = Pasport.Pol AND YEAR(Data_r) = YEAR(Pasport.Data_r) AND 
                    Kod_l<>Pasport.Kod_l AND 
                    NOT ((Cod_uch = 614 AND (Pasport.Cod_uch BETWEEN 601 AND 606)) OR 
                        ((Cod_uch BETWEEN 601 AND 606) AND Pasport.Cod_uch = 614)))
ORDER BY Fam, Im, Ot, Data_r

Двойники же, если это необходимо, находятся таким запросом (аналог вашего запроса "двойники")

SQL
1
2
3
4
5
6
7
SELECT Pasport.*
FROM Pasport
WHERE EXISTS (SELECT 1 FROM Pasport AS Tmp 
              WHERE Fam=Pasport.Fam AND Im = Pasport.Im AND Ot = Pasport.Ot AND 
                    Pol = Pasport.Pol AND YEAR(Data_r) = YEAR(Pasport.Data_r) AND 
                    Kod_l<>Pasport.Kod_l)
ORDER BY Fam, Im, Ot, Data_r

@alvk · 30.06.2012, 13:41

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

Kod_l одной из убранных записей действительно, как вы и хочете, начинается с 614, но Kod_l второй то начинается с 606

Ужас!
to ТС: Нам что в угадайку играть?

@alexarj · 04.07.2012, 10:31 **[ТС]**

Предполагаю, что правый конец интервала ошибочен, нужно 606.

Вы правы. Прошу прощения за несоответствие. Между первым и вторым моими постами мне "уточнили" входные условия, отсюда нестыковка.

... из того, что "Kod_l - семизначное число, первые три цифры - код участка" (Cod_uch)...

Это не так. При выдаче кода первые три цифры кода и номер участка совпадают, но в дальнейшем человек может сменить участок, а код сохраняется.
Предложенный вами запрос очень сильно загружает машину . При обработке тестовой таблицы (менее 2000 записей) загрузка памяти 50%, ввод/вывод близок к 100% по чтению, работа с другими приложениями невозможна. В результате через полчаса вынужден был прервать выполнение запроса. Это нормально?

@minob · 04.07.2012, 14:16

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

Это не так. При выдаче кода первые три цифры кода и номер участка совпадают, но в дальнейшем человек может сменить участок, а код сохраняется.

Я привел цитату: "Kod_l - семизначное число, первые три цифры - код участка" из вашего сообщения.

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

Это нормально?

Во многих случаях запрос, имеющий коррелирующий подзапрос, выполняется тяжеловато.
Пробуйте такой вариант

SQL
1
2
3
4
5
6
7
SELECT DISTINCT P1.*
FROM Pasport AS P1 INNER JOIN Pasport AS P2 ON P1.Fam=P2.Fam AND P1.Im = P2.Im AND P1.Ot = P2.Ot AND 
                    P1.Pol = P2.Pol AND YEAR(P1.Data_r) = YEAR(P2.Data_r) AND 
                    P1.Kod_l<>P2.Kod_l AND 
                    NOT ((LEFT(P1.Kod_l,3) = "614" AND (LEFT(P2.Kod_l,3) BETWEEN "601" AND "606")) OR 
                        ((LEFT(P1.Kod_l,3) BETWEEN "601" AND "606") AND LEFT(P2.Kod_l,3) = "614"))
ORDER BY P1.Fam, P1.Im, P1.Ot, P1.Data_r

Смените тип поля Kod_l на текстовый или длинное целое.

@alexarj · 05.07.2012, 14:50 **[ТС]**

Пробуйте такой вариант

Поекрасно работает. Очень признателен Вам за помощь.

Смените тип поля Kod_l на текстовый или длинное целое.

В рабочей базе PASPORT - связанная таблица Paradox (DOS), изменение свойств невозсможно.

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	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. . .