[whizzkey]

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

Код:

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

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]

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

Код:

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

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

Код:

1	'WHERE DepID = 12or Parents starting with';

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