Доброе время суток, уважаемые постояльцы! Я в sql новичок, но в процессе. Столкнулся с задачей, над которой ломаю голову уже неделю, прошу помощи у опытных коллег, т.к. своих мозгов пока не хватает.
Задача такова:
- 2 одинаковые по структуре таблицы с разным количеством записей
- 2 столбца: id -ключ, name фамилии
- необходимо удалить строку из двух таблиц, если значения name совпадают.
- запись в name в обеих таблицах может неоднократно дублироваться, быть записана с ошибкой.

Например:
исходные данные
t1 t2
id name id name
1 Иванов 1 Петров
2 Иванов 2 Иванов
3 Петров 3 Сидоров
4 Петров 4 Сидоров
5 Иванов 5 Максимов
6 Сидоров 6 Ивано
7 Романов 7 Иванов

результат:
t1 t2
id name id name
4 Петров 4 Сидоров
5 Иванов 5 Максимов
7 Романов 6 Ивано

Данные в столбце id не интересны. Моя логика - сделать 2 цикла и сравнить каждую запись первой таблицы
со всеми записями второй. При условии совпадения, удаляем записи в обеих таблицах и идем дальше по записям
первой таблицы. Люди в гуглах говорят, что циклы в СУБД не рациональное решение. Подскажите пожалуйста, как
решить.

AkinanopalmsЛюди в гуглах говорят
Говорят или чем-то обосновывают? а то говорить все мастера, а как до дела, так в тину...

http://forum.foxclub.ru/read.php?29,408455,page=1
тут, например. Ничем не обосновывают.

AkinanopalmsДанные в столбце id не интересны.
Если реально неинтересны - сначала удали эти столбцы из структуры.
Они выполняют роль первичного ключа для каждой из таблиц. Ими можно воспользоваться в качестве счетчика, других идей
на них не было.

AkinaИ в данном случае два параллельных "курсора" по рекордсетам с сортировкой по Name вполне нормальное имхо решение... начального уровня.
Спасибо за идею, пробую.

АнатолийПопробуйте выполнить такой запрос:
DELETE * FROM t1 As t3 WHERE Exists (SELECT * FROM t2 WHERE t2.[name] = t3.[name]) AND t3.id <> (SELECT Min(t1.id) FROM t1 WHERE t1.[name] = t3.[name])
А следом такой же, но t1 и t2 поменять местами.
В данном случае в таблице остаются записи с уникальным значением name, но в ситуации, например, наличия записей в
t1:
Иванов
Иванов
Иванов
а в t2:
Иванов

на выходе в t1 остается только одна запись "иванов", вместо двух.

Akina...elseif rst1.fields(0).value > rst2.fields(0).value
rst2.movenext...
как я понимаю, это id`шники?
Akinaloop until rts1.eof or rst2.eof
- счетчик пройдет по второй таблице и выйдет?

ПЕНСИОНЕРКАпросто не могу представить, в какой задаче, это могло бы понадобится
сотрудники из несмежных подразделений вносят фамилии "особенных людей" в форму access`а с учетом человеческого фактора. очень много фамилий. нужно периодически находить все "косяки" ввода. кто-то продублировал одного "особенного", кто-то ошибся в имени, кто-то из "особенных" перестал быть таковым.

AkinaА текст запроса посмотреть не судьба?
Понял, возвращает name, но как можно применить знак неравенства к текстовым значениям?
vb плюется на эту строку.
AkinaМожет, и так. А, может, и по первой..
я к тому, что этого условия достаточно, чтобы выйти из цикла, когда сравнится первое значение 1ой таблицы со всеми из 2ой.
могу ошибаться.

Akina,
Простите мне мою неграмотность. Не знал

Модифицировал немного код Akina:

<sup>Dim check As String
Set rst1 = CurrentDb.OpenRecordset("select * from t1 order by i")
Set rst2 = CurrentDb.OpenRecordset("select * from t2 order by i")
rst1.OpenRecordset
rst2.OpenRecordset

Do
Do
'MsgBox "rst1.id= " & rst1.Fields("i").Value & ", rst2.id= " & rst2.Fields("i").Value

If rst1.Fields("n").Value = rst2.Fields("n").Value Then

With rst1
.Edit
!n = Null
.Update
End With
With rst2
.Edit
!n = Null
.Update
End With

End If

rst2.MoveNext
Loop Until rst2.EOF
rst1.MoveNext
rst2.MoveFirst

Loop Until rst1.EOF

rst1.Close
rst2.Close

End Sub</sup>

Работает. Но не могу сообразить как отключить учет регистра знаков в записях.
Akina, подскажите пожалуйста

Akina,
Option compare Text
спасибо