Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Вниз

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

 
Жорж   (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


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

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


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

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

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


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

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



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.012 c
6-71787
rex
2003-07-21 13:04
2003.09.22
Ошибка при использовнии IntraWeb


3-71564
Relaxxx
2003-08-27 16:52
2003.09.22
Как мне округлить значение до сотых???


1-71598
Zilog
2003-09-09 16:46
2003.09.22
BP 7.0 + inline Assembler. MOV DX,OFFSET TEXT - ГЛЮЧИТ


6-71804
АСМиД
2003-07-09 14:37
2003.09.22
Почему ServerSocket не держит более примерно 10 клиентов


14-71867
Layner
2003-09-01 09:29
2003.09.22
Помогите найти RX для





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский