IBX->TIBSQL: странный Dynamic SQL Error

[wofs]

Доброго вечера!
Пытаюсь выполнить через TIBSQL запрос (текст из сохраненного SQL.Text):

Код: Выделить всё

create or alter procedure GETPARENTS_GROUP_CATALOG ( ID integer)  returns (  BREADCRUMPS varchar(6000),  CID integer,  PARENTID integer,  NAME varchar(30))  as  declare variable VARBREADCRUMPS varchar(6000);  BEGIN  varbreadcrumps = '';  WHILE (:ID > 0) DO         BEGIN  SELECT G.ID, G.IDPARENT, G.NAME  FROM "GROUP-CATALOG" G  WHERE G.ID = :ID  INTO :CID, :PARENTID, :NAME;  varbreadcrumps = NAME||'\'||varbreadcrumps;  breadcrumps = varbreadcrumps;  ID = :PARENTID;         END  SUSPEND;  END


В коде это выглядит так:

Код: Выделить всё

SQL.Text:= 'create or alter procedure GETPARENTS_GROUP_CATALOG ('
         +' ID integer) '
         +' returns ( '
         +' BREADCRUMPS varchar(6000), '
         +' CID integer, '
         +' PARENTID integer, '
         +' NAME varchar(30)) '
         +' as '
         +' declare variable VARBREADCRUMPS varchar(6000); '
         +' BEGIN '
         +' varbreadcrumps = ''''; '
         +' WHILE (:ID > 0) DO '
         +'        BEGIN '
         +' SELECT G.ID, G.IDPARENT, G.NAME '
         +' FROM "GROUP-CATALOG" G '
         +' WHERE G.ID = :ID '
         +' INTO :CID, :PARENTID, :NAME; '
         +' varbreadcrumps = NAME||''\''||varbreadcrumps; '
         +' breadcrumps = varbreadcrumps; '
         +' ID = :PARENTID; '
         +'        END '
         +' SUSPEND; '
         +' END   ';


И получаю ответ:

Код: Выделить всё

Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, column 349
?


В позиции 349 стоит слово INTO
Но самое интересное, что в IBExpert запрос (просто взял текст из SQL.Text, сохраненного в файл) выполняется без каких либо проблем:

2017-12-09_21-45-44.png

Прошу помощи разобраться в ситуации..

Пример проекта привести проблематично...

[*Rik*]

IBX какие? Если мои, то попробуйте выполнить этот запрос через TIBSQL.
IBSQL1.Transaction.StartTransaction;
IBSQL1.ExecQuery;
IBSQL1.Transaction.Commit;
ps. Галочку ParamCheck надо снять.

У меня Ваша процедура создается, только я SELECT из своей таблицы делал.
Через TIBQuery тоже работает, только проблема в том, что там параметры все время парсятся, не смотря на ParamCheck = False.
С TIBQuery перед выполнением запроса:
IBQuery1.Params.Clear;
Потом посмотрю почему так происходит..

[wofs]

IBX какие? Если мои, то попробуйте выполнить этот запрос через TIBSQL.

Да, ваши - очень удобно, спасибо за ваш труд. Через TIBSQL и делал.
Проблема была в :

Галочку ParamCheck надо снять.

Компоненты создаю динамически, поставил в свое время

Код: Выделить всё

ParamCheck := true;

При

Код: Выделить всё

ParamCheck := false;

Все работает.
Спасибо!!!

[yamakasi]

*Rik*
Я новичок на форуме. Можно где-то ознакомиться с указанными компонентами?

[*Rik*]

*Rik*
Я новичок на форуме. Можно где-то ознакомиться с указанными компонентами?

Вас интересует как использовать?