Базы данных

← →
Жорж (2003-09-01 16:34) [0]

Здравствуйте! Помогите пожалуйста решить такой вопрос:
Имеется база телефонных номеров, которые пополняются ежедневно
как можно сделать чтобы при введении нового номера, происходил поиск в базе такого номера если он есть выдавалось сообщение если нет то номер заносился бы в базу?
Заранее спасибо.

← →
Reindeer Moss Eater © (2003-09-01 16:37) [1]

как можно сделать чтобы при введении нового номера, происходил поиск в базе такого номера если он есть выдавалось сообщение если нет то номер заносился бы в базу?

Для этого надо написать небольшую программу

← →
Stas © (2003-09-01 16:43) [2]

Само просто
if not Query1.Locate ("MyField",2663211,[]) then
begin
Query1.Insert;
...
end;

← →
DelphiNew © (2003-09-01 16:43) [3]

Попробуй так
function SeqSearch(AQuery: TQuery; AField, AValue: String): Boolean;
begin
with AQuery do
begin
First;
while (not Eof) and (not (FieldByName(AField).AsString = AValue)) do
Next;
SeqSearch := not Eof;
end;
end;
Но он не подходит при кол-ве записей больше 1000 так как будет сильно тормозить

← →
HSolo © (2003-09-01 17:34) [4]

СУБД какая?

← →
Жорж (2003-09-01 17:48) [5]

DBASE IV

А DBASE IV поддерживает уникальные индексы?? ;)

Жорж (01.09.03 17:48) [5]
Сделай индекс по полю номера и FindKey

Карелин Артем © (01.09.03 18:59) [6]
Нет, только dBase VII+

Альтернатива запрос с условием where fld = номер.

Базы данных Найти похожие ветки