TZQuery and Output Params
Posted: 08.03.2006, 17:21
Hi i'm new friend,
i'm using zeos 6.5.1 conponent in lazarus to work with oracle XE (free version of 10g) and i've same problem to keep back output param's value. I tried to use TZStoredProc but i had an unsupported operation exception (i think is because zeos support only oracle 9i).
So i changed the code and now i'm using TZQuery to call Stored Procedure in oracle:
Where PrCicloMng is my stored in PKGESTIONEPEZZI package and it has 4 params input and just 1 output, i'm able to call procedure but i cannot get back 'errdiag' param.
Anybody can help me?
i'm using zeos 6.5.1 conponent in lazarus to work with oracle XE (free version of 10g) and i've same problem to keep back output param's value. I tried to use TZStoredProc but i had an unsupported operation exception (i think is because zeos support only oracle 9i).
So i changed the code and now i'm using TZQuery to call Stored Procedure in oracle:
Code: Select all
ZQuery1.SQL.Add('Declare');
ZQuery1.SQL.Add('Begin');
ZQuery1.SQL.Add('PKGESTIONEPEZZI.PrCicloMng (:lTipOpe, :lTipoCiclo, :lDescrizione, :lDurataConf, :errdiag);');
ZQuery1.SQL.Add('End;');
ZQuery1.Params.CreateParam(ftUnknown, 'lTipOpe', ptInput);
ZQuery1.Params.CreateParam(ftUnknown, 'lTipoCiclo', ptInput);
ZQuery1.Params.CreateParam(ftUnknown, 'lDescrizione', ptInput);
ZQuery1.Params.CreateParam(ftUnknown, 'lDurataConf', ptInput);
ZQuery1.Params.CreateParam(ftUnknown, 'errdiag', ptInputOutput);
ZQuery1.ParamByName('lTipOpe').Value := 'I';
ZQuery1.ParamByName('lTipoCiclo').Value := ComboBox1.Text;
ZQuery1.ParamByName('lDescrizione').Value := Des.Text;
ZQuery1.ParamByName('lDurataConf').Value := 'null';
ZQuery1.ParamByName('errdiag').Value := 'null';
ZConnection1.StartTransaction;
ZQuery1.ExecSQL;
label3.Text := String (ZQuery1.ParamByName('errdiag').Value);
ZConnection1.Commit; Anybody can help me?