[vivazz]

Здравствуйте, пытаюсь реализовать заполнение Дерева из БД, все данные пока что заполняются из одной таблицы, для простоты заполнения и чтобы разобраться. Среда: Embarcadero RAD Studio 2010.
Таблица состоит из 3 столбцов:
COD_FACULTETA, NAME_FACULTETA, ABBR_FACULTETA

Привожу пример кода:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

procedure TForm1.FormActivate(Sender: TObject); var s: string; begin   if FileExists(ExtractFileDir(ParamStr(0))+'\settings.txt') then     begin       AssignFile(f, ExtractFileDir(ParamStr(0))+'\settings.txt');       Reset(f);       Read(f, s);       CloseFile(f);     end     else       s:= ExtractFileDir(ParamStr(0))+'\bd_d.fdb';       with dm1 do       begin         SQLConnection1.Connected:=false;         SQLConnection1.Params.Clear;         SQLConnection1.Params.Values['DataBase']:=s;         SQLConnection1.Connected:=true;         LoadTreeView1;       end; // тут тупо настройка соединения с бд, если нет файла, то пытаться загрузить бд из папки end;   procedure TForm1.LoadTreeview1; var i,k : integer; begin   flag:=false;   i:=0;   TreeView1.Items.Clear;   with dm1.q do   begin     Active:=false;     SQL.Clear;     SQL.Add('SELECT * FROM FACULTET ORDER BY COD_FACULTETA');     Active:=true;     First;     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 ORDER BY COD_FACULTETA WHERE NAME_FACULTETA='+ 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;          // по идеи должно получаться так:          //Факультет Вм                //остальные факультеты          //Факультет Ск                //и т.д.     end;   end;   flag:=true; end;

Выдает следующую ошибку:

Сильно не пинать, первый раз этим занимаюсь)

[Страдалецъ]

Неверно формируете запрос:
SELECT * FROM FACULTET ORDER BY COD_FACULTETA WHERE NAME_FACULTETA=
Сортировка не может стоять до ограничения - поменяйте местами.
Примерно так:

Код:

1 2	q2.SQL.Add('SELECT * FROM FACULTET WHERE NAME_FACULTETA='+ FieldByName('NAME_FACULTETA').AsString); q2.SQL.Add('ORDER BY COD_FACULTETA');

[vivazz]

Убрал вообще сортировку, все равно такая же ошибка, вернее вместо WHERE появилась буква Ф. Копирнул ваш код - все равно ошибка. Параметры NAME_FACULTETA : VARCHAR, кол-во символов 100, кодировка win1251

[Страдалецъ]

Ну правильно, вы же строку хотие сравнить. Надо это учитывать, обрамлять ее в кавычки или передавать параметром. Вот два варианта:
Обрамление кавычками:

Код:

1 2	q2.SQL.Add('SELECT * FROM FACULTET WHERE NAME_FACULTETA='''+ FieldByName('NAME_FACULTETA').AsString)+''''; q2.SQL.Add('ORDER BY COD_FACULTETA');

Запрос с параметром:

Код:

1 2 3

q2.SQL.Add('SELECT * FROM FACULTET WHERE NAME_FACULTETA=:Facultet'; q2.SQL.Add('ORDER BY COD_FACULTETA'); q2.SQL.ParamByName('Facultet').asString := FieldByName('NAME_FACULTETA').AsString;

[vivazz]

Такс...я попробовал приведенный вами код. В двух примерах сообщает об ошибках:

Код:

1 2	q2.SQL.Add('SELECT * FROM FACULTET WHERE NAME_FACULTETA='''+ FieldByName('NAME_FACULTETA').AsString)<b>+</b>''''; q2.SQL.Add('ORDER BY COD_FACULTETA');

Тут ругается на выделенный знак + в коде

Код:

1 2 3

q2.SQL.Add('SELECT * FROM FACULTET WHERE NAME_FACULTETA=:Facultet'; q2.SQL.Add('ORDER BY COD_FACULTETA'); q2.SQL.ParamByName('Facultet').asString := FieldByName('NAME_FACULTETA').AsString;

Тут ругается на ParamByName среде неизвестно что это такое

[Ildar-tsr]

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

Тут ругается на ParamByName среде неизвестно что это такое

q2 что такое у тебя? TADOQuery?

[vivazz]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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');     <b>q2.Params.ParamByName('Facultet').asString := FieldByName('NAME_FACULTETA').AsString;</b>     q2.Active:=true;     q2.First;     k:=0;     while not dm1.q2.Eof do   <b>Тут беда! Не выходит из условия...Почему?</b>     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;

[Ildar-tsr]

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

q и q2 это TSQLQuery

Тогда поменяй

Код:

1	q2.SQL.ParamByName('Facultet').asString

на

Код:

1	q2.Params.ParamByName('Facultet').asString

После inc(k) добавь dm1.q2.Next;
А k для подсчета что ли, тогда можно просто использовать dm1.q2.RecordCount. Возвращает количество записей.

[vivazz]

Уже сделал) Ваш вопрос про q2 меня осинил что я другой компонент использую =)

[vivazz]

Сообщение от Ildar-tsr

После inc(k) добавь dm1.q2.Next;
А k для подсчета что ли, тогда можно просто использовать dm1.q2.RecordCout. Возвращает количество записей.

Если использую dm1.q2.Next;, то добавляется только один факультет в родителя, вот так:
Факультет ВМ
----Факультет ВМ
Факультет СК
----Факультет CМ
и т.д.
А надо, так:
Факультет ВМ
----Факультет ВМ
----Факультет СК
-----------------
и т.д.

[Ildar-tsr]

Что за бред происходит? Тебе нужен набор одних и тех же факультетов в разных факультетах? Что понятнее:
Факультет ВМ
----Факультет ВМ
----Факультет СК
Факультет СК
----Факультет ВМ
----Факультет СК

Так что ли?
P.S. Я сейчас могу тормозить, заранее извиняюсь.

[Страдалецъ]

тут было сообщение, но оно несколько запоздало. Стер его нафик. Теперь вот такое длинное объяснение которое никого не интересует.

[vivazz]

Вообще я собираюсь сделать так:
Факультет ВМ
-----Группа 1
--------Студент 1
--------Студент 2
-----группа 2
--------Студент 1
Факультет СК
-----Группа 1
--------Студент 1
--------Студент 2
-----группа 2
--------Студент 1

Но пока хотя бы на таблице факультеты эту задумку реализовать )

Сделал вот так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

TreeView1.Items.Clear;   with dm1.q do   begin     Active:=false;     SQL.Clear;     SQL.Add('SELECT * FROM FACULTET ORDER BY COD_FACULTETA');     Active:=true;     First;     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; <b>        k:=0;</b>         while (not dm1.q2.Eof) do   //бесконечность получается...         begin           TreeView1.Items.AddChildObject(TreeView1.Items.Item<b>[k]</b>,           dm1.q2.FieldByName('NAME_FACULTETA').AsString, Pointer(           dm1.q2.FieldByName('COD_FACULTETA').AsInteger));    //(это для примера опять идут факультеты, т.к. ничего в бд не заполнено) <b>          inc(k);</b>           dm1.q2.Next;         end;         i:=i+k+1;         Next;       end;

Первый факультет заполняет нормально, получаю:
Факультет ВМ
---остальные факультеты (ВМ, СК, ЭЭ)
Факультет СК
пусто
Факультет ЭЭ
пусто

[Страдалецъ]

А на кой вам в коде переменная к? У вас-же после заполнения дерева будет количество элементов в TreeView1.Items.Count
И кстати, а как у вас реализована свзяь между таблицами Факультет,Группа,Студент. Или все в одной таблице?

[Ildar-tsr]

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

Но пока хотя бы на таблице факультеты эту задумку реализовать )

Тогда на данном этапе попробуй заменить

Код:

1 2 3

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;

на

Код:

1	q2.SQL.Add('SELECT * FROM FACULTET ORDER BY COD_FACULTETA');

А вообще что тебе понадобиться:
1. Таблица FACULTET (ID-уникальный (то есть ключевое поле) номер факультета, NAME - наименование факультета):

Код:

1 2 3 4

ID       NAME 1   Факультет ВМ 2   Факультет СК 3   Факультет ЮР

2. Таблица GROUPS (ID аналогично, Name - наименование группы, FAC_ID - номер факультета, к которому привязана группа):

Код:

1 2 3 4 5 6 7

ID      NAME          FAC_ID 1    Группа 1001        1 2    Группа 1101        2 3    Группа 1102        2 4    Группа 1201        1 5    Группа 1202        3 6    Группа 1203        1

3. Таблица STUDENTS (GROUP_ID привязывает к группе):

Код:

1 2 3 4 5 6 7 8 9

ID     {куча столбцов с персональными данными}     GROUP_ID 1                   ...                              1 2                   ...                              1 3                   ...                              2 4                   ...                              5 5                   ...                              6 6                   ...                              3 7                   ...                              3 8                   ...                              4