Result := IB_DSQL1.Fields[0].AsInteger;

Jason
www.ibobjects.com


-----Original Message-----
From: IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com] On Behalf
Of Alexandre
Sent: Wednesday, June 19, 2013 10:35 AM
To: IBObjects@yahoogroups.com
Subject: [IBO] Procedure and TIB_DSQL

Hi Guys,
I need to know how works TIB_DSQL.
For example if I have a SP like this:
begin
select count(projetos_id) from tb_projetos where projetos_status>=0
into :total;
suspend;
end

I did this in my code:

IB_DSQL1.SQL.Clear;
IB_DSQL1.SQL.Add('EXECUTE PROCEDURE PRO_PROJETOSCOUNT');
IB_DSQL1.Prepare;
IB_DSQL1.Execute;

But now, how to get the output parameter ?

Thanks
Alexandre

[Non-text portions of this message have been removed]



------------------------------------

___________________________________________________________________________
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 !
Yahoo! Groups Links