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