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

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

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

Базы данных [D7, Win95/98]

Жорж © (2003-09-01 16:34:00)

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

Anatoly Podgoretsky (2003-09-01 20:33:00) [1]

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

Anatoly Podgoretsky (2003-09-01 20:32:00) [2]

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

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

Карелин Артем (2003-09-01 18:59:00) [3]

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

Жорж (2003-09-01 17:48:00) [4]

DBASE IV

HSolo (2003-09-01 17:34:00) [5]

СУБД какая?

Stas (2003-09-01 16:43:00) [6]

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

DelphiNew (2003-09-01 16:43:00) [7]

Попробуй так
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 так как будет сильно тормозить

Reindeer Moss Eater (2003-09-01 16:37:00) [8]

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

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

Наверх

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