Удаление нескольких записей из БД

[a_n_n_a]

Здравсвуйте)
Пытаюсь удалить из БД несколько записей, имеющих одинаковый номер.

for i:=1 to Form1.ADOTable10.RecordCount-1 do
begin
     if Form1.ADOTable10.Fields[0].AsString=Edit1.Text then
     Form1.ADOTable10.Delete;
     Form1.ADOTable10.Next;
end;

Но что-то у меня не получается, удаляюстя не все нужные записи) Подскажите, как это лучше сделать)) Спасибо)

[_SERGEYX_]

for i:=1 to Form1.ADOTable10.RecordCount-1 do
begin
     if Form1.ADOTable10.Fields[0].AsString=Edit1.Text then
     Form1.ADOTable10.Delete else
     Form1.ADOTable10.Next;
end;

А вообще-то так

ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('DELETE FROM TABLENAME  WHERE (FIELD = "'+Edit1.text+'")');
ADOQuery.ExecSql;

[a_n_n_a]

А можно это не через запрос сделать как-нибудь?

[Serge_Bliznykov]

мне категорически непонятно Ваше нежелание использовать запросы (ведь это мало того, что избавляет от цикла, так ещё намного короче, надёжнее и, главное, быстро и эффективно решает Вашу задачу.
Ну, представьте, у Вас в таблице 100 тысяч записей. А поле с нужным значением (которое нужно удалить у 1-й, 100-й и 999тысячной записи - ну, т.е. будет удалено всего три записи.) Так вот, мало того, что ваш цикл вытянет все данные на клиента, все 100 000 записей, так программа их будет по одной перебирать, сравнивать значение и удалять нужные.. 100 000 записей будет проверено в цикле... оператор пока успеет сходить пообедать и чай попить...
А можно сказать серверу - ну-ка, давай, удали у себя там внутри записи, которые отвечают условию. И он это сделает настолько быстро - насколько это позволяют условия доступа его (сервера) к собственным внутренним структурам данных!


впрочем, воля Ваша..

Но что-то у меня не получается, удаляюстя не все нужные записи) Подскажите, как это лучше сделать)) Спасибо

попробуйте или цикл крутить в обратную сторону:

ADOTable10.Last;
for i:=Form1.ADOTable10.RecordCount-1 downto 0 do
begin
     if Form1.ADOTable10.Fields[0].AsString=Edit1.Text then
         Form1.ADOTable10.Delete
     else
         Form1.ADOTable10.Prev;
end;

или даже просто так сделать:

ADOTable10.First;
while Not Form1.ADOTable10.Eof do
     if Form1.ADOTable10.Fields[0].AsString=Edit1.Text then
         Form1.ADOTable10.Delete
     else
         Form1.ADOTable10.Next;
end;

p.s. а чем первый вариант кода от _SERGEYX_ не устроил...

[a_n_n_a]

Большое спасибо)