Нужна помощь с запросом

[Antonariy]

А если остальные поля отличаются?

[alibek]

Однако, замысел был иной.
Надо, чтобы запрос выбрал неповторяющиеся записи по полю Title (как это сейчас), но перенес их в таблицу TMP со всеми остальными полями, которые идентичны для обеих таблиц (например, Name, Rank,Number,City,Year)

У тебя неправильный замысел.
Допустим, у тебя есть две записи, с одинаковым Title, но разными остальными полями. По каким критериям ты выберешь, какую из двух записей добавить в таблицу?

[Konst_One]

выполни это запрос и посмотри это то , что тебе нужно или нет

Код: Выделить всё

SELECT
  MIN(Name) AS Name,
  MIN(Rank) AS Rank,
  MIN([Number]) AS [Number],
  MIN(City) AS City,
  MIN([Year]) AS [Year],
  Title
FROM tblPedagog
GROUP BY Title

[Summer.05]

alibek
Спасибо за внимание!
Дело в том, что все остальные поля, кроме Title, вполне могут повторяться. И пусть, мне это не важно. В конце концов пять Ивановых Иванов Ивановичей защитили кандидатские диссертации, все в Москве и все в одном году. Но ТЕМЫ-то у них разные. Вот по темам (Title) и нужно мне убрать дублирование тем, так как при формировании базы в Access я соединил несколько разных таблиц и попало туда несколько тысяч сдублированных записей. Различить я могу их только по Title, но надо, чтобы в таблице остались не дублированные диссертации со всеми их полями. Я смог провести эту работу и получил список не дублированных диссертаций, но вывод их в таблицу произошел только по одному полю. Все остальные поля оказались пустыми. Как вывести недублированные записи со всеми их полями - в этом моя проблема.
Спасибо, извините, что так долго.

[Summer.05]

With Adodc1
.RecordSource = "INSERT INTO TMP (Name,Rank, Number, Place, City, Year) SELECT Name, Rank, Number, Place, City, Year FROM tblPedagog"
.Refresh
End With

Вывод: ошибка синтаксиса в INSERT INTO

Перебрал много вариантов, сравнивал по сборнику советов. Вроде все правильно, а ошибка не исчезает...
Где она, кто знает?

[GSerg]

Year - название функции access... name тоже может... поэтому возьми их в квадратные скобки.

[Summer.05]

Konst_One
Dim strPath As String
strPath = App.Path & "/" & "DB/dbped.mdb"
Dim SQL As String
MousePointer = 11
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & strPath & _
"; Mode=Read|Write"


SQL = "SELECT MIN(Name) AS Name, MIN(Rank) AS Rank, MIN([Number]) AS [Number], MIN(City) AS City, MIN([Year]) AS [Year], Title From tblPedagog GROUP BY Title"
cn.Execute SQL

Ошибка: Operation not allowed when the object is closed

[Summer.05]

GSerg
Вот это замечание... Спасибо, не подумал!
Попробовал.
Ответ тот же: ошибка синтаксиса в INSERT INTO...

[Konst_One]

а кто за тебя коннект к базе будет открывать

Код: Выделить всё

cn.Open

[Konst_One]

http://bbs.vbstreets.ru/viewtopic.php?p=6624287#6624287

выполнить я предлагал в каком-нибудь средстве для выполнения запросов к базе, например в QA

[Summer.05]

Konst_One
Спасибо тебе, друг, ты много внимания мне уделил!
Я открыл базу, она отработала. Вероятно, изменения произошли где-то. А куда выводить-то результаты и как?
Не сердись, я в SQL вообще профан. Несколько месяцев как сел за VB...