Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > sql запросы и рекурсия

Автор: madmanStas 23.2.2005, 22:47

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

Автор: Alex 23.2.2005, 23:04

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

Автор: madmanStas 24.2.2005, 08:39

Код


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 запроса каждый раз изменяються что и приводит к зацикливанию проги.. smile

Наверное надо сделать запрос и его результаты пернести сразу в массив, а уже потом анализируя его делать рекурсию .
Добавлено @ 08:44
Или может вся подпрограмма изначальна не верна smile

. Просто нужна связь БД и древовидного компанента.... представить элементы базы данных в виде древовидной структуры smile

Автор: Bes 24.2.2005, 09: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;

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

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

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

Автор: Alex 24.2.2005, 18:49

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

Автор: Alex 24.2.2005, 19:13

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;