Опять Treeview / help срочно плз

[VenMaster]

Имеется таблица в Access со след. полями ID,Tema,Razdel,Name,Path
КОД:
procedure TForm1.Button1Click(Sender: TObject);
var
kol1,kol2,kol3,i,j,n:integer;
Nod,Nod1:TTreeNode;
st1,st2,st3:string;
begin
TreeView1.Items.Clear;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select distinct Tema from Table order by Tema';
ADOQuery1.Open;

kol1:=ADOQuery1.RecordCount;
ADOQuery1.first;
for n:=1 to kol1 do
begin
st1:=trim(ADOQuery1.FieldValues['Tema']);
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:='select distinct Razdel from Table where Tema = '''+st1+''' order by Razdel';
ADOQuery2.Open;
kol2:=ADOQuery2.RecordCount;
ADOQuery2.First;
Nod:=TreeView1.Items.Add(nil,st1);
for i:=1 to kol2 do
begin
st2:=trim(ADOQuery2.FieldValues['Razdel']);
nod1:=TreeView1.Items.AddChild(nod, st2);
//nod1.ImageIndex:=1;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Text:='select Name from Table where Tema = '''+st1+''' and Razdel = '''+st2+''' order by Name';
ADOQuery3.Open;
kol3:=ADOQuery3.RecordCount;
for j:=1 to kol3 do
begin
st3:=trimright(ADOQuery3.FieldValue s['Name']);
TreeView1.Items.AddChild(nod1,st3);
ADOQuery3.Next;
end;
ADOQuery2.Next;
end;
ADOQuery1.Next;
end;

end;

Этот код строит дерево след. вида: Тема->Раздел->Название. В поле Path прописывается путь к файлу который при двойном щелчке по Названию должен открываться предположим в WebBrowser'е. Много чего пробывал но чет не выходит. Помогите (если это конечно возможно).
Пробовал поле Path задавать тип OLE, во с этим у меня вообще ниче не выходит.
Принимается любая помощь. ЗАРАНИЕ СПС

[hoza_syl]

Добавь еще одну переменную типа TTreeNode, а также указатель на тип string

var 
   nod3 : TTreeNode
   Path    : ^string

Место:

for j:=1 to kol3 do
  begin
    st3:=trimright(ADOQuery3.FieldValues['Name']);
    TreeView1.Items.AddChild(nod1,st3);
    ADOQuery3.Next;
 end;

Замени на такое:

for j:=1 to kol3 do
  begin
    st3:=trimright(ADOQuery3.FieldValues['Name']);
    nod3:=TreeView1.Items.AddChild(nod1,st3);
    Path^:=adoQuery3.FieldValues['Path']);
    nod3.data:=path; 
{У класса  TTreenode есть свойство Data, которое может хранить данные типа Pointer. 
Заганяем туда строку, а затем при двойном щелчке считываем. :) }
   ADOQuery3.Next;
end;

Также добавь обработчик события OnDblClick:

procedure TForm1.TreeView1DblClick(Sender: TObject);
var url : string;
begin
if treeView1.SelectionCount=1 then //если выделено больше чем один ноде
 begin
 url:= String(treeView1.Selected.data^) ; //читаем путь к файлу из свойства data
   webbrowser1.Navigate(url); //тут все ясно
 end;

end;

[VenMaster]

В этой части выдает ошибку что, типа поле Path не найдено????for j:=1 to kol3 do
begin
st3:=trimright(ADOQuery3.FieldValue s['Name']);
nod3:=TreeView1.Items.AddChild(nod1 ,st3);
Path^:=adoQuery3.FieldValues['Path']);
nod3.data:=path;
{У класса TTreenode есть свойство Data, которое может хранить данные типа Pointer.
Заганяем туда строку, а затем при двойном щелчке считываем. }
ADOQuery3.Next;
end;

[VenMaster]

Народ выручайте плз

[Stilet]

Если поле не найдено в таблице значит его там нет или ты не верно его название написал

[VenMaster]

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

Если поле не найдено в таблице значит его там нет или ты не верно его название написал

не, он его не находит т.к. оно в запросе не описано
ADOQuery3.SQL.Text:='select Name from Table where Tema = '''+st1+''' and Razdel = '''+st2+''' order by Name';
а когда я его в этот запрос добавляю или создаю еще один цикл, добавив ADOQury4 выдает вообще какуюто ошибку типа Access.....итам всякие цифры...

[Snegovik]

VenMaster прошу прощения, что не по теме спрашиваю, я пытаюсь разобраться в сущности работы TreeView с БД, я новичек в этой "теме".
У меня вопрос: я создал базу в Access по типу вашего, затем на форме батончику дал аналогичный вашему код (+ на форме ADOQuery 3 шт. и т.п.).
Компилирую - все нормально. Жму на батон - выскакивает: "ошибка синтаксиса в предложении FROM".
Если вас не затруднит, поясните где я ошибся? Уж очень хочется разобраться в работе связки TreeView и БД!

[hoza_syl]

Snegovik у тебя неверный SQL запрос(Тойсть ошибка в свойстве SQL компонента TADOQUERY). Выклади его, и мы посмотрим где ошибка.

[Snegovik]

Да собственно, в свойство ADOQuery# я те же запросы и прописал, что в коде

[hoza_syl]

Ну может у тебя таких полей в таблице нету, как в запросе. Выложы все, я посмотрю