Удалить 2 записи. ADO...

[Roof]

В таблице имеется поле nomer. Много записей с одинаковым значением в поле nomer. Я удаляю записи. Как удалить сразу две записи с одинаковым значением в поле nomer, если таких записей во всей таблице осталось не белее 2-ух?

[Serge_Bliznykov]

а сколько их должно остаться после удаления?!
и Вы хотите удалять повторы только одного номера (ну, например, где nomer = "25") или всё повторяющиеся номера?

[Roof]

Если записей с одинаковым значением в поле nomer осталось больше 2-ух, то удаляю только одну запись, которую выбрал. Если же их осталось только две во всей таблице ( с одинаковым значением в поле nomer ), то удаляю их вдвоем сразу.

Например, записи в таблице:
1) 25
2) 25
3) 25
4) 89
5) 89
6) 89
7) 95
8)95
9) 95
Выбрал я запись2 и нажал удалить. Остались записи 1,3,4,5,6,7,8,9
Выбрал я запись5 и нажал удалить. Остались записи 1,3,4,6,7,8,9
Выбрал я запись1 и нажал удалить. Остались записи 4,6,7,8,9 - т.е. с одинаковым значением в поле nomer (25) осталось всего две записи. Мы их обе сразу и удаляем
Вот уже часа три не могу сообразить никак

[Serge_Bliznykov]

понятно. ну очень навороченный алгоритм удаления ;-(( а понял, что Вы хотите, не не понял, зачем...
впрочем, рекомендую такой способ:

procedure TForm1.Button3Click(Sender: TObject);
var
  NumCount : integer;
  dbCode : Integer;
  dbNomer : string;

begin

  if Not AdoTable1.Active then Exit; {что таблица открыта}
  if AdoTable1.IsEmpty then Exit {что в таблице есть записи...};
  {берём nomer и Код из текущей записи из AdoTable1}
  dbCode := ADOTable1.FieldByName('Код').AsInteger;
  dbNomer := ADOTable1.FieldByName('nomer').AsString;


  AdoQuery1.SQL.Clear;
  AdoQuery1.SQL.Add('Select count(*) as NumCount from List '+
    ' where nomer = "'+dbNomer+'"');
  AdoQuery1.Open;
  NumCount := AdoQuery1.FieldByName('NumCount').AsInteger;
  AdoQuery1.Close;

  Application.MessageBox(Pchar('количество записей ='+IntToStr(NumCount)),
              'Отладка', MB_OK);
  if NumCount = 0 then {ВООБЩЕ НЕЧЕГО УДАЛЯТЬ,
     в базе нет такого Nomer - сюда попасть не должны, просто доп.защита...}
      Application.MessageBox( 'В базе нет таких номеров! '+#13+#10+'Удалять нечего!', 'Предупреждение', MB_ICONWARNING or MB_OK)
  else
    if NumCount > 2 then begin
       {Удаляем только одну запись
        для простоты взял Ваш код.
        хотя, я бы делал это также через
           AdoQuery - delete from List where Код = dbCode}
       adotable1.DeleteRecords(arCurrent);
       adotable1.edit;
       adotable1.post;
    end
    else begin
       {закроем базу в гриде}
       AdoTable1.Close;
       {удаляем ВСЕ записи с таким номером}
       ADOQuery1.SQL.Clear;
       ADOQuery1.SQL.Add('delete from list '+
           ' where nomer = "'+dbNomer+'"');
       ADOQuery1.ExecSQL; {!! всё, обе записи удалены!}

       {обновим отображение базы в гриде}
       AdoTable1.Open;
    end;
end;

AdoQuery.Connection поставьте AdoConnection1 (как у AdoTable1

p.s. молодец, что проект выложил. да ещё и со своим данными. Я точно не стал бы писать код полностью, если бы не было проекта и таблицы! :-))

[SERG1980]

Можно попробовать изменить обработчик нажатия кнопки "Удалить" в вашем проекте

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
 adotable1.Filtered:=true;
 adotable1.Filter:='nomer=''25''';//вместо 25 можно вставить окно поиска например edit
 if adotable1.RecordCount>2 then adotable1.DeleteRecords(arCurrent)
 else for i :=1 to adotable1.RecordCount  do
      adotable1.Delete;
 adotable1.Filtered:=false;
 adotable1.edit;
 adotable1.post;
end;

[Serge_Bliznykov]

SERG1980 - а что, кратко и по делу! мне понравилось!! :-)
единственное, я бы вместо цикла
for i :=1 to adotable1.RecordCount
использовал бы:
adotable1.DeleteRecords(arFiltered) ;

[Roof]

только вот одна проблема с кодом - курсор в таблице перескакивает на первую запись! Я пытаюсь удалить не первую, а, например, вторую или десятую, а удаляется все время только первая )))))))))
Это, вроде, из-за adotable1.Filtered. Как избавится от такого нежелательного эффекта?))))

p.s. молодец, что проект выложил. да ещё и со своим данными. Я точно не стал бы писать код полностью, если бы не было проекта и таблицы! :-))

- всегда в не очень легких вопросах стараюсь выкладывать проекты, чтобы легче было мне помочь

[Serge_Bliznykov]

Roof запоминайте позицию перед фильтрацией, потом возращайтесь на неё.
если "Код" - уникальное поле - то запоминайте его, потом AdoTable1.Locate(..)
или через BookMark...
что интересно, попробуйте мой первоначальный вариант с AdoQuery - там вроде этой проблемы нет :-)))

[Minimus]

Привет, Roof.
Я когда-то решал подобную задачу, только для 3 элементов. Поскольку я не спец в БД я ее решил по наглому - примерно так (иллюстрация на основе твоих исходников).

procedure TForm1.Button2Click(Sender: TObject);
var
count:integer;
tmp:string;

  procedure DelItem(val:string); //ищем и удаляем последний оставшийся элемент
  begin
    with DataSource1 do
    begin
      DataSet.FindFirst;
      repeat
        if ADOTable1nomer.AsString = tmp then begin DataSet.Delete;break end;
      until not DataSet.FindNext;
      DataSet.FindFirst; //здесь можно установить на нужную позицию
    end
  end;

begin
  count:=0;
  with DataSource1 do
  begin
    tmp:= ADOTable1nomer.AsString;
    DataSet.Delete;
    DataSet.FindFirst;
    repeat       //считаем количество оставшихся элементов
      if ADOTable1nomer.AsString = tmp then count:=count+1;
    until not DataSet.FindNext;
    if count = 1 then DelItem(tmp); //один элемент мы уже удалили!!!
  end;
end;

ЗЫ: почему по наглому? - да потому что происходит выход за пределы таблицы, хотя при этом все нормально работает.(Кстати, то же самое наблюдается и в примерах к Delphi 7).При запуске из-под Delphi будет предупреждение об этом. Ну а если пускать без дельфей - то, естественно, все ОК.

ЗЫ2: Для маленькой таблички этот метод - то что надо. Ну а если захочешь применять для чего-то более или менее грандиозного - лучше делай как Serge_Bliznykov.

[Roof]

2 Serge_Bliznykov - Тебе вообще Огромное спасибо ))))) твой код безупречно работает)))) Я, правда, еще не все в нем понял Но ты и это предусмотрел)))) расписал мне комментариев ))))) Использую именно твой код, да еще и Minimus тоже советует твой использовать )))
А вот с примером SERG1980 мне просто ради интереса разобраться до конца охота.
Посмотрите, пожалуйста, вот я попытался запоминать позицию до фильтрации:

//обработчик кнопки Удалить
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
pos: string;
begin
 pos:= adotable1.fieldbyname('код').AsString;
 adotable1.Filtered:=true;
 adotable1.Filter:= 'nomer=' + adotable1.fieldbyname('nomer').AsString;
 adotable1.Locate('код', pos, []);
 if adotable1.RecordCount>2 then adotable1.DeleteRecords(arCurrent)
 else for i :=1 to adotable1.RecordCount  do
      adotable1.DeleteRecords(arCurrent);
 adotable1.Filtered:=false;
 adotable1.edit;
 adotable1.post;
end;

Так вот - удаляет он нужную запись теперь. Но после удаления все равно перескакивает на первую! что еще написать, чтобы перескакивал не на первую, а на одну выше? :-))))

2 Minimus - попробую ))))) спасибо тебе за совет ))))