| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Удаление в дереве [D5, MSSQL]

dim- ©   (2002-04-08 10:41:00) 

Народ помогите!
надо удалить ветвь в дереве, сделал следующее:
(может кто чего посоветует?)
procedure TForm1.delete_node(ii:integer);
var q1,q2:TADOQuery;
begin
q1:=TADOQuery.Create(application);
q1.Connection:=dbf.base;
q2:=TADOQuery.Create(application);
q2.Connection:=dbf.base;
q1.SQL.Clear;
q1.SQL.Add("select * from podrazd");
q1.SQL.Add("where id="+inttostr(ii));
q1.Open;
while not q1.Eof do begin
q2.Close;
q2.SQL.Clear;
q2.SQL.Add("Select * from podrazd");
q2.SQL.Add("where bos="+q1.FieldByName("id").AsString);
q2.Open;
while not q2.Eof do begin
delete_node(q2.FieldByName("id").AsInteger);
q2.Delete;
end;
q1.Delete;
end;
end;

---

SergSuper   (2002-04-08 17:11:00) [1]

to dim-
можно еще по другому данные организовать
http://sdm.viptop.ru/articles/sqltrees.html

есть и другие варианты
вообще с деревьями работать довольно муторно

упоминавшеся здесь каскадное удаление никак не поможет

---

Polevi   (2002-04-08 16:54:00) [2]

PS
Я тут подумал и решил что так лучше не делать :-))
Но лучше так не делать

---

Polevi   (2002-04-08 16:44:00) [3]

CREATE TRIGGER Structure_D ON [dbo].[Structure]
FOR DELETE
AS
DECLARE @level INT
DECLARE @t TABLE(ID INT, level INT)

INSERT INTO @t SELECT ID,0 FROM Structure WHERE ID IN (SELECT ID FROM Deleted)

SET @Level=0
while exists(SELECT * FROM @t t, Structure s WHERE t.level=@level and s.owner=t.id)
begin
INSERT @t SELECT s.id, @level+1 from @t t, Structure s WHERE t.level=@level and s.owner=t.id
SET @level=@level+1
end

DELETE FROM Structure WHERE ID IN (SELECT ID FROM @t WHERE Level>0)

---

Lusha   (2002-04-08 15:50:00) [4]

>Polevi
И пример триггера до кучи... :)

---

Polevi   (2002-04-08 15:43:00) [5]

Допустим таблица Structure имеет поля ID, Owner,Name
Тогда для MS SQL SP будет выглядеть примерно так:

CREATE PROCEDURE DeleteNode @NodeID INT AS
DECLARE @level INT
DECLARE @t TABLE(ID INT, level INT)
INSERT INTO @t SELECT ID,0 FROM Structure WHERE ID=@NodeID

SET @Level=0
while exists(SELECT * FROM @t t, Structure s WHERE t.level=@level and s.owner=t.id)
begin
INSERT @t SELECT s.id, @level+1 from @t t, Structure s WHERE t.level=@level and s.owner=t.id
SET @level=@level+1
end

DELETE FROM Structure WHERE ID IN (SELECT ID FROM @t)

---

Delirium   (2002-04-08 15:36:00) [6]

В MSSQL2000 есть такая штука - каскадное удаление, как-раз для деревьев очень удобно.

---

dim-   (2002-04-08 15:26:00) [7]

to Lusha ©
хвалить не надо, не работает, а помочь можно, на путь истинный направить
То SergSuper
можно по подробней

---

SergSuper   (2002-04-08 15:10:00) [8]

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

---

Lusha   (2002-04-08 14:59:00) [9]

Ну, написал, молодец. А что надо то, похвалить? Лично я не понял... :(

---

dim-   (2002-04-08 14:45:00) [10]

НАРОД!!!!
Неужели ни кто с деревьями не работал?

---

dim-   (2002-04-08 11:24:00) [11]

В смысле "без неё"
в том то и дело, что не известно как глубоко будет вложение

---

MCFire   (2002-04-08 11:21:00) [12]

У тебя не правильно рекурсия написана...Попробуй без неё

---

Наверх