Delphi, Firebrird, Процедуры

[crossmark]

Привет!
Столкнулся с такой проблемой... как только не пробовал... только не так как надо.
не могу получить выходные параметры из хранимой процедуры бд на Firebird/
сама процедура в IBExpert работает: вот код
Код:

create or alter procedure PR_READ_DATA_PERS (
TAB_PERS integer)
returns (
R_TAB_PERS integer,
R_FAM_PERS varchar(30),
R_NAME_PERS varchar(30),
R_LAST_NAME_PERS varchar(30),
R_TOWN_PERS varchar(30),
R_STREET_PERS varchar(30),
R_HOUSE_PERS varchar(10),
R_KVART_PERS varchar(10),
R_BIRTH_PERS date,
R_KOLONA_PERS smallint,
R_POST_PERS integer,
R_MOTION_PERS integer,
R_KLASS_PERS smallint,
R_TRACT_PERS integer,
R_DATE_PERS date)
as
begin
select PERSONAL.p_tab, PERSONAL.P_FAMILY, PERSONAL.P_NAME, PERSONAL.P_LASTNAME,
PERSONAL_DATA.PD_TOWN, PERSONAL_DATA.PD_STREET, PERSONAL_DATA.PD_HOUSE,personal_data.pd_kvart,
PERSONAL_DATA.P_BIRTH, PERSONAL_DATA2.PD_KOLONA, personal_data2.pd_post,
personal_data2.pd_motion, PERSONAL_DATA2.PD_KLASS, personal_data2.pd_traction, PERSONAL_DATA2.PD_DATE
from personal,personal_data,personal_data2
where (personal.p_tab=:Tab_pers) and (personal_data.pd_tab=:tab_pers) and (personal_data2.pd_tab=:tab_pers)
into :R_TAB_PERS, :R_FAM_PERS,:R_NAME_PERS,:R_LAST_NAME_PERS,:R_TOWN _PERS,:R_STREET_PERS,:R_HOUSE_PERS,:R_KVART_PERS,: R_BIRTH_PERS,:r_kolona_pers,:R_POST_PERS,:r_motion _pers,:r_klass_pers,:R_TRACT_PERS,:r_date_pers;
end

Тут, занчаит один входящий парметр и ряд выходящик параметров.

на делфи пробую вызов так:
Код:

StoredProcReadPersProc.Active;
StoredProcReadPersProc.StoredProcName:='PR_READ_DA TA_PERS';
StoredProcReadPersProc.Params.Add;
StoredProcReadPersProc.Params.Items[0].Name:= 'TAB_PERS';
//StoredProcReadPersProc.Params[0].AsInteger:=QueryViewPers.FieldByName('P_TAB').AsI nteger;
StoredProcReadPersProc.Params.ParamValues['TAB_PERS']:= QueryViewPers.FieldByName('P_TAB').AsInteger;
StoredProcReadPersProc.Params.Add;
StoredProcReadPersProc.Params.Items[1].Name:='R_FAM_PERS';
showmessage(StoredProcReadPersProc.ParamByName('TA B_PERS').AsString);
StoredProcReadPersProc.Prepare;
StoredProcReadPersProc.ExecProc;

//StoredProcReadPersProc.Params.AddParam(
s:=StoredProcReadPersProc.ParamByName('R_FAM_PERS' ).Value;
showmessage(s);

как получить все эти выходные параметры...?


спасибо!

[Аватар]

ADOQuery.SQL.Text:='EXECUTE PROCEDURE PR_READ_DATA_PERS ('+IntToStr(QueryViewPers.FieldByName('P_TAB').AsInteger)+')';
ADOQuery.Open;

И работать как с таблицей. Уточните как в Firebrird вызывается хранимая процедура. Если не так, то подправьте

[crossmark]

ну должен же быть вариант чтобы считать в переменные и не использовать таблицу

[Аватар]

Попробуйте для каждого параметра в таком духе

if StoredProcReadPersProc.Params.FindParam('R_TAB_PERS') <> nil
  then xR_TAB_PERS := StoredProcReadPersProc.Params.ParamByName('R_TAB_PERS').AsInteger;

Сделать результат процедуры как набор данных удобнее в данном случае. ИМХО

[crossmark]

Сообщение от Аватар

Попробуйте для каждого параметра в таком духе

if StoredProcReadPersProc.Params.FindParam('R_TAB_PERS') <> nil
  then xR_TAB_PERS := StoredProcReadPersProc.Params.ParamByName('R_TAB_PERS').AsInteger;

Сделать результат процедуры как набор данных удобнее в данном случае. ИМХО

получается как TIBStoredProc не получает и не видит эти параметры,
если параметр добавить через ADD, то он пустой.

 StoredProcReadPersProc.Params.Add;
 StoredProcReadPersProc.Params.Items[0].Name:= 'TAB_PERS'; 
 StoredProcReadPersProc.Params.ParamValues['TAB_PERS']:= QueryViewPers.FieldByName('P_TAB').AsInteger;

А если

 s:=StoredProcReadPersProc.ParamByName('R_FAM_PERS').AsString

то сообщает что такой параметр не найден

[Аватар]

C TIBStoredProc не знаком. Возможно там другое свойство для возвращаемых параметров? Эквивалент в ADO позволяет так делать.

[crossmark]

если делать так

StoredProcReadPersProc.Active;
 StoredProcReadPersProc.StoredProcName:='PR_READ_DATA_PERS';
 
 StoredProcReadPersProc.Params.ParamValues['TAB_PERS']:= QueryViewPers.FieldByName('P_TAB').AsInteger;
 StoredProcReadPersProc.Prepare;
 StoredProcReadPersProc.ExecProc;

выдает ошибку StoredProcReadPersProc: Parameter 'TAB_PERS' not found

[Прик]

Если StoredProcReadPersProc - это TIBStoredProc, то

StoredProcReadPersProc.ParamByName('TAB_PERS').Value := <значение>

[crossmark]

Сообщение от Прик

Если StoredProcReadPersProc - это TIBStoredProc, то

StoredProcReadPersProc.ParamByName('TAB_PERS').Value := <значение>

капец, два дня копаться и искать решение... а решение в две строчки

[code]StoredProcl.ParamByName('TAB_PERS') .Value:=2;
StoredProcl.Prepare;
StoredProcl.ExecProc;
s:=StoredProcl.ParamByName('R_FAM_P ERS').AsString ;
showmessage(s);./code]

Спасибо!

[crossmark]

Прик тебе огромное спасибо!!!!!!!!!!!!!!!!!!