Удаление строк из БД

[Danilka]

задача удалить строки у которых совпадает 1н из столбцов. таких строк в таблице несколько, но при выполнении этой процедуры удаляются только 2-3 строки =(
Тк в ListBox'e отсчет идет с 0, а в таблице с 1 поэтому такое условие =)

  Table1.Open;
  Table1.First;
  while not Table1.Eof do
    begin
      if ListBox1.ItemIndex=Table1.FieldByName('ID').AsInteger-1 then
        Table1.Delete;
      Table1.Next;
    end;

что не так в коде?

[BARNEY]

не проще запросом? чем такой велосипед

[quit]

к чему это условие? почему вы сравниваете по id??

if ListBox1.ItemIndex=Table1.FieldByName('ID').AsInteger-1 then

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

[Danilka]

BARNEY, а можно поподробней?

[Danilka]

Сообщение от quit

к чему это условие? почему вы сравниваете по id??

if ListBox1.ItemIndex=Table1.FieldByName('ID').AsInteger-1 then

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

ну я же написал выше, что нужно удалить строки у которых совподает 1н из столбцов, тоесть я выбираю элемент в ListBox'e, считываю его индекс и ищу соответствующие значения в столбце базы данных: "ID" - это какраз и есть 1н из столбцов =)

это и есть все тело процедуры "DeleteBtn1Click(Sender: TObject);"

[quit]

попахивает одноколесным велосипедом с треугольным колесом)))

в таблице у тебя поле ID уникальное? или нет?
получается ты выбрал нулевой индекс в листбоксе у тебя и удалят все строки с ID = 1.

[BARNEY]

query.sql.text:='delete from table where id='+Table1.FieldByName('ID').AsInteger+'' ;
query.ex...чёто там :)

[quit]

тогда уж

query.sql.text:='delete from table where id='+IntToStr(ListBox1.ItemIndex+1);
query.execsql;

[Danilka]

Сообщение от quit

попахивает одноколесным велосипедом с треугольным колесом)))

в таблице у тебя поле ID уникальное? или нет?
получается ты выбрал нулевой индекс в листбоксе у тебя и удалят все строки с ID = 1.

непойму что вас смущает, но если смущает слово ИД то представьте что вместо ид написано "номер группы" где перечислены фамилии и мне нужно удалить выбраную в лист боксе группу из бд

ID  фамилии       имена
1   блаблабла     блаблабла
1   блаблабла     блаблабла
1   блаблабла     блаблабла
..
2   ляляля          ляляля
2   ляляля          ляляля
..
3   трумпумпум   трумпумпум
..

вот задача удалить строки где ID = ListBox.ItemIndex + 1 =) а мой код удаляет не все, а только несколько строк =)
группа не может обозначаться как 0 =) а в лист боксе индексы начинаются именно с 0 =)


PS у меня почимуто делфи ругается на"query." - незарегистрированный идентификатор

[bezOn]

Сообщение от Danilka

задача удалить строки у которых совпадает 1н из столбцов. таких строк в таблице несколько, но при выполнении этой процедуры удаляются только 2-3 строки =(
Тк в ListBox'e отсчет идет с 0, а в таблице с 1 поэтому такое условие =)

  Table1.Open;
  Table1.First;
  while not Table1.Eof do
    begin
      if ListBox1.ItemIndex=Table1.FieldByName('ID').AsInteger-1 then
       Table1.Delete;
      Table1.Next;
    end;

что не так в коде?

Если идёт удаление (DELETE) нельзя использовать потом NEXT.
Иначе в таблице будет курсор перепрыгивать через запись.

Написать нужно так:

IF ListBox1.ItemIndex = Table1.FieldByName('ID').AsInteger-1 
      then Table1.Delete {Удаление и переход на следующую запись}
      else Table1.Next; {Если нет совпадения, смотрим следующую запись}

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