БД +Treeview определить номер родительского раздела

[Dozent]

Здраствуйте, пару часов порыл инет но подходяшего не нашёл.

Если кто сможет подскажите плз.
Суть проблемы: Использую Тривив + базу акцес.
тот фаил что используется для запоминания структуры тривив мне неподходит, в дальшнейшем придётся делать поиски поэтому наварганел такую таблицу для дублирования структуры тривив.

id (счётчик) -ади раздела
p-id (инегер) - ади родителя
name (текстовый) - название раздела
--------------------------------------------------------------------------
Привожу пример для наглядности

допустим у нас есть такая структура:

Раздел1
Раздел2
ПодРаздел21
Раздел3
Раздел4
Раздел5

в таблице этоу будит выглядеть так:

1 0 Раздел1
2 0 Раздел2
3 0 Раздел3
4 0 Раздел4
5 0 Раздел5
6 2 ПОдРаздел21
------------------------------------------------------------------------
И теперь сам вопрос: Как определить номер родительского раздела из базы даных при добавлении новго подраздела пользователем, т.е. как связать разделы с триви и записи БД???
(вот как узнать что "ПодРАздел21" пользователь хочет добавить имено во 2 раздел а не в третий или другой)

Прошу помоши своих мыслей уже нет... Наверное не хватает практики!

Заранее благодярю...

[mihali4]

Вот тут я все подробненько разъяснял :
http://www.programmersforum.ru/showthread.php?t=17575

З.Ы. Если осталось непонятным - id заносим в качестве объекта.
Вот вам и жесткая привязка каждой ветки к базе...

[Dozent]

Спасибо за сылку почитал посмотрел...
Вообшем как я понимаю если сделать отображение из своего файла то будит проше работать.

Вот токо проблема с этим отображением

procedure readtree( intrn : integer; treenodetemp: ttreenode; ttree : ttreeview );
var
bflag: boolean;
begin
ADOQuery1.sql.clear;
bflag := false;
if intrn = -1 then
begin
ADOQuery1.sql.add('select id, p_id, name');
ADOQuery1.sql.add('from structure;');
ADOQuery1.open;
ADOQuery1.first;
intrn := ADOQuery1.fieldbyname('id').asinteger;
ADOQuery1.close;
ADOQuery1.sql.clear;
bflag := true;
end;
ADOQuery1.sql.add('select id, p_id, name');
ADOQuery1.sql.add('from structure where p_id = '+inttostr(intrn));
ADOQuery1.open;
ADOQuery1.first;
while not ADOQuery1.eof do
begin
if bflag = true then
readtree(ADOQuery1.fieldbyname('id').asinteger,ttree.items.addobject(nil, inttostr(ADOQuery1.fieldbyname('id').asinteger)
+':'+ inttostr(ADOQuery1.fieldbyname('p_id').asinteger)
+':'+ADOQuery1.fieldbyname('name').asstring, nil),
ttree)
else
readtree(ADOQuery1.fieldbyname('id').asinteger,
ttree.items.addchildobject(treenodetemp,
inttostr(ADOQuery1.fieldbyname('id').asinteger)+':'+
inttostr(ADOQuery1.fieldbyname('p_id').asinteger)+':'+
ADOQuery1.fieldbyname('name').asstring, nil),
ttree); //ðåêóðñèÿ
ADOQuery1.next;
end;
ADOQuery1.close;
ADOQuery1.destroy;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
readtree( -1, nil, TreeView1);
end;

Код взяли из вашего Dfaq.exe и подправил. При нажтии на кнопку отображения не происходит, при втором нажатии появляется ошибка

Access violation at address 0048AD54 in module "Project1.exe". Read of address 00000258

[mihali4]

Ну вот, кусочек :

ttree.items.addchildobject(treenodetemp...

И это при том, что treenodetemp вы задаете как NIL...
Кому вы "детеныша" хотите добавить ?

Я вообще этот кусок не понимаю, как не понимаю и то, почему он проходит компиляцию :

else
readtree(ADOQuery1.fieldbyname('id').asinteger,
ttree.items.addchildobject(treenodetemp,
inttostr(ADOQuery1.fieldbyname('id').asinteger)+':'+
inttostr(ADOQuery1.fieldbyname('p_id').asinteger)+':'+
ADOQuery1.fieldbyname('name').asstring, nil),
ttree); //ðåêóðñèÿ
ADOQuery1.next;
end;

[Dozent]

ttree.items.addchildobject(ttree.Selected,

ПОлучается так надо? Но тут опять ошибка...

Access violation at address 00499090 in module "Project1.exe". Read of address 00000258

Я вообще этот кусок не понимаю, как не понимаю и то, почему он проходит компиляцию :

ПОчему он не должен пройти компиляцию? Что то не могу норм разобратся в этом коде...

НУ всмысле понимаю что он делает, а ошибки не вижу...

[mihali4]

Access violation - как правило, при обращении к чему-то несуществующему.
Пройдите по шагам вашу procedure readtree, найдите строку, после которой выдается ошибка.
Потом - еще раз, но уже с контролем всех переменных в этой строке.

[Dozent]

var
bflag: boolean;
begin
ADOQuery1.sql.clear; (после выполнения этой строки даже если изначально в строке скл есть чтонибудь)
bflag := false;
if intrn = -1 then

далее коментирую эту строку

if intrn = -1 then
begin
ADOQuery1.sql.add('select * from structure;');(после выполнения этой строки выдаёт ошибку)
ADOQuery1.open;
ADOQuery1.first;

Хм очень страная ошибка на очистку содержимого скл, неужели так кретично что нельзяа очистить пустую строку...

[mihali4]

Ну попробуйте (я всегда именно так делаю) - не ADD, а вот так :

ADOQuery1.SQL.Text:='select id, p_id, name from structure;');

Хотя у вас, вроде бы, какие-то проблемы со строкой подключения...
Кстати, а ADOQuery1.Close вы не хотите делать в самом начале ?

[Dozent]

Кстати, а ADOQuery1.Close вы не хотите делать в самом начале ?

Зачем это делать?

[mihali4]

"Хаароший" вопрос...
Вам никогда не приходилось обращаться к встроенной в Дельфи справке ?
Ну, тогда приведу пример из нее :

Delphi Object and Component Reference
SQL, ExecSQL example
___________________________________ ___________________
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Delete from Country where Name = ''Argentina''');
Query1.ExecSQL;

По-простому, попытка любого изменения SQL без этого - сродни попытке замены поршневых колец на работающем двигателе...