Yes, I also recommend that you backup and restore your database to correct
the BLOB ID problems that are lying in wait to bite you. Hopefully this will
prove effective to wash out these potential problems.

Regards,
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com

----- Original Message -----
From: "Harald Klomann" <nibler@...>
To: <IBObjects@egroups.com>
Sent: Thursday, November 23, 2000 2:11 AM
Subject: Re: [IBO] Duplicate a record


> Jason,
>
> >> Did you see the bug in InterBase that may bite you by doing this?
> Yes, thanks !
>
> > > How about if I created an Assign() method of the TIB_Row that would
transfer
> > > values for rows names that match up and null the others that didn't
match up?
> So, it would be good to have such a Assign() method
>
>
> Thanks
> Harald Klomann
>
>
>
> Jason Wharton wrote:
>
> > Did you see the bug in InterBase that may bite you by doing this?
> >
> > Jason Wharton
> > CPS - Mesa AZ
> > http://www.ibobjects.com
> >
> > ----- Original Message -----
> > From: "Harald Klomann" <nibler@...>
> > To: <IBObjects@egroups.com>
> > Sent: Tuesday, November 21, 2000 2:30 AM
> > Subject: Re: [IBO] Duplicate a record
> >
> > > Jason,
> > >
> > > I think there´s no need, because assigining the rowdata is easy and
quick
> > !
> > >
> > > Thanks,
> > > Harald
> > >
> > > Jason Wharton wrote:
> > >
> > > > How about if I created an Assign() method of the TIB_Row that would
> > transfer
> > > > values for rows names that match up and null the others that didn't
> > match
> > > > up?
> > > >
> > > > Jason Wharton
> > > > CPS - Mesa AZ
> > > > http://www.ibobjects.com
> > > >
> > > > ----- Original Message -----
> > > > From: "Harald Klomann" <nibler@...>
> > > > To: <IBObjects@egroups.com>
> > > > Sent: Monday, November 20, 2000 7:46 AM
> > > > Subject: Re: [IBO] Duplicate a record
> > > >
> > > > > Thanks, this is much better !
> > > > >
> > > > > Harald
> > > > >
> > > > >
> > > > >
> > > > > Chef wrote:
> > > > >
> > > > > > Harald,
> > > > > >
> > > > > > just a suggestion, I use "RowData" for this task:
> > > > > >
> > > > > > procedure TM_DM_PlannerCfg.DuplicatePlanCol( ID_PlanCol:
Integer );
> > > > > > var
> > > > > > sRowData: String;
> > > > > > begin
> > > > > > with Qry_PlanCol do begin
> > > > > > Locate( 'PC_ID_PLANCOL', ID_PlanCol, [] );
> > > > > > sRowData := Fields[0].Row.RowData;
> > > > > > Insert;
> > > > > > Fields[0].Row.RowData := sRowData;
> > > > > > FieldByName( 'PC_ID_PLANCOL' ).AsInteger := GeneratorValue(
> > > > > > 'GEN_PC_ID_PLANCOL', 1 );
> > > > > > Post;
> > > > > > end; // with
> > > > > > end;
> > > > > >
> > > > > > HTH,
> > > > > > Markus
> > > > > >
> > > > > > At 15:13 20.11.00 +0100, you wrote:
> > > > > > >Hi,
> > > > > > >
> > > > > > >I want to append a new record, with the all the values assigned
> > from
> > > > the
> > > > > > >current record in a grid.
> > > > > > >My code works, but is there a better method to do this ?
> > > > > > >
> > > > > > >
> > > > > > >procedure TfrmDemo.Button1Click(Sender: TObject);
> > > > > > >var i:integer;
> > > > > > >begin
> > > > > > > with IB_Query1 do begin
> > > > > > > i := FieldByName('ID').AsInteger;
> > > > > > > Append;
> > > > > > > KeyFields.ByName('ID').AsInteger := i;
> > > > > > > if LookupKeyForBufferFields then begin
> > > > > > > for i := 0 to FieldCount-1 do
> > > > Fields[i].Assign(BufferFields[i]);
> > > > > > > post
> > > > > > > end;
> > > > > > > end;
> > > > > > >end;
> > > > > > >
> > > > > > >
> > > > > > >Thanks
> > > > > > >Harald Klomann
> > > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> > >
> > >
> >
>
>
>
>
>