как грамотно написать рекурсивную процедуру обрашения к бд ?на основе sql ?

Раскажи по подробней о своей задаче.

Код

Procedure wetka ( wet : TTreeNode; ids :Integer); var i, LIM : integer; sqls : string; wetk : TTreeNode; begin  sqls := 'SELECT ID, TIP, IMG, NAM  FROM INSTR WHERE UPID="'+IntToStr(ids)+'"';  form1.Query1.Close;  form1.Query1.SQL.Text := sqls;  form1.Query1.Open;  lim := FORM1.Query1.RecordCount;  IF lim = 0 THEN EXIT  else    begin      for  i := 1 to lim do      begin        wetk := form1.TreeView1.Items.AddChildObject(wet,form1.Query1.fieldByName('NAM').AsString ,nil);        form1.Query1.Next;        wetka (wetk,form1.Query1.fieldByName('ID').asInteger );      end;    end; end;

Тут где-то идет моя ошибка мне кажется что просто результаты sql запроса каждый раз изменяються что и приводит к зацикливанию проги.. Наверное надо сделать запрос и его результаты пернести сразу в массив, а уже потом анализируя его делать рекурсию .
Добавлено @ 08:44
Или может вся подпрограмма изначальна не верна . Просто нужна связь БД и древовидного компанента.... представить элементы базы данных в виде древовидной структуры

Блин, объясни задачу.
Вот у всех проблема.... толи с русским языком, толи с авторскими правами. Никто толком никогда не расскажет что он делает. Как помогать-то?

Дальше по коду:

Procedure wetka ( wet : TTreeNode; ids :Integer);
var
i, LIM : integer;
sqls : string;
wetk : TTreeNode;
begin
sqls := 'SELECT ID, TIP, IMG, NAM FROM INSTR WHERE UPID="'+IntToStr(ids)+'"';
form1.Query1.Close;
form1.Query1.SQL.Text := sqls;
form1.Query1.active:=true;
query1.first;
repeat
wetk := form1.TreeView1.Items.AddChildObject(wet,form1.Query1.fieldByName('NAM').AsString ,nil);
wetka (wetk,form1.Query1.fieldByName('ID').asInteger );
until query1.findnext=false;
end;

Может так, если я правильно домыслил вашу задачу?

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

Тебе надо или для каждой ф-ии создавать свой квери или все сливать в массив запросов и потом с хвоста массива брать эти запросы(удаляя эти запросы) а новые опять добавлять. Вообщем известный прием.

Это сообщение отредактировал(а) Bes - 24.2.2005, 09:54

Первая ошибка в том, что у тебя при каждом цикле будет закрываться Query1 и в него грузятся другие данные.

madmanStas, думаю, что должно, это все выглядить так:

Код

Procedure wetka ( wet : TTreeNode; ids :Integer); var  wetk : TTreeNode; begin  with TQuery.Create(Application) do try    DataBaseName:= Form1.Query1.DatabaseName;    SQL.Text:= 'SELECT ID, TIP, IMG, NAM  FROM INSTR WHERE UPID="'+IntToStr(ids)+'"';    Open;    while not Eof do begin      wetk:= form1.TreeView1.Items.AddChildObject(wet, fieldByName('NAM').AsString ,nil);      Next; // Смущает он меня здесь      wetka (wetk,fieldByName('ID').asInteger ); //      Next; // Помойму он здесь стоять должен    end;  finally    Free;  end; end;