[whizzkey]

Ребят такая проблема - есть процедура, которая осуществляет выбор данных о сотрудниках компании из представления FullLIst на основе текущего выбранного элемента в иерархии TreeView, собственно вот она

Код:

begin
Screen.Cursor := crSQLWait; //Изменяем форму указателя мыши
//на "песочные часы"
    with datamodule1, Table1, TreeView.Selected do
        begin
        Close; //Закрываем набор данных Table1
              //Выбираем все столбцы из представления FullList
        DataSet.CommandText := 'select * from FullList ';
    if AbsoluteIndex > 0 then
    begin //Если выбран НЕ корневой элемент структуры, то ...
          //Находим соответствующую запись в таблице DEPS
      datamodule1.sidsDeps.Locate('DeptFullName', Text,[]);
          //Добавляем условие в запрос -
          //выбор сотрудников из всех подразделений, для которых
          //содержимое поля Parents начинается с соответствующего
          //списка идентификаторов
!!!!!!  DataSet.CommandText := DataSet.CommandText+'WHERE DepID = '+IntToStr(datamodule1.sidsDepsDeptID.AsInteger) +'or Parents starting with';
        if Parent.AbsoluteIndex > 0 then
        DataSet.CommandText := DataSet.CommandText + datamodule1.sidsDepsParents.AsString;
          //Добавляем к списку Parents идентификатор
          //текущего подразделения
        DataSet.CommandText := DataSet.CommandText +IntToStr(datamodule1.sidsDepsDeptID.AsInteger) +',';
        end;
    if ckByPoss.Checked then
    //Если есть сортировка по уровню должностей, то...
!!!!  DataSet.CommandText := DataSet.CommandText+'order by PosLevel, LastName, FirstName, FatherName'
    else
    //в противном случае сортируем строки по именам
!!!!  DataSet.CommandText := DataSet.CommandText +'order by LastName, FirstName, FatherName';
    Open; //Выбираем данные из представления FullList
    Screen.Cursor := crDefault; //Восстанвливаем указатель мыши,
    //выбранный по умолчанию
  end;

Возникает непонятная мне ошибка Token Unknow и далее те строчки напротив которых стоят !!!!(ругается либо на "=" либо на by),
Т.е dataset не хочет выполнять запрос, который я внего помещаю. Изза чего может происходить такая ошибка?

[Vocabulary]

Повнимательнее надо быть с пробелами при формировании запроса.
Например.

Код:

'WHERE DepID = '+IntToStr(datamodule1.sidsDepsDeptID.AsInteger) +'or Parents starting with';

Превратиться в:

Код:

'WHERE DepID = 12or Parents starting with';

Понятно, что token 12or запросу неизвестен. И далее тоже надо смотреть.