Just to let you know that it didn't work for me. But, I'll just revert to
a previous version that this is supposed to work with, for this
exception. Also, I'll try to take the time to compare the source codes and
try to find the cause (I have Beyond Compare to help me). I'll let you
know when I find something. Does TIB_Query and TIB_Cursor use the same
code? And, if so then why it would work, prior to the change below, with
TIB_Cursor and not with TIB_Query?

Thank you for your time and have a nice day.

Daniel Rail

At 03/10/2002 09:16 PM, you wrote:

>Here is the fix in IBA_Row.imp around line 500:
>
>procedure TIB_Row.SetDuplicateBufferPointers;
>var
> ii: integer;
> tmpCol: TIB_Column;
> tmpS: string;
>begin
>// This makes duplicate parameters of same data size bind to the same place.
> if Statement.FCombineDuplicateParams and ( RowType = rtParam ) then
> for ii := 0 to FPSQLDA.sqld - 1 do
> begin
> tmpS := Copy( FPSQLDA.sqlvar[ii].relname, 1,
> FPSQLDA.sqlvar[ii].relname_length );
> if tmpS <> '' then
> tmpS := Statement.IB_Connection.mkVarIdent( tmpS ) + '.';
> tmpS := tmpS + Statement.IB_Connection.mkVarIdent(
> Copy( FPSQLDA.sqlvar[ii].aliasname, 1,
> FPSQLDA.sqlvar[ii].aliasname_length ));
> lastColumnIndex := -1;
> if GetByName( tmpS, tmpCol ) then
> if Addr( tmpCol.PSQLVAR^ ) <> Addr( PSQLDA.sqlvar[ii] ) then
> if SQLTypesEqual( tmpCol.PSQLVAR.SQLType,
> PSQLDA.sqlvar[ii].sqltype ) then
> begin
> FPSQLDA.sqlvar[ii].SQLInd := tmpCol.FPXSQLVAR.SQLInd;
> FPSQLDA.sqlvar[ii].SQLData := tmpCol.FPXSQLVAR.SQLData;
> end;
> end;
>end;
>
>Regards,
>Jason Wharton
>CPS - Mesa AZ
>http://www.ibobjects.com
>
>-- We may not have it all together --
>-- But together we have it all --
>
>
>----- Original Message -----
>From: "Daniel Rail" <daniel@...>
>To: <IBObjects@yahoogroups.com>
>Sent: Thursday, October 03, 2002 4:59 PM
>Subject: Re: [IBO] AV in TIBOQuery and TIB_Query
>
>
> > At 01/10/2002 04:21 PM, you wrote:
> > >Fixed, will be in the next sub-release.
> > >One line of code!!!
> > >Let me know if you want the code change or if you will just get the next
> > >sub-release.
> >
> > Could you send me that line of code? Unfortunately, my boss just asked me
> > to make a correction in a current production version of our software and
> > I'll need that line of code. And, I only made the changes to circumvent
> > that bug in the current beta version of our software. Bummer!!! And, I
> > don't like switching between component version.
> >
> > Thank you and have a nice day.
> >
> >
> > Daniel Rail
> > Senior System Engineer
> > ACCRA Group Inc. (www.accra.ca)
> > ACCRA Med Software Inc. (www.accramed.ca)
> >
>
>
>
>___________________________________________________________________________
>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/