Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проверка записи на уникальность [D5, Paradox]

Ata133 © (2004-06-23 16:52:00)
Моя программа автоматически "разбирает" строки и заносит в простенькую БД (1 таблица) записи. Как мне на этом этапе занесения проверить - есть ли уже такая запись в таблица или нет. При утвердительном ответе - не заносить, ну а если еще нету такой записи, то - занести! :).

Ata133 (2004-07-08 15:59:00) [1]
Дело в том, что надо не по одному полю делать отбор, а совпадение искать аж по 8 полям. Я делаю, как посоветовали выше:
If Not (tCargo.Locate('From_;To_;DateF;...',VarArrayOf([z.From_,z.To_,z.DateF, z.DateT, ...]),[])) Then ... ;
Первый аргумент - сравниваемые поля БД, второй - массив сформированных строк для будущего добавления (z - запись со структурой, аналогичной таблице БД). После Then, по идее, - занесение записи в таблицу. Теоретически правильно?

А вот на деле заносятся все записи. Такое впечатление, что неправильно воспринимаются русские символы (хотя может массив неправильно формируется или зведы не так расположены, или еще какая причина неизвестная), т.к. когда я попробывал сделать
If Not (tCargo.Locate('DateF',z.DateF,[])) Then ... ;
были занесены только неповторные записи. Как Вы уже, наверное, догадались, это поле имело тип Date. То же самое происходит по полям целого типа.

* Драйвер Ansi Cyrillic.

Курдль (2004-06-24 12:54:00) [2]

> Заношу я посредством Post, или все-таки Insert'ом советуете?

А Delet-ом не пробовали?

Ata133 (2004-06-24 12:17:00) [3]
Спасибо всем. Distinct'ом пробовал изначально. Из-за этого-то проблема и возникла. Все равно бывает по 10 (абсолютно!) одинаковых записей. Заношу я посредством Post, или все-таки Insert'ом советуете?

inic (2004-06-24 10:46:00) [4]
В MS SQL Server работает:
if not exists (select f1 from tb where f1=11100) insert into tb (f1, f2) values (11100, 'fqwfqw')
Попробуй в Paradox

Mim1 (2004-06-24 08:53:00) [5]

> [4] Наталия © (24.06.04 06:55)
> >Mim1 © (23.06.04 21:26) [3]
> Фу...

Бррр...

Наталия (2004-06-24 06:55:00) [6]
>Mim1 © (23.06.04 21:26) [3]
Фу...

Mim1 (2004-06-23 21:26:00) [7]
Вноси все подряд, потом distinct'ом выбереш и скопируеш в другую таблицу.

Соловьев (2004-06-23 16:56:00) [8]
создать уникальный индекс по полю и обрабатывать исключение.
Но если у тебя однопользовательская прога - то можешь запрос выполнить
select count(*) as cnt_xxx from table where field=xxx
и если он возвратит 0, то не вносить.

Anatoly Podgoretsky (2004-06-23 16:54:00) [9]
Locate

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »