Subject | Re: bookmark problem after insert |
---|---|
Author | |
Post date | 2015-07-29T16:54:58Z |
Hi Jason,
I send you a little application : pb_ibo_1.zip
I send you a little application : pb_ibo_1.zip
I retype my email twice.... I've spent more times to upload my test application rather than to write it....
Yahoo hates 7z files....
I use :
- employee.fdb,
- 1 x TIBODatabase
- 1 x TIBOQuery
- 1 x TDataSource
The main source code is :
*****************************
procedure TForm1.Button1Click(Sender: TObject);
begin
IBODatabase1.DatabaseName := ExtractFilePath(ParamStr(0)) + '\..\..\' + 'EMPLOYEE.FDB';
IBODatabase1.Connected := true;
IBOQuery1.Active := true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IBOQuery1.Insert;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
_bk : TBookmark;
begin
_bk := IBOQuery1.GetBookmark;
IBOQuery1.GotoBookmark(_bk);
IBOQuery1.FreeBookmark(_bk);
end;
*****************************
The exception occurs in the GotoBookmark.
My temporary solution used is to replace the Insert by an Append....
kind regards,
Laurent GILBERT
SPIRALE INGENIERIE
I use :
- employee.fdb,
- 1 x TIBODatabase
- 1 x TIBOQuery
- 1 x TDataSource
The main source code is :
*****************************
procedure TForm1.Button1Click(Sender: TObject);
begin
IBODatabase1.DatabaseName := ExtractFilePath(ParamStr(0)) + '\..\..\' + 'EMPLOYEE.FDB';
IBODatabase1.Connected := true;
IBOQuery1.Active := true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IBOQuery1.Insert;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
_bk : TBookmark;
begin
_bk := IBOQuery1.GetBookmark;
IBOQuery1.GotoBookmark(_bk);
IBOQuery1.FreeBookmark(_bk);
end;
*****************************
The exception occurs in the GotoBookmark.
My temporary solution used is to replace the Insert by an Append....
kind regards,
Laurent GILBERT
SPIRALE INGENIERIE