Проверка на наличие

← →
Duffik © (2005-10-20 13:14) [0]

Существует база с полями date, id_res, поскажите, как проверить, есть ли запись (одновременно в двух полях)совпадающая с новой, вводимой с Edit"ов

← →
Sergey13 © (2005-10-20 13:15) [1]

locate или select правильный

← →
Duffik © (2005-10-20 13:24) [2]

мутил с locate что-то условия не соблюдает :(

← →
Val © (2005-10-20 13:26) [3]

надо попробовать не мутить. код плиз.

← →
Sergey13 © (2005-10-20 13:26) [4]

2[2] Duffik © (20.10.05 13:24)
>мутил с locate что-то условия не соблюдает
Кто не соблюдает? Может ты намутил чего-то? 8-)

← →
Duffik © (2005-10-20 13:44) [5]

procedure TSchetForm.SaveBitBClick(Sender: TObject);
begin
if AVTTable.Lookup("ID_DATE",strtodate(IdDateLab.Caption),"ID_DATE")<>null then
if AVTTable.Lookup("ID_AVT",AvtButton,"ID_AVT")<> null then
begin
//AVTTable.Edit;
ShowMessage("Данные существуют :(");
end else
begin
AVTTable.Append;
AVTTable.FieldByName("ID_DATE").AsDateTime:=StrToDate(IdDateLab.Caption);
AVTTable.FieldByName("ID_AVT").AsInteger:=AvtButton;

← →
Desdechado © (2005-10-20 13:52) [6]

и где тут LOCATE
и зачем тут LOOKUP

← →
Val © (2005-10-20 13:55) [7]

лукап это замучоный локейт

← →
evvcom © (2005-10-20 14:03) [8]

Вот кто его "мучонил" к тому и обращайся. А для Locate сделалось бы так:
Table.Locate("ID_DATE;ID_AVT", VarArrayOf([id_date, id_avt]), []);

← →
Duffik © (2005-10-20 14:20) [9]

Дык оно же курсор сдвинет

← →
Val © (2005-10-20 14:21) [10]

и что?

← →
Duffik © (2005-10-20 14:22) [11]

То что это недопустимо

поставьте обратно.

Зачем Locate/Lookup, когда тут же сразу идет дополнение, что бы торможнуть? Надо поставить уникальный индекс и обрабатывать исключение, а проверка наличия просто ничего не дает.

Я предположил, что хочет погреть процессор, поскольку в данном случае смысла нет.

аФФтар сам не знает, чего хочет. То ему проверить запись, то курсор нельзя двигать, а смысла сего вопроса так и не пояснил. А для прогрева процессора лучше кулер отключить.

Проверка на наличие Найти похожие ветки