Как проверить наличие записи в таблице?

[Guest_Egor]

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

procedure TForm1.oxButton7Click(Sender: TObject);
begin

Table1.Insert;

end;

 

[Barmutik]

Проверять нужно по какой-то группе полей ?

Как вариант сделать Table1.Locate(...) ... если запись нашлась значит она есть

 

[Guest_Egor]

Требуется проверять существование записи в таблице при вводе новой.
В таблице 3 поля, но хотя бы проверить по одному полю, чтобы выводилось сообщение о том, что такая запись есть или чтобы эта запись появлялась в таблице.

 

[????]

Guest_Egor
constraint ???

 

[Barmutik]

Это на уровне приложения надо сделать ? Или на уровне базы данных ?

Если на уровне приложения то:

if not Table1.Locate('Filed1', FieldValue, []) then
Table1.Insert

Если на уровне базы данных то:

Делается индекс с уникальными значениями по этому полю и всё. База сам не даст вставить поле с повторяющимися значениями.

 

[Btr]

Locate довольно долгий процесс на больших данных
Лучше пользоваться дополнительным TQuery, или GotoNearest кажись была такая функция у Тайбла, но только на индексированое поле открытое по этому индексу

 

[Barmutik]

Не совсем понятно к чему здесь использование функции GotoNearest... у неё совсем другое предназначение...

А насчёт дополнительного TQuery... это варинат явно быстрее .. но надо делатьз апрос к базе .. уже лучше тогда на уровне базы проверять и не давать просто вставить запись...