Всем привет, у меня есть процедура с in/out параметрами :
авторCREATE OR ALTER procedure CL_CATALOG_EL_SET (
PDIRVALVID bigint,
PDIRID bigint,
PDIRCODE varchar(1024),
PDIRTYPE integer,
PDIRVAL varchar(1024),
PDIRNOTE varchar(1024),
PUSER int,
PMOVE bigint,
PMANIP bigint)
returns (
MSG varchar(1024),
RES bigint)
as...

согласно описанию http://firebirdsql.su/doku.php?id=execute_procedure
я вызвал процедуру в IbExpert, она отработала нормально, на рис. видно что мои out параметры получили значения.

Подскажите как должен выглядеть вызов этой процедуры в программе?? ведь out-параметры явно не указаны!!!!
Мне необходимо вызвать процедуру в компоненте UniSql (UniDac), получить р-т и дальше с ним поработать.
В Oracle out-параметры явно объявляются.
автор{if Oracle}
begin
CL_CATALOG_EL_SET( :PDIRVALID, :PDIRID, :PDIRCODE, :PDIRTYPE, :PDIRVAL, :PDIRNOTE, :MSG, :RES, :PUSER, :PMOVE, :PMANIP);
end;
{else}
{if InterBase}
EXECUTE PROCEDURE CL_CATALOG_EL_SET( :PDIRVALID, :PDIRID, :PDIRCODE, :PDIRTYPE, :PDIRVAL, :PDIRNOTE, :PUSER, :PMOVE, :PMANIP)
{endif}
{endif}

Спасибо.

DarkMasterMediv,

Писать:

SELECT FIELD1,FIELD2 from PROCEDURE_NAME(:IN_PARAM1,:IN_PARAM2)

пробовал?


автор select *
from CL_CATALOG_EL_SET(:PDIRVALID, :PDIRID, :PDIRCODE, :PDIRTYPE, :PDIRVAL, :PDIRNOTE, :PUSER, :PMOVE, :PMANIP)
такой вызов возвращает значения, как эти значения в параметр передать?? добавлял в конец авторinto :MSG, :RES , стреляла ошибка, как это правильно сделать??

Fr0sT-BrutalЕсли ХП возвращает единственную строку данных, то можно юзать execute procedure <SP_Name(...)>, после чего получать значения обычным образом:
Msg := Query.FieldByName('MSG').AsString;
Если возвращается несколько строк, то select * from <SP_Name(...)>


авторCREATE OR ALTER procedure CL_CATALOG_EL_SET (
PDIRVALVID bigint,
PDIRID bigint,
PDIRCODE varchar(1024),
PDIRTYPE integer,
PDIRVAL varchar(1024),
PDIRNOTE varchar(1024),
PUSER int,
PMOVE bigint,
PMANIP bigint)
returns (
MSG varchar(1024),
RES bigint)
as...


вызов :

авторEXECUTE PROCEDURE CL_CATALOG_EL_SET( :PDIRVALID, :PDIRID, :PDIRCODE, :PDIRTYPE, :PDIRVAL, :PDIRNOTE, :PUSER, :PMOVE, :PMANIP)


В объявлении процедуры указан с блок с out-параметрами :

авторreturns (
MSG varchar(1024),
RES bigint)
as...


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

Fr0sT-BrutalDarkMasterFr0sT-Brutal,

Наверное привычка, но всегда пишу SELECT вне зависимости от того, возвращается одно значение или несколько.
Конечно так тоже можно, но в случае select будет создан курсор, а при execute просто вернутся значения. Правда, некоторые компоненты, особенно замшелые, могут не поддерживать такой способ вызова.

автора в вызове его нет, как компонент в программе получиться значения этих параметров???
Как-как, сервер-то знает, какие выходные параметры у ХП. Вот он их и возвращает.
Кусок моей проги:


При этом текст запроса имеет вид 'EXECUTE PROCEDURE PR_PROC(:par1, :par2, ...)'

Мне нужно использовать UniSql (UniDac), там нет FieldByName. отказываться от него не хочется, иначе я попаду на параллельную разработку и поддержку 2-ух клиентов, запостил тему на сайте деворта, посмотрим что ответят.

Fr0sT-BrutalMediv, мда, какой-то странный компонент-пак. Ну, тогда не судьба. Юзай query и select * from <proc>

Компоненты доступа к БД отличные, давно пользую, конечно там многих фишек нет, т.к. у каждой СУБД свои нюансы, но в основном все отлично, цепляюсь к разным БД, не нужно сад-огород из разных компонентов разводить, у деворта кстати есть компоненты заточенные под определенную БД, но по моему под FB нет.

Решение предложенное девартом :
авторUniSQL.CreateProcCall('CL_CATALOG_EL_SET');
UniSQL.Execute;
ShowMessage(UniSQL.ParamByName('msg').AsString);

Работает!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Dimitry SibiryakovMedivиначе я попаду на параллельную разработку и поддержку 2-ух клиентов

Это не так уж сложно если немного подумать головой.


Ну так поделись опытом с сообществом, всем будет полезно.