[borockov]

Привет друзья. У меня такой вопрос, как из БД (paradox) удалить все ОДИНАКОВЫЕ записи, и оставить только одну.

[Страдалецъ]

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

[borockov]

Сообщение от Страдалецъ

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

В базе всего лишь одно поле "adres_url". дубликаты появляются следующим образом: После того как пользователь копирует адрес сайта в буфер он автоматически добавляется в нашу БД. Соответственно если один и тот же адрес копировать несколько раз он будет добавляться в БД ровно столько раз сколько его скопировали. И я хочу сделать так что бы как только в БД появляются одинаковые записи что бы они сразу удалялись и оставалась только одна запись.

[Bargest]

А не проще перед добавлением проверить, не имеется ли уже такая запись в таблице?

[borockov]

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

А не проще перед добавлением проверить, не имеется ли уже такая запись в таблице?

А как можно проверить?

[Страдалецъ]

Варианта два.
1. Добавить к таблице уникальный индекс по урлу и обрабатывать ошибку дубликата записи.
2. Всякий раз перед добавлением проверять запросом наличие имеющегося адреса в таблице.

[borockov]

2. Всякий раз перед добавлением проверять запросом наличие имеющегося адреса в таблице.

Как раз самое, то. Проверять запросом имеешь ввиду SQL? Можешь пример запроса показать?

[M.A.D.M.A.N.]

Триггеры используй.
Ну на крайняк (составной) уникальный ключ.

[Страдалецъ]

Тригер конечно можно, главное что-бы база знала, что это за зверь такой.
Парадокс о них точно ничего не слыхал.

Пример запроса? Ну вот вам примерчик:

Код:

 Query1.SQL.Text := 'select id from Table1 where adres_url=:Param1';
 Query1.Params.ParamValues['Param1'] := 'http://www.delphisources.ru';
 Query1.Open;
 if Query1.isEmpty 
 then begin
        //тут вы добавляете запись в таблицу
        end;

[M.A.D.M.A.N.]

Пардон, проглазел, что ТС рападокс использует.

[borockov]

Ура! Работает, спасибо ))) друзья!