Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];

Вниз

DELPHI, Paradox и древовидные структуры данных   Найти похожие ветки 

 
OneOfTheFew   (2003-03-20 13:29) [0]

Уважаемые Мастера !
Помогите решить такую задачу (желательно стандартными средствами: Delphi и Local SQL):

Есть парадоксовская таблица, описывающая древовидную стуктуру:
<Persons.db>
Person_id I
Parent_id I
Person_Name A(30)

Как получить список всех Person_id подчиненных указанному элементу непосредственно и опосредовано? Понятно, что глубина вложенности дерева практически не ограничена.

Заранее благодарю за помощь!


 
Соловьев   (2003-03-20 13:31) [1]

select PersonID
from Persons
where ParentId=10


 
OneOfTheFew   (2003-03-20 17:42) [2]

2 Соловьев

Не, Вы не поняли. Мне нужно "вычленить" поддерево все, а Ваше решение выдает только прямых "детишек". А как насчет "внуков" и "правнуков" ???


 
Соловьев   (2003-03-20 17:46) [3]

на парадоксе такое не решаемо...хотя в цыкле программно, а вот на IB и ему подобных с ХП вполне. www.ibase.ru там есть классные примеры...


 
Mike Kouzmine   (2003-03-20 17:50) [4]

Возьми пролог. Там это считается одной строчкой :)


 
Zelius   (2003-03-20 22:24) [5]

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

пример основной таблицы:
1 0 Петров
2 1 Иванов
3 2 Сидоров
4 2 Орлов
5 4 Козлов
а так будет выглядеть дополнительная таблица:
1 2
1 3
1 4
1 5
2 3
2 4
2 5
4 5


 
OneOfTheFew   (2003-03-21 14:05) [6]

Всем Спасибо!



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.008 c
3-30309
tERRORist
2003-03-22 10:54
2003.04.10
Почему только 10 полей в dbExpress?


3-30286
_Роман_
2003-03-16 14:05
2003.04.10
Неправильная работа MySQL ?


3-30222
minva74
2003-03-20 17:26
2003.04.10
TimeOut


7-30630
Borys
2003-02-17 15:00
2003.04.10
FindWindow в сервисе


4-30642
SeF
2003-02-07 10:14
2003.04.10
UpdateResource





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский