[vivazz]

q и q2 это TSQLQuery
Вот так сделал:

Код:

    while not Eof do
    begin
      TreeView1.Items.Add(nil, FieldByName('NAME_FACULTETA').AsString);// тут обращение к бд работает
      with dm1 do
      begin
        q2.Active:=false;
        q2.SQl.Clear;
        q2.SQL.Add('SELECT * FROM FACULTET WHERE NAME_FACULTETA=:Facultet');
        q2.SQL.Add('ORDER BY COD_FACULTETA');
        q2.Params.ParamByName('Facultet').asString := FieldByName('NAME_FACULTETA').AsString;
        q2.Active:=true;
        q2.First;
        k:=0;
        while not dm1.q2.Eof do   Тут беда! Не выходит из условия...Почему?
        begin
          TreeView1.Items.AddChildObject(TreeView1.Items.Item[i],
            dm1.q2.FieldByName('NAME_FACULTETA').AsString, Pointer(
              dm1.q2.FieldByName('COD_FACULTETA').AsInteger));    //(это для примера опять идут факультеты, т.к. ничего в бд не заполнено)
              inc(k);
        end;
        i:=i+k+1;
        Next;
      end;