Вот что получилось:
1. Сначала я понял, что, как вы написали (и я сам тоже заметил), АДОТаблица уже использует параметры подключения, значит АДОКоннект вообще не нужен. Проверил - удалил АДОКоннект - программа осталась в работоспособности. Значит он ни на что не влиял. Мой косяк - видимо когда-то добавил коннект и забыл зачем добавил...
2. Добавляю на форму программы ADOQuery из вкладки АДО.
- В свойствах АДОзапроса нахожу параметр connection и настраиваю его (Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rssbase.mdb;Persist Security Info=False)
- Теперь в коде вставляю после ADOTable1.Post;
Код:
ADOQuery.SQL.Text := 'select Link from rss group by link having Count(Link)>1';
ADOQuery.Open;
Результат: не работает... Все равно дубликаты добавляются =(
Пробую по другому запросу:
Код:
ADOQuery.SQL.Text := 'delete Link where id in (select Max(id) from rss group by Link having Count(Link)>1)';
ADOQuery.Open;
И опять ноль =( ...
Но еще и ошибку выдает при выполнении программы:
Цитата:
|
Ошибка синтаксиса (пропущен оператор) в выражении запроса ' Link where id in (select Max(id) from rss group by Link having Count(Link)>1)'
|
Что тут может быть не так? (я использую ваш второй запрос "delete Link where id in (select Max(id) from rss group by Link having Count(Link)>1)")