Hi Helen,

Thanks for your help.

I made the changes, except the "Dataset.ParamByName" because of a
"Undeclared identifier: 'ParamByName" error, and i'm still getting an empty
dataset.

If i right click the TIBOQuery and enter in the Edit mode, i can prepare,
set the param to 12 and open the DataSet, and it works fine.

it seems to me that it is not passing the parameter at run-time and get no
data since there isn't "MES=0" in the table.

This same problem is hapening with other TIBOQuery linked to another
table.
Other TIBOQueries without paremeters works fine. Could be a conection
problem ? I'm using TIBODatabase.

Helton

> ----- Original Message -----
> From: "Helen Borrie" <helebor@...>
> To: <IBObjects@yahoogroups.com>
> Sent: Quinta-feira, 20 de Dezembro de 2001 09:11
> Subject: Re: [IBO] Problem with TIBOQuery
>
>
> > At 08:57 AM 20-12-01 -0200, Helton de Oliveira wrote:
> > >Hi,
> > >
> > >I'm porting a BDE application to IBO using the TIBO components and i'm
> > >having problems with a TIBOQuery with a SmallInt parameter called

"MES".

> > >
> > >The TIBOQuery didn't find any data. It seems not respect the parameter
> since
> > >there is data in the table especified on the Select clause which

conforms

> > >with "MES=12".
> > >
> > >Here is the select clause: "SELECT * FROM VctosDescs WHERE Mes = :Mes
> ORDER
> > >BY Mes, CodVctoDesc"
> >
> > Change this to omit Mes from the order by criteria - it's not logical to
> order a set by a column that cannot possibly have more than one value.
> >
> >
> > >Here is the BeforeOpen event of the TIBOQuery:
> > >
> > >procedure TdtmTables.qryVctDscBeforeOpen(DataSet: TDataSet);
> > >begin
> > > file://qryVctDsc.ParamByName('Mes').AsInteger := 12;
> >
> > Dataset.ParamByName....
> >
> > >end;
> > >
> > >Here is the AfterOpen event of the TIBOQuery:
> > >
> > >procedure TdtmTables.qryVctDscAfterOpen(DataSet: TDataSet);
> > >begin
> >
> > with Dataset do begin
> >
> > > file://if (qryVctDsc.BOF and qryVctDsc.EOF) then DoSomething;
> > > file://qryVctDsc.First;
> >
> > if IsEmpty then
> > DoSomething
> > ELSE
> > First;
> > end;
> >
> > Just make these changes and check whether you are still getting an empty
> dataset.
> >
> > Helen
> >
> >
> >
> >
> >
>

___________________________________________________________________________

> > 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/

> >
> >
> >
>