You also may use this code:

SQL.Add('select * from poliza_polmod(:plopro,:polcod)');
and
Modalidad := FieldByName('polmod').AsInteger;
will be correct....

A d`not know, why changing SQL dialect 1->3 produce error... You are use
Dialect 3 datatypes in stored proc and tables?

WBR, Dmitry Beloshistov AKA [-=BDS=-]
e-mail: torin@...

----- Original Message -----
From: "Manuel Fresneda" <manuelfresnedaguerra@...>
To: <IBObjects@yahoogroups.com>
Sent: Monday, October 29, 2001 9:40 PM
Subject: Re: [IBO] execute procedure problems


> Dmitry, thanks for your correction. But it still dont work.
> It works without this correction in dialect 1.
> Thanks.
>
> --- In IBObjects@y..., "Dmitry Beloshistov" <torin@s...> wrote:
> > > SQL.Add('execute procedure poliza_polmod :polpro,:polcod');
> > Please replace you code to:
> > SQL.Add('Execute procedure poliza_polmod(:polpro,:polcod)');
> > You have error in SQL statement text....
> >
> > WBR, Dmitry Beloshistov AKA [-=BDS=-]
> > e-mail: torin@s...
> >
> > ----- Original Message -----
> > From: "Manuel Fresneda" <manuelfresnedaguerra@y...>
> > To: <IBObjects@y...>
> > Sent: Monday, October 29, 2001 3:51 PM
> > Subject: [IBO] execute procedure problems
> >
> >
> > > Hi all.
> > >
> > > I have the next code:
> > >
> > > with tDatos.pCalculo do
> > > begin
> > > Close;
> > > SQL.Clear;
> > > SQL.Add('execute procedure poliza_polmod :polpro,:polcod');
> > > ParamByName('polpro').Value := AEntero(pcaccpro.Text);
> > > ParamByName('polcod').Value := AEntero(pcacccod.Text);
> > > ExecProc;
> > > Modalidad := FieldByName('polmod').AsInteger;
> > > end;
> > >
> > > if the database is in dialect 1 all is right, but if i change it
> > > to dialect 3 then i get the following:
> > >
> > > ISC ERROR CODE:335544569
> > > ISC ERROR MESSAGE:
> > > Dynamic SQL Error
> > > parameter mismatch for procedure POLIZA_POLMOD
> > >
> > >
> > > I use Delphi6+Sp1 IBO_4_2_F IB6
> > >
> > > Someone knows why.
> > >
> > > Thanks
> > >
> > >
> > >
> > >
> > >
> >
> ______________________________________________________________________
> _____
> > > IB Objects - direct, complete, custom connectivity to Firebird or
> > InterBase
> > > without the need for BDE, ODBC or any other layer.
> > >
> >
> ______________________________________________________________________
> _____
> > > http://www.ibobjects.com - your IBO community resource for Tech
> Info
> > papers,
> > > keyword-searchable FAQ, community code contributions and more !
> > >
> > > Your use of Yahoo! Groups is subject to
> http://docs.yahoo.com/info/terms/
> > >
>
>
>
>
___________________________________________________________________________
> IB Objects - direct, complete, custom connectivity to Firebird or
InterBase
> without the need for BDE, ODBC or any other layer.
>
___________________________________________________________________________
> http://www.ibobjects.com - your IBO community resource for Tech Info
papers,
> keyword-searchable FAQ, community code contributions and more !
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>