Дерево в БД Ассеss(удаление дочерних узлов)

[atihiy2010]

Имеется еще один вопрос: Есть дерево, таблица tRazdels и кнопочка "удалить выделенную ветку". Дабы избавится от всех дочерних узлов в таблице, при удалении главного добавляю код.

 
var nomer:integer;
tRazdels.Locate('R_Name', TreeView1.Selected.Text, []);
  nomer:=tRazdels['R_Num'];
     tRazdels.Delete;
     while not tRazdels.Eof do
     begin
     if tRazdels['R_Parent']=nomer then
     begin
     tRazdels.Delete;
     tRazdels.Next;
     end;
     end;

без этого куска кода с дерева удаляется и родительский и дочерний узлы а с таблицы удаляются только родительские узлы(тоесть остается мусор с детенышами).

Вот полный код процедуры удаления:

procedure TfMain.N4Click(Sender: TObject);
var
  s,nomer: String; //для строки запроса
begin
  //Проверим - есть ли выделенный раздел?
  //Если нет - выходим:
  if TreeView1.Selected = nil then Exit;
  //иначе формируем строку запроса:
  s:= 'Удалить "' +
TreeView1.Selected.Text + '"?';
  //запросим подтверждение у пользователя:
  if Application.MessageBox(PChar(s), 'Внимание!',
      MB_YESNOCANCEL+MB_ICONQUESTION) <> IDYES then Exit;
  //если не вышли - пользователь желает удалить раздел.
  //найдем и удалим его вначале из таблицы:
  tRazdels.Locate('R_Name', TreeView1.Selected.Text, []);
  
//дальше мои дебри
nomer:=tRazdels['R_Num'];
     tRazdels.Delete;
     while not tRazdels.Eof do
     begin
     if tRazdels['R_Parent']=nomer then
     begin
     tRazdels.Delete;
     tRazdels.Next;
     end;
     end;//тут мои дебри заканчиваются
  //теперь удаляем раздел из дерева:
  TreeView1.Items.Delete(TreeView1.Selected);
end;

Но к сожалению не работает. Может кто знает в чем дело?

[asmodey1]

     if tRazdels['R_Parent']=nomer then
     begin
     tRazdels.Delete;
     tRazdels.Next;
     end else
     tRazdels.Next;

Красное - убрать ! Зеленое - добавить.
А вообще, лучше сделать через запрос...

[atihiy2010]

Спасибки. Все вышло.