процедуры

[FIIR]

Помогите пожалуйста!!! У меня в Delphi не работают процедуры которые должны изменять структуру БД, а точнее представления, процедуры компилируются но потом прога зависает, выскакиваеи ошибка :token unknown - line 1, char 33=. заранее спасибо!

[FIIR]

у меня выборка с помощью компонента TreeView осуществляется. там типо название подразделений и в таблицу он должен занести только
информацию об этом подразделениии.
DataSet.CommandText:= 'SELECT * FROM FullList'; тут выбирается все представление, потом
if AbsoluteIndex > 0 then если выбран не корневой элемент, то
sidsDeps.Locate('DeptFullName',Text ,[]);
DataSet.CommandText:= DataSet.CommandText +
'WHERE DepID='+ intToStr(sidsDepsDeptID.AsInteger)+
'OR Parents STARTING WITH''';

В DataSet.CommandText вносится условие выбор только того
подразделения для которых поле Parents начинается с соответствующего идентификатора(то есть sidsDepsDeptID)
потом в этот Parents добавляется этот идентификатор
DataSet.CommandText:= DataSet.CommandText+
sidsDepsParents.AsString;
DataSet.CommandText:= DataSet.CommandText+
intToStr(sidsDepsDeptID.AsInteger)+ ',''';
запрос должен получиться что то вроде

SELECT * FROM FullList
where DepID= 1 or Parents Starting with '1'

[B_N]

FIIR, постарайтесь всё-таки посмотреть, как выглядит запрос прямо перед ошибкой.То, как он должен - не показатель. У меня есть подозрение, что пока Вы складываете строки, где-то теряется пробел между выражениями, плюс я не уверен, можно ли в Вашем SQL писать STARTING WITH '1', а не STARTING WITH('1'), я лично всегда LIKE пользуюсь..

[FIIR]

Когда я физически вписывал в DataSet.CommandText этот запрос он работал, а с помощью процедуры не хочет, но я на все 100% уверен что составлена она правильно, только не пойму если не из-за нее и не из-за запросов, тогда из-за чего.

Спасибо что отвечали.

[B_N]

FIIR, "token unknown - line 1, char 33........." - это 100% ошибка в запросе. соберите его в какую-нибудь строку и выведите, наврняка сразу будет видно.

[FIIR]

Как это сделать?

у меня только тут 2 запроса
DataSet.CommandText:= 'SELECT * FROM FullList';
и
DataSet.CommandText:= DataSet.CommandText +
'WHERE DEPID= ' + intToStr(sidsDepsDeptID.AsInteger)+
'OR Parents STARTING WITH''';

ну и в самом SimpleDataSet.CommandText записано SELECT * FROM FullList

не доходит ни как че тут не верно
SQL диалект 3й

[B_N]

FIIR, соберите куски запроса в обычную строковую переменную, а не в DataSet.CommandText и перед выполнением запроса посмотрите на эту строку через ShowMessage, хотя бы так. Просто по тму, как сейчас написано, получается вот такой запрос:
SELECT * FROM FullListWHERE DEPID= 1OR Parents STARTING WITH''

[mihali4]

'WHERE DEPID= ' + intToStr(sidsDepsDeptID.AsInteger)+

Праздник, все-таки... Поэтому особо не "въезжал"...
Но это - просто в глаза бросилось:

'WHERE DEPID= ' + intToStr(sidsDepsDeptID.AsInteger)+

а почему не:
'WHERE DEPID= ' + sidsDepsDeptID.AsString+

Ну, и при эксепшене сделайте один шажок и посмотрите, что там у вас в SQL-е (вам именно на это и намекают).

[FIIR]

ТОЧНО! В процедуре запрос без пробелов складывался.
ОГРОМНОЕ СПАСИБО!

[B_N]

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

ТОЧНО! В процедуре запрос без пробелов складывался.
ОГРОМНОЕ СПАСИБО!

Вот-вот.