Выполнить хранимую процедуру

[bestonix]

Здравствуйте

Имею Lazarus 0.9.31 ZEOS 6.6.6

Каким макаром выполнить процедуру из пакета ???
С помощью компонента TZStoredProc никак не получается, выдаёт сообщение Unsupported operation.
Попробовал написать через TZQuery:

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

      SQL.Add('begin');
     SQL.Add(' CARDCORRECT.InsTemp1;');
     SQL.Add('end;');
     ExecSQL; 


Ругань на первую строку в позиции 6. Сохраняю этот же скрипт в файл, и выполняю без изменений все идёт на ура.
Сама процедура выглядит до безобразия просто

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

procedure InsTemp1
IS
BEGIN
insert into temp1 (seid,  dcid,  oddt,  opdt,  bpgi)
values (1999, 2999, sysdate, sysdate, 3999);
END;

[ronin]

Каким макаром выполнить процедуру из пакета ???

чё за субд? и можно точное сообщение об ошибке, не своими словами?

[bestonix]

чё за субд? и можно точное сообщение об ошибке, не своими словами?

СУБД Оракл
Скрин в файле

[ronin]

я так понимаю у вас ошибки синтаксиса SQL, в Mysql например вызов процедуры производится CALL имя_процедуры, в оракуле вроде так же (могу ошибаться)

Добавлено спустя 1 минуту 1 секунду:
и можно begin end не вставлять

[bestonix]

В общем лажа полная. Никак не получилось "завести" выполнение ХП.
Пришлось все операции выполнять в отдельных скриптах, записанных в TZQuery.
Коряво, но по другому никак пока не получилось, время поджимает.
Надо, чтоб работало, а о правильности и красивости пришлось забыть.
Походу компонента TZStoredProc "висит" для ассортимента, не более, а жаль
А может и я чего не догоняю, хорошо бы если так.

[WAYFARER]

Походу компонента TZStoredProc "висит" для ассортимента

Он прекрасно работает с хранимыми процедурами, а вы вызываете процедуру из пакета.
Конструкции типа "имя_пакета.имы_процедуры" он не поймет.
По поводу ошибки при вызове процедуры из анонимного блока, то это ошибка компиляции pl/sql, т.е. исключение на сервере возникает и zeos должен бы быть ни причем. Проверяйте все внимательнее, не попало ли непечатного символа в запрос и т.д.
Попробуйте такую конструкцию:

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

SQL.Add('BEGIN CARDCORRECT.InsTemp1; END; /')

или

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

SQL.Text:='BEGIN CARDCORRECT.InsTemp1; END; /';

К сожалению проверить мне в данный момент не на чем, от оракла отказались в пользу PostgreSQL.

[ronin]

Он прекрасно работает с хранимыми процедурами

выдаёт сообщение Unsupported operation

аналогичная ерунда, как вы заставили компонент работать с хранимыми процедурами?

Добавлено спустя 2 минуты 16 секунд:
CLIENT_MULTI_STATEMENTS=true
CLIENT_MULTI_RESULTS=true

??? или ещё как?

[WAYFARER]

CLIENT_MULTI_STATEMENTS=1 ))
Но походу, я ввожу тут народ в заблуждение очередной раз))
Щас отрыл старый исходник утилитки для выгрузки, там только ZQuery используются.

[ronin]

я уж испугался что зря писал свой класс для работы с процедурами